为什么这样写,delphi5/6已经封装了ado阿
Var AdoConn:TadoConnection;
begin
AdoConn:=TadoConnection.create(self);
with AdoConn do try
loginprompt:=false;
connectionstring:='....';
open;
.....
finally
free;
end;
end;
Var AdoConn:TadoConnection;
begin
AdoConn:=TadoConnection.create(self);
with AdoConn do try
loginprompt:=false;
connectionstring:='....';
open;
.....
finally
free;
end;
end;
解决方案 »
- 编写svchost.exe调用dll模块的问题
- 请教:Oracle9.2.0.1.0+delphi7,用Query有些字段保存不上
- 这是怎么回事?ACCESS数据库的问题。
- 紧急求助!!!一个Delphi新手到济南找工作这样的条件可以拿到多少钱??必重谢!!!!
- TServerSocket是什么?
- 如何保证程序在多种显示分辨率下的健壮性
- 请问为什么我在打印预览里只能看到第一个记录,急!!!
- 如何在线程中调用主进程的mts(com+)资源,delphi5问题
- 这样做dll可不可以?
- delphi小数点问题....请大家看看
- 请大家推荐流媒体的东西呀!各位请进
- 何处有从数码相机或摄像头中直接取图像的控件或动态库?
var
ADOConn : variant;
ADORS : variant;
begin
ADOConn:=CreateOleObject('ADODB.Connection');
ADOConn.Open('Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=c:\test.mdb;');
//连接数据库,这里使用的是access数据库的连接字符串
ADORS:=CreateOleObject('ADODB.RecordSet');
ADORS.ActiveConnection:=ADOConn;
ADORS.Open('Select * from table1',ADOConn,adOpenStatic,adLockOptimistic,adCmdText);
//打开表table1获取数据集
Edit1.Text:=VarToStr(ADORS.Fields['Field1'].Value);
//Edit文本框填充Field1字段值
end;