如果是Update那末一下部分该怎么该 發表人 - reebokmonkey 於 2003/08/28 14:49:51 發表人 - reebokmonkey 於 2003/08/28 14:55:24

ADOQuery1.sql.Clear; ADOQuery1.SQL.Text :='insert into ab (aa,bb,cc) values (:aa,:bb,:cc)'; adoquery1.Parameters.ParamByName('aa').Value :=1111; adoquery1.Parameters.ParamByName('bb').Value :='1111'; adoquery1.Parameters.ParamByName('cc').LoadFromFile ('c:\1.jpg',ftGraphic); adoquery1.ExecSQL ; 也可以用这一句代替上面红色部分的 adoquery1.Parameters.ParamByName('cc').LoadFromFile ('c:\1.jpg',ftblob);

有没有用ADOConnection写入的方法

help me!

有没有用ADOConnection写入的方法 ------------------------------ ADOConnection仅提供连接，用法如下： ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=' ExtractFileDir(application.Exename) '\db1.mdb;user id=admin;Persist Security Info=False'; adoconnection1.Connected:=true; ADOQuery1.Connection :=adoconnection1; ADOQuery1.sql.Clear; ADOQuery1.SQL.Text :='insert into ab (aa,bb,cc) values (:aa,:bb,:cc)'; adoquery1.Parameters.ParamByName('aa').Value :=1111; adoquery1.Parameters.ParamByName('bb').Value :='1111'; adoquery1.Parameters.ParamByName('cc').LoadFromFile ('c:\1.jpg',ftblob); adoquery1.ExecSQL ;

ADOConnection1不是也能执行SQL语句吗?为什么不能用ADOConnection1呢?

ADOConnection1相当于bde中的Tdatabase,起着桥梁作用，不能执行sql. 这是delphi的help中的说明： TADOConnection connects to an ADO data store. Description TADOConnection encapsulates the ADO connection object. Use TADOConnection for connecting to ADO data stores. The connection provided by a single TADOConnection component can be shared by multiple ADO command and dataset components through their Connection properties. TADOConnection allows you to control the attributes and conditions of a connection to a data store. Use the properties of TADOConnection to control such attributes as record locking scheme (optimistic versus pessimistic), cursor type, cursor location, isolation level, and connection timeout. Methods are also provided for implementing transactions and retrieving metadata about the database to which this component connects.

ADOConnection1.LoginPrompt :=False; ADOConnection1.Open('sa',' '); ADOConnection1.BeginTrans; StrSQL:='delete from tb_error where auto_id=115'; ADOConnection1.Execute(StrSQL,Row); If Row=0 then Begin ShowMessage('删除失败!请从新操作!'); ADOConnection1.RollbackTrans;//如果删除失败则回滚 Exit; End; ADOConnection1.CommitTrans; 以上是我用ADOConnection1执行SQL语句的过程,但是可以执行啊.

你好： 1.AdoConnection 確實可以執行 SQL，但大型資料似乎無法單純使用 SQL 敘述來新增。    2. AdoConnection.Execute 有傳回結果與不傳回結果兩種模式，傳回結果是傳回一個 _Recordset 物件，你不妨由此著手。    3. 如果你使用第二點且能成功，哪你乾脆使用 AdoRecordset 或 AdoCommand 等元件還比較方便。 參考看看 < src="http://sourceprovide.deepen.com.tw/K_Top/bp.gif">

如果用ADOConnection1.Execute(StrSQL,Row); 那末Row的值可以返回是否成功 Row<>0成功,Row=0不成功. ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=' ExtractFileDir(application.Exename) '\db1.mdb;user id=admin;Persist Security Info=False'; adoconnection1.Connected:=true; ADOQuery1.Connection :=adoconnection1; ADOQuery1.sql.Clear; ADOQuery1.SQL.Text :='insert into ab (aa,bb,cc) values (:aa,:bb,:cc)'; adoquery1.Parameters.ParamByName('aa').Value :=1111; adoquery1.Parameters.ParamByName('bb').Value :='1111'; adoquery1.Parameters.ParamByName('cc').LoadFromFile ('c:\1.jpg',ftblob); adoquery1.ExecSQL ; 如过说用上面的办法,那怎么判断添加新纪录是否添加成功.

var i:integer; begin .... adoconnection1.BeginTrans ; i:=adoquery1.ExecSQL ; if i=0 then adoconnection1.RollbackTrans else adoconnection1.CommitTrans ; end;

谢谢!我刚才在帮助文件里也看见了对于adoquery1.ExecSQL 的描述.谢谢你的帮忙.

如果是Update那末一下部分该怎么该 ADOQuery1.SQL.Text :='insert into ab (aa,bb,cc) values (:aa,:bb,:cc)'; adoquery1.Parameters.ParamByName('aa').Value :=1111; adoquery1.Parameters.ParamByName('bb').Value :='1111'; adoquery1.Parameters.ParamByName('cc').LoadFromFile ('c:\1.jpg',ftblob);