如题
谁解决了和这个问题一并结分 共150
http://community.csdn.net/Expert/TopicView1.asp?id=3221794
多谢了
谁解决了和这个问题一并结分 共150
http://community.csdn.net/Expert/TopicView1.asp?id=3221794
多谢了
解决方案 »
- NtQuerySystemInformation 获取系统句柄的问题
- 请问如何用ScriptControl来计算表达式?
- 非常郁闷的问题...(Indy邮件)
- 请教FrameSniper(§绕瀑游龙§)等高手问题
- 那位大哥可以提供关于库存方面delphi的源程序。
- 在调用Table的CreateTable时为什么多出了几个文件?谢谢帮忙!
- sheetbook表格自动滚屏问题
- 第一次听说delphi是个软件开发工具 想找个师傅从基础做起
- 初学DELPHI
- 字符串连接不正确,up有分!!!!!!!急!!!
- 请问我的报表为什么只能显示一行阿
- 程序里调用EXE???????????????????????在线等
(
LAST_NAME CHAR(20),
FIRST_NAME CHAR(15),
SALARY NUMERIC(10,2),
DEPT_NO SMALLINT
)
(
LAST_NAME CHAR(20),
FIRST_NAME CHAR(15),
SALARY NUMERIC(10,2),
DEPT_NO SMALLINT
)
// The table must be opened execlusively before calling this function...
procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
// Make sure the table is open exclusively so we can get the db handle...
if not Table.Active then
raise EDatabaseError.Create('Table must be opened to pack');
if not Table.Exclusive then raise EDatabaseError.Create('Table must be opened exclusively to pack'); // Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props)); // If the table is a Paradox table, you must call DbiDoRestructure...
if Props.szTableType = szPARADOX then begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table's cursor handle... Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure... Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create('Table must be either of Paradox or dBASE ' + 'type to pack'); Table.Open;end;
ADOCOMMAND1.COMMANDTEXT:='PACK 123.DBF';
ADOCOMMAND1.EXECUTE;
再试一下
begin
with Query1 do
begin
DatabaseName := 'DBDemos';
with SQL do
begin
Clear;
Add('CREATE TABLE "Tbl.dbf" (ID CHAR(5),');
Add('Name CHAR(255),');
Add('PRIMARY KEY(ID))');
ExecSQL;
Clear;
Add('CREATE INDEX ByName ON "Tbl.dbf" (Name)');
ExecSQL;
end;
end;
end;
多谢这位高手,感谢你为我这两个问题多次的回答,再次表示感谢!下午吃完饭后结帐!