你的语句整理如下:try with adoquery do begin close; sql.text:='Select * from 表1'; open;//用open有返回,ExecSQL无返回 end; except showmessage('SQL语法出错,请检查语法.'); end;如果是用Delete Update就得用无返回try with adoquery do begin close; sql.text:='Delete from 表1'; ExecSQL;//用open有返回,ExecSQL无返回 end; except showmessage('SQL语法出错,请检查语法.'); end;
接下来可以在Form上放一个ADOTable(或一个ADOQuery,为演示方便,用前者)
使它的Connection指向你的ADOConnect(一般是ADOConnect1,在属性框中选一下就可以了)
并找到它的Table属性.选一个你要操作的表,并设Active为true
然后在Form上加一个DataSource(在Data Access中)
并将它的DataSet指向你上面的ADOTable
再在From上加一个DBGrid(在Data Control中)
使它的DataSource指向上面的DataSource
如是一切成功,你表中的数据就显示在DBGrid上了
1、选择数据库
将将将ADOConnection组件放置在窗体中,然后双击它,出现Form.ADOConnection1 ConnectionString窗体,单击“Build…”按钮,出现数据连接属性窗体,因为要连接SQL数据库,在“提供程序”选项卡中选择Microsoft OLE DB Provider for SQL Server,然后单击下一步,如果是本地数据库的话,就不要输入数据库名称,否则需要输入。根据SQL Server的设置选择登录信息,然后在服务器上选择数据库,单击下拉列表框就可以看到数据库名,然后可以测试连接。
2、设置ADOConnection组件
将ADOConnection组件的connection属性设置为True,如果不想出现登录对话框,将loginprompt属性设置为flase即可。
3、设置ADOQuery组件
将ADOQuery1组件放置在窗体内,将Connection属性设成刚才放置的ADOConnection组件,然后在SQL属性里输入SQL语句”select * from sysusers”,将Active属性设为true。
4、设置DataSource组件和DBGrid组件
将DataSource组件放在窗体内,将DataSet属性设为刚才放置的ADOQuery组件,再将DBGrid组件放置在窗体内,将DataSource属性设为刚才放置的DataSource组件,数据就显示在DBGrid组件中了。
单独一个ADOQuery + DataSource也可以;
但是如果多个 ADOQuery 的话,你不能每个ADOQuery都连接一次ConnectString吧;
所以用一个ADOConnection 就可以解决问题;
多看看书,有很多好处
adoquery.Close;
adoquery.SQL:=memo1.Lines;//这句能不能用下面这句代替。
//adoquery.SQL='select * from 表1';
adoquery.Prepared;
adoquery.ExecSQL;
adoquery.Active:=true;
except
showmessage('SQL语法出错,请检查语法.');
end;
with adoquery do
begin
close;
sql.text:='Select * from 表1';
open;//用open有返回,ExecSQL无返回
end;
except
showmessage('SQL语法出错,请检查语法.');
end;如果是用Delete Update就得用无返回try
with adoquery do
begin
close;
sql.text:='Delete from 表1';
ExecSQL;//用open有返回,ExecSQL无返回
end;
except
showmessage('SQL语法出错,请检查语法.');
end;