procedure TForm1.Button7Click(Sender: TObject);
var i:integer;
begin
with ADOQuery do
begin
for i:=0 to ListBox1.Items.Count -1 do
begin
ADOQuery.Connection:=ADOConn;
ADOQuery.SQL.Add(''+ListBox1.Items[i]+'');
ADOQuery.ExecSQL;
end;
showmessage('执行SQL语句成功');
end;
end;
这个是操作SQLsqlserver的代码 ListBox里面装的是selelct语句 怎么将查询的结果 插入到access数据库中去
需要添加什么代码
var i:integer;
begin
with ADOQuery do
begin
for i:=0 to ListBox1.Items.Count -1 do
begin
ADOQuery.Connection:=ADOConn;
ADOQuery.SQL.Add(''+ListBox1.Items[i]+'');
ADOQuery.ExecSQL;
end;
showmessage('执行SQL语句成功');
end;
end;
这个是操作SQLsqlserver的代码 ListBox里面装的是selelct语句 怎么将查询的结果 插入到access数据库中去
需要添加什么代码
解决方案 »
- 关于delphi6编译的问题
- 一个应聘考试的题目,要求明天将代码带去,并说明思路
- 怎样执行包含在字符串里的过程,如Str1:='acUpdateExecute',我如何去执行它?
- 如何在导出数据到EXCEL时定义EXCEL单元格的格式,如对齐方式等等?
- delphi出毛病了
- 使用框架的困惑,满分求助!
- 急疯了几天没人理,大哥大姐,这样的功能怎么实现不了?(原码已给出)
- 我用了一个lookupcombobox空间,可是运行的时候不让我点击亚?
- 问一个简单的问题,如何才能使工具栏上的按钮靠右排列.
- Ttable与Tquery在sql server中的应用效率?????????
- 如何解决WebBrowser.Navigate,读取缓存而不重新打开网页,更新网页上数据的问题?
- 如何拖放下列TListBox的文件到explorer,并得到拖放到explorer哪个目录?
当然直接用adoquery.edit和post也是可以的
非字符型字段不用加引号
var i:integer;
begin
with ADOQuery do
begin
Connection:=ADOConn;
for i:=0 to ListBox1.Items.Count -1 do
begin
SQL.Add(''+ListBox1.Items[i]+'');
end;
ExecSQL;
showmessage('执行SQL语句成功');
end;
end;LZ的代码改成这样是不是好一点。
还是要看看SQL的语句