在CB中用ADO访问数据库

因为我刚学CB不久，用ODBC访问我是会的。但是试学用ADO总是出问题，请各位高手给过一段代码看看,感激得泪汪汪…… 问题点数：5、回复次数：5Top

1 楼Wingsun（孙春阳）回复于 2001-10-14 11:09:32 得分 5

BCB的Examples目录下有ADO的例子，你自己去看看吧！很好的。Top

2 楼cmsoft（韦小宝是我的老乡)(草根在路上）回复于 2001-10-14 11:36:53 得分 0

老大：  
      用DataModule，还有ConnectionString这么做啊，给段代码看看吧Top

3 楼cmsoft（韦小宝是我的老乡)(草根在路上）回复于 2001-10-14 11:54:12 得分 0

大家看我在CB里做了一个很简单的东东：一个Form1和DataModule1(ADODataSet1,ADOCommand1),我用的公用数据模块  
  假如在Form1里做一个用户登录窗口吧，通过用户名和密码查数据库对应用户表的记录，如果用户存在则登录成功。看下面代码错在什么地方？  
  在DataModule中的OnCreate事件中加：  
  void   __fastcall   TCeCRM_DataModule::db_conn(TObject   *Sender)  
  {  
      CeCRM_ADOConnection->Close();  
      CeCRM_ADOConnection->ConnectionString="Provider=SQLOLEDB.1;Persist   Security   Info=False;User   ID=sa;Initial   Catalog=kn;Data   Source=CM";  
      CeCRM_ADOConnection->LoginPrompt=false;  
      CeCRM_ADOConnection->Connected=true;  
      }  
  //---------------------------------------------------------------------------  
  在Form1中  
  void   __fastcall   TfrmLogin::cmbyesClick(TObject   *Sender)  
  {  
   
      CeCRM_DataModule->ADOCommand1->CommandText="SELECT   *   FROM   Tblorder"   ;  
      CeCRM_DataModule->ADODataSet1->Recordset=CeCRM_DataModule->ADOCommand1->Execute(CeCRM_DataModule->ADOCommand1->CommandText);  
   
      //   if   (Username->Text=="")  
      if(!CeCRM_DataModule->ADODataSet1->Recordset->Eof)  
              ShowMessage("正确");  
              return;  
   
  }  
  //---------------------------------------------------------------------------   Top

4 楼cmsoft（韦小宝是我的老乡)(草根在路上）回复于 2001-10-14 17:20:42 得分 0

高手，看看上面的代码有什么不对劲的……Top

5 楼dycdyc123（重出江湖）回复于 2001-10-14 19:51:16 得分 0

xxTop

相关问题

• ado
• 代码
• 用户
• cecrm
• datamodule
• adocommand
• adoconnection
• adodataset
• cb
• 看看

• 帖主：cmsoft
• Wingsun

• CSDN Blog
• 技术文档
• 代码下载
• 第二书店
• 读书频道