第一次用DELPHI写数据库程序,请教一个简单的问题:关于数据输入.用ado连接.

Question

有一个form,里面有很多的Edit,(不用DBEdit),和combobox控件,要求用它们向一个access数据库里输入资料.请问需要用到哪此控件,及如何使用?采用adoconnection连接．最好贴出代码来参考一下．谢了．

Answer 1

adoconnection + adoquery,在ado的page中。代码可以看delphi中自带的demos例子

Answer 2

连接的话用楼上的控件就够了,
如果不用dbedit的话好像只能这样了:
adoquery1.fieldbyname('字段1').asstring:=edit1.text

Answer 3

那再问你们一下,adoquerry控件应该如何联接?那么adoquerry1一定要去access中的数据表相联吧.
zhangl_cn(五台山的和尚也编程) 你能不能多给一些提示啊.写详细点,谢谢了.

Answer 4

如何才能将adoquery1与access中的某一数据表联接起来?能告诉我语句或者哪些地方要设置吗?

Answer 5

adodateset.edit;
adodateset.fieldByName('field1').assting:=edit1.text;
...
ado連access用jet引擎連呀。

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  AdoCon:TAdoConnection;
  AdoQuery:TAdoquery;
begin
  AdoCon:=TAdoConnection.Create(self);
  AdoCon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False';
  AdoQuery:=TAdoQuery.Create(self);
  AdoQuery.Connection:=AdoCon;
  With AdoQuery do
    begin
      close;
      sql.Clear;
      sql.Add('select * from t1');
      prepared;
      open;
      insert;
      fieldByName('ss').asstring:=edit1.text;
      post;
    end;
  FreeAndNil(AdoCon);
  FreeAndNil(AdoQuery);
end;

Answer 7

同意jiaai(逍遥游) ：AdoCon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False'在FORM上放一个AdoConnection和一个Adoquery控件，然后设置adoconnection的ConnectionString属性，连接方式选择Microsoft.Jet.OLEDB.4.0，指定access数据库文件，如果点“测试连接”成功的话就OK了。
剩下对access文件操作，只需对adoquery进行各种操作就行了。

Answer 8

用Insert语句向数据库插入数据

Answer 9

干吗不用DBEDIT等。这样方便多了。

Answer 10

对啊，这样的例题到处都有，不要跳跃，好好看书，扎实点。我们虽然能帮你一时，但毕竟还是要你自己好好学。AdoQuery 可以直接连接，不过对于项目而言，最好用一个Adoconnection；以避免多次的登录数据库。
 
 这里一段试列代码，你自己看看，能帮你解决问题
 
 //假设你已经用AdoConnection连接到数据库 
 Procedure BtnInsertDateClick（……）；
 var
   AdoQuery:TAdoQuery;
 begin
   AdoQuery:=TAdoQuery.Create(nil);
   AdoQuery.Connection:=AdoConnection;
   with AdoQuery do
   begin
 Close;
   
 end；

Answer 11

对啊，这样的例题到处都有，不要跳跃，好好看书，扎实点。我们虽然能帮你一时，但毕竟还是要你自己好好学。AdoQuery 可以直接连接，不过对于项目而言，最好用一个Adoconnection；以避免多次的登录数据库。
 
 这里一段试列代码，你自己看看，能帮你解决问题
 
 //假设你已经用AdoConnection连接到数据库 
 Procedure BtnInsertDateClick（……）；
 var
   AdoQuery:TAdoQuery;
 begin
   AdoQuery:=TAdoQuery.Create(nil);
   AdoQuery.Connection:=AdoConnection;
   with AdoQuery do
   begin
     Close;
     SQL.Clear;
     SQL.Text:='Insert into TableName (FieldNameList) values (valueList)'; 
               //在上面生成正确的SQL描叙。
               //其中TableName 代表表名；
               //FieldNameList代表字段列表，用逗号格开
               //valueList代表值的列表。
     Prepared:=True;
     Try
       ExecSQL;     Except
       MessageBox(0,'DATA NOT INSERT.','ERROR...',MB_ICONERROR);
     end;   
 end；

Answer 12

谢谢各位,用DBEDIT搞定了,不知大家用过DBDateTimeEditEh1 没有,和DBEDIT差不多的,