● VB中使用ADO - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: baty (新一代懒人), 信区: Database
标  题: VB中使用ADO
发信站: BBS 荔园晨风站 (Mon Mar 12 22:01:30 2001), 转信

【以下文字转载自 baty 的信箱】
【原文由 baty.bbs@argo.zsu.edu.cn 所发表】
发信人: fellow (编程浪子), 信区: Database
标  题: VB中使用ADO
发信站: 逸仙时空 Yat-sen Channel (Sat Oct 28 22:03:41 2000), 站内信件

第一步:在自己的项目中加入ActiveX数据对象的引用
      Select VBMainMenu->Project->References(在以前的版本中
应该是Select VBMainMenu->Project->Projects Properties->Refer_
ences加入Microsoft ActiveX Data Object;

第二步:建立连接
      '建立一个与数据源的ADO连接,在VB中可以使用如下的代码,大家
'自己可以去试试,
      Dim fellow As New ADODB.Connection

第三步:打开连接
      strFellow="DSN=PubsTest;UID=fellow;PWD=pwd;"
      '当然你得先在ODBC中配置一个用户ID fellow
      Set fellow1=New ADODB.Connection
      fellow1.Open strFellow
      '当然,如果你想打开整个连接:
      fellow1.Open (tablename), UserID,Password,Options
      '打开连接后,你可以执行SQL语句了.
      '这里,你可以利用ADO的COMMAND对象的Excute方法;
      '例如:
      Set recordset=command.Execute(RecordsAffected,Parameters,
Options)
      fellow1.ActiveConnection=ConnectionString
      fellow1.CommandText="SELECT *FROM tablename"
      fellow1.Excute

      '你同时可以用Connection的Excute方法来执行SQL语句
      Ssql="SELECT *FROM tablename"
      fellow1.Excute Ssql,RecordsAffected
我用的环境是vb6.0/celeron 300a/windows98

                               fellow
--
欢迎到Database坐坐

※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 192.168.2.27]
--
※ 转寄:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 210.39.3.50]
--
※ 转载:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.1.118]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店