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
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;