在createtable是報錯（'invalid parameter'）
with table_firstpage do
begin
Close;
Active :=False;
DisableControls;
DatabaseName:='D:\aa';
TableName:='N041.dbf';
TableType :=ttDBase;
FieldDefs.Clear;
IndexDefs.Clear;
end;
with ado_tmp do
begin
close;
sql.Text := 'select column_name, column_id, data_type from all_tab_columns '#13#10+
'where table_name=upper(''t_bafirstpage'') order by column_id ';
open;
while not eof do
begin
if Fields[2].AsString = 'number' then
table_firstpage.FieldDefs.Add(Fields[0].AsString,ftInteger,0,True)
else if Fields[2].AsString = 'varchar2' then
table_firstpage.FieldDefs.Add(Fields[0].AsString,ftString,0,True);
next;
end;
end;
table_firstpage.createtable;
table_firstpage.active := true;
uj5u.com熱心網友回復：
all_tab_columns 中有多少行？uj5u.com熱心網友回復：
procedure TFieldDefs.Add(const Name: string; DataType: TFieldType;Size: Integer; Required: Boolean);
table_firstpage.FieldDefs.Add(Fields[0].AsString,ftString,0,True);
欄位大小怎么可以為0????
uj5u.com熱心網友回復：
200多行。。。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/88785.html
標籤：VCL組件開發及應用
上一篇：在線等，求c#加密字串（包括漢字）演算法，用delphi解密的函式演算法，需要 c#加密函式和delphi解密函式，高分。
下一篇：怎么查代碼對顯卡的影響？