★★★快来抢100分★★★:在delphi里，求购用ado操作数据库的详细源代码，供学习研究？

[deak]

[ghz2000]

procedure OperatorSQLServerStoreProc;
var
ADOStoredProc1:TADOStoredProc;
begin
ADOStoredProc1:= TADOStoredProc.Create(nil);
ADOStoredProc1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security
Info=True;User ID=sa;Initial Catalog=Ex;Data
Source=SMALLBRIDGE';
try
ADOStoredProc1.ProcedureName:='databaseproc';
ADOStoredProc1.ExecProc;
finally
ADOStoredProc1.Free;
end;
end;

好像，这些只要你看看属性就会自己做出来的。

[qiubolecn]

对 little_hero
使用存储过程在adocommandtext中写入存储过程的名字,再在commandtype:=cmdStoredProc

[deak]

to smallBridge: thank you,可不可以不用TADOQUERY控件,直接申明TADOQUERY?

[deak]

I try,But not!

[little_hero]

谢谢大侠!

[zzutlink]

你说的太简单了吧？说详细点，讲ADO都能出本书了！

[newyj]

delphi的demo\ado下有很好的例子

[zzutlink]

ADO其实很简单，也就是先建立连接，然后通过某种方法取得数据集，然后使用这个数据集就OK了

[乱码]

你又偷懒了

[deak]

可不可以不用控件，直接申明ado对象，像vb里一样？
具体来讲就是用ado查询，修改，增加，删除数据的详细源代码。

[smallBridge]

//假设用TADOQUERY控件查询SQL SERVER数据库中某个表（表名假设为YoursTableName）,将该
//表中的字段，——假设叫FieldName值全部查询出来并加到LISTBOX控件中。
procedure OperatorSQLServerWithADO;
var
myADOQuery:TADOQuery;
begin
myADOQuery := TADOQuery.Create(nil);
myADOQuery.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security
Info=True;User ID=sa;Initial Catalog=Ex;Data
Source=SMALLBRIDGE';
try
with myADOQuery do begin
Close;
SQL.Text := 'SELECT * FROM YoursTableName';
Open;
if IsEmpty then begin Close; Exit; end;
ListBox1.Items.Clear;
while not Eof do begin
ListBox1.Items.Add(TRIM(FieldByName('FieldName').AsString)); //Fields
Next;
end;
Close;
end;
finally
myADOQuery.Free;
end;
end;

[smallBridge]

//add,edit,delete operator
...
with myADOQuery do begin
Close;
//假设Field1是字符型，Field2是整型
//Add Record
SQL.Text := 'INSERT INTO YoursTableName (Field1,Field2) VALUES('ABC',123)';
//Edit record
//SQL.Text := 'UPDATE YoursTableName Set Field1 = ''a'',Field2 = 345' +
// ' WHERE Field2 = 123';//conditions you need
//Delete record
//SQL.Text := 'DELETE FROM YoursTableName WHERE Field2 = 123';
Prepared;
ExecSQL;
Close;
ShowMessage('OK!');
end;

[sunshinerainbow]

ADO很好用啊，当然可以动态生成ADO的各种对象哦

[hunyuan]

李维的书中讲，不建议用原生ADO，代码量大，用ADO控件开发效率更高，呵呵，小弟说的对吗？

有用VCL控件的代码吗？除了上面的，有ADODateSet,ADOCommand的吗？

[little_hero]

那如何使用存储过程呢？

[deak]

add

[willsound]

还是系统的吧

[deak]

to smallBridge: 我用你那种方法后，为什么总是出现错误提示：
current provider does not support returning multiple recordsets from a single execution,

commandtext does not a return set

[deak]

修改数据时总是出现错误提示，why?