Tquery可不可以用APPEND属性?我觉得可以用.代码如下:会报错.
query1.Close;
query1.SQL.Clear;
query1.SQL.Text:='delete show128';
query1.ExecSQL;
query1.Close;
query1.SQL.Text:='select * from show128';
query1.Open;
try
GetTable.Open;
except
Continue;
end;
//逐条写入数据库
GetTable.First;
while not GetTable.EOF do
try
query1.Append;//单步调试到这里报错
for j:=0 to GetTable.FieldCount-1 do
if query1.FindField(GetTable.Fields[j].FieldName)<>nil then
query1.FindField(GetTable.Fields[j].FieldName).Value:=GetTable.Fields[j].Value; Application.ProcessMessages;
GetTable.Next;
except
//即使只有1条数据出错,也忽略整个文件
GetTable.Close;
Screen.Cursor:=crDefault; end; //try
query1.Close;
query1.SQL.Clear;
query1.SQL.Text:='delete show128';
query1.ExecSQL;
query1.Close;
query1.SQL.Text:='select * from show128';
query1.Open;
try
GetTable.Open;
except
Continue;
end;
//逐条写入数据库
GetTable.First;
while not GetTable.EOF do
try
query1.Append;//单步调试到这里报错
for j:=0 to GetTable.FieldCount-1 do
if query1.FindField(GetTable.Fields[j].FieldName)<>nil then
query1.FindField(GetTable.Fields[j].FieldName).Value:=GetTable.Fields[j].Value; Application.ProcessMessages;
GetTable.Next;
except
//即使只有1条数据出错,也忽略整个文件
GetTable.Close;
Screen.Cursor:=crDefault; end; //try
解决方案 »
- BLOB读到流中,求解决。
- 接口和对象间怎么互转?
- freeAndNil 的问题!急~~~~
- 请教一个小问题,IdThreadMgrDefault和IdThreadMgrPool用法
- 怎样让tlistview,ttreeview,tlistbox,tcombobox的某一个选项变背景和文字变色?
- 请问如何导入csv文件到delphi中
- 高分(100分)求助一个DELPHI程序
- 报表控件
- 加密软盘复制问题,高手请进,若成功,200分奉上!!!
- 如何把DLL中用CreatWindows产生的窗口Dock到我的Panel1上来?
- 指针内存释放问题
- 急需MSCOMM控件作串口AT指令中英文短消息收发的代码!!!
query1.SQL.Text:='select * from show128';
query1.SQL.Text:='delete show128';
query1.ExecSQL;
query1.Close;//query.sql.clear;这一句!
query1.SQL.Text:='select * from show128';
query1.Open;