📄 dbicreatetemptable.html
字号:
<HTML>
<HEAD>
<TITLE>BDE API Examples (DbiCreateTempTable)</TITLE>
<META NAME="KEYWORDS" CONTENT="BDE, Borland">
<META NAME="DESCRIPTION" CONTENT="">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#000000" ALINK="#999999" VLINK="#666666">
<CENTER>
<TABLE CELLPADDING="4" CELLSPACING="4" BORDER="0" WIDTH="600">
<TR>
<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="1"><NOBR><A HREF="/"><IMG SRC="/images/bolus.gif" ALT="[View Borland Home Page]" BORDER="0"></A><A HREF="/products.html"><IMG SRC="/images/products.gif" ALT="[View Product List]" BORDER="0"></A><A HREF="/searchsite/"><IMG SRC="/images/search.gif" ALT="[Search This Web Site]" BORDER="0"></A><A HREF="/download.html"><IMG SRC="/images/downloads.gif" ALT="[View Available Downloads]" BORDER="0"></A><A HREF="/membership.html"><IMG SRC="/images/membership.gif" ALT="[Join Borland Online]" BORDER="0"></A><A HREF="/newsgroups/"><IMG SRC="/images/newsgroups.gif" ALT="[Enter Discussion Area]" BORDER="0"></A><A HREF="/feedback/"><IMG SRC="/images/feedback.gif" ALT="[Send Email To Webmaster]" BORDER="0"></A></NOBR></TD>
</TR>
<TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>
<h2>BDE API Examples (DbiCreateTempTable)</h2>
Creates a temporary table that is deleted when the cursor is closed, unless
the call is followed by a call to DbiMakePermanent.
<hr size=2 noshade>
<p>
<H3>Create a temporary table and return the cursor handle</H3>
This example uses the following input: <I>hCur := CreateTempTable(Database1.Handle);</I>
<PRE>function CreateTempTable(hDB: hDBIDb): hDBICur;
const
FIELDS = 3;
TABLE_NAME = 'TempTbl';
var
pFields: pFLDDesc;
TblDesc: CRTblDesc;
begin
// Initialize structures to zero...
Result := nil;
FillChar(TblDesc, sizeof(TblDesc), 0);
// Allocate memory for the field descriptors...
pFields := AllocMem(FIELDS * sizeof(FLDDesc));
try
// Create an AUTOINC field (Visual dBASE 7 field type only)...
pFields^.iFldNum := 1;
pFields^.szName := 'Field_Number_1';
pFields^.iFldType := fldINT32;
pFields^.iSubType := fldstAUTOINC;
Inc(pFields);
// Create a STRING field...
pFields^.iFldNum := 2;
pFields^.szName := 'Field_Number_2';
pFields^.iFldType := fldZSTRING;
pFields^.iUnits1 := 20;
Inc(pFields);
// Create a TIMESTAMP field (Visual dBASE 7 field type only)...
pFields^.iFldNum := 3;
pFields^.szName := 'Field_Number_3';
pFields^.iFldType := fldTIMESTAMP;
Dec(pFields, FIELDS - 1);
// Add the field and index information to the table descriptor...
TblDesc.szTblName := TABLE_NAME;
TblDesc.szTblType := szDBASE;
TblDesc.iFldCount := FIELDS;
TblDesc.pfldDesc := pFields;
//Create the table (even if it already exists)...
Check(DbiCreateTempTable(hDb, TblDesc, Result));
finally
Freemem(pFields);
end;
end;</PRE>
<hr size=2 noshade>
<p>
<A HREF="/devsupport/bde/bdeapiex/index.html">Back to BDE API Reference Page</A>
</TD></TR>
<TR><TD ALIGN="LEFT" VALIGN="TOP" COLSPAN="1"><font size=2>
<HR SIZE="2" NOSHADE>
<FONT SIZE = 2><i><b>DISCLAIMER:</b> You have the right to use this technical information subject to
the terms of the No-Nonsense License Statement that you received with the Borland product to which
this information pertains.</FONT></i></B>
</dl>
</td>
</TR>
<TR>
<!-- THIS IS THE BOTTOM COPYRIGHT & UPDATED MESSAGE -->
<TD ALIGN="CENTER" VALIGN="TOP" COLSPAN="3"><FONT SIZE="2"><A HREF="/copyright.html">Trademarks & Copyright</A> © 1998 Borland International, Inc.
<SCRIPT LANGUAGE="JavaScript">
<!-- HIDE FROM OLD BROWSERS
// THIS WILL WRITE OUT THE LAST MODIFIED DATE
// YOU DO NOT NEED TO CHANGE ANYTHING HERE
function makeArray(arraySize) {
this.length = arraySize
return this
}
monthNames = new makeArray(12)
monthNames[1] = "January"
monthNames[2] = "February"
monthNames[3] = "March"
monthNames[4] = "April"
monthNames[5] = "May"
monthNames[6] = "June"
monthNames[7] = "July"
monthNames[8] = "August"
monthNames[9] = "September"
monthNames[10] = "October"
monthNames[11] = "November"
monthNames[12] = "December"
updated = new Date(document.lastModified)
theMonth = monthNames[updated.getMonth() + 1]
theDate = updated.getDate()
theYear = updated.getYear() + 1900
document.write("Last modified on " + theDate + "-" + theMonth + "-" + theYear + ".")
// END HIDING -->
</SCRIPT></FONT></TD>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -