with adoquery2 do begin
close;
sql.Clear;
sql.Add('insert into t_guest(客户来源,公司类型,) values ('''+Edit1.Text+''','''+Edit2.Text+'''');
execsql;
end; adoquery1.Active:=false;
adoquery1.Active:=true;
数据库为access,adoquery直接连或通过odbc都出现: 添一条记录不显示,添第二条显示第一条,以后每添一条显示前一条记录删除也是一样,(adoquery2用于操作,ADOQUERY1用于连接DATASOURCE和数据库
close;
sql.Clear;
sql.Add('insert into t_guest(客户来源,公司类型,) values ('''+Edit1.Text+''','''+Edit2.Text+'''');
execsql;
end; adoquery1.Active:=false;
adoquery1.Active:=true;
数据库为access,adoquery直接连或通过odbc都出现: 添一条记录不显示,添第二条显示第一条,以后每添一条显示前一条记录删除也是一样,(adoquery2用于操作,ADOQUERY1用于连接DATASOURCE和数据库
close;
sql.Clear;
sql.Add('insert into t_guest(客户来源,公司类型,) values ('''+Edit1.Text+''','''+Edit2.Text+'''');
增加一句:close;
execsql;
end; 你是是看!
後來隻好放棄使用Access.
Close;
Open;
end;這樣試試吧。
大家给我一个回答!!
q.sql.Clear;
q.sql.Add('insert into testTbl(str_col) values('''+e.text+''')');
q.ExecSQL;
q.sql.Clear;
q.SQL.add('select * from testTbl');
q.open;