各位大哥请问改为ADO连接数据库怎么写？

Question

小弟对DELPHI不怎么熟悉 我想问问各位大哥
下面的程序是用BDE连的数据库
要想改成用ADO连接数据库怎么写
哪位会的大哥请帮帮忙 小弟感谢了UpdateSQL1.insertSQL.CLEAR ;
UpdateSQL1.insertSQL.add( ‘ insert into test.dbf ’) ;
UpdateSQL1.insertSQL.add(‘ (name,good,id) ’ );
UpdateSQL1.insertSQL.add(‘values’);
UpdateSQL1.insertSQL.add (‘(:name,:good,:id)’);UpdateSQL1.ModifySQL.CLEAR;
UpdateSQL1.ModifySQL.Add (‘UPDATE TEST.DBF’);
UpdateSQL1.ModifySQL.Add(‘set’);
UpdateSQL1.ModifySQL.Add(‘name =:name,’);
UpdateSQL1.ModifySQL.Add(‘good=:good,’);
UpdateSQL1.ModifySQL.Add(‘ id =:id’);
UpdateSQL1.ModifySQL.Add(where id =:old_id’);
 
UpdateSQL1.deleteSQL.CLEAR;
UpdateSQL1.deleteSQL.add(‘delete from test.dbf ‘);
UpdateSQL1.deleteSQL.add(‘where id =:old_id’);Query1.CachedUpdates :=true;
Query1.updateobject :=updateSQL1;Query1.databasename :=GetCurrentDir;
Query1.SQL.Clear;
Query1.SQL.add(‘select * from test.dbf’);
Query1.close;
Query1.open;BTNINS.Enabled :=TRUE;
BTNUPD.Enabled :=TRUE;
BTNDEL.Enabled :=TRUE;
BTNYES.Enabled :=FALSE;
BINCAL.Enabled :=FALSE;END;

Answer 1

基本除了Query1.databasename :=GetCurrentDir;换成ado 的connection string以外，没有太大的变化。

Answer 2

Query1.databasename :=GetCurrentDir；
改ADO结构

Answer 3

ADOQuery1.CachedUpdates :=true;
[Error] guanli.pas(65): Undeclared identifier: 'CachedUpdates'
这是 哪里错了

Answer 4

ADOQuery1.CachedUpdates :=true;
ADOQuery1.updateobject :=updateSQL1;ADOQuery1.databasename :=adoconnection;
这三句在在QUERY1里好用
在ADOQUERY1里是错的怎么改呢？

Answer 5

因为:ADOQuery 没有CachedUpdates这个属性!

Answer 6

我知道 各位大哥 我想问我上面的语句是用BDE 连的要是把它改为ADO 连怎么写的？

Answer 7

ADOConnection 的ConnectionString属性，Connected属性，LogPrompt属性

Answer 8

SQL语句可以不改写.控件要换成ADO的.