Question

VB中ADO怎么用啊？

我下了个VB精简版 是不是不支持ADO啊 不见里面也没有 急 急 最近在做毕业设计啊 烦死饿 请问是什么原因 怎么样才能用上ADO啊？

Answer 1

• 通过选择“工程”菜单中的“引用...”来为 ADO 对象库添加一个引用，然后在“引用...”对话框中选择 Microsoft ActiveX Data Objects 2.0 Library

  

• 引用ADO的最简方法是新建一个数据工程，它会自动引用ADO和加载ADO数据控件和相关表格控件。

• 运行代码示例：

  Private Sub Command1_Click()

      Dim cn As New ADODB.Connection '定义数据库的连接

      Dim rs As New ADODB.Recordset '声明一个 Recordset 对象变量

      Dim sql As String

  
  

      sql = "select * from jishijilu"

      cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False"

      cn.Open

      rs.CursorLocation = adUseClient

      rs.Open sql, cn, adOpenDynamic, adLockOptimistic

      Set DataGrid1.DataSource = rs

  End Sub

Answer 2

VB精简版中只能用Adodb
VB企业版中可以用Adodb,也可以用Adodc了!
两种的用法基本一样啊!

下面给你一个简单的实例,希望你能学到点东西!

连接数据库

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" + App.Path + "\hkmdck\db1.mdb"
Adodc1.RecordSource = "select * from tb1"
Adodc1.Enabled = True
Adodc1.Refresh

查询当前有多少条记录；当前记录为第几条

Private Sub Command1_Click()
Label1.Caption = "数据库共有 " & Adodc1.Recordset.RecordCount & " 条记录"
Label2.Caption = "当前记录为第 " & Adodc1.Recordset.AbsolutePosition & " 条记录"
End Sub

共同学习,共同努力!!!

Answer 3

下一个vb6就可以了啊，去迅雷下，好多啊

Answer 4

别拿精简版做东西，很容易出问题的

Answer 5

工程--引用---ADO