VB如何连接ADO数据库

Question

对于连接ado数据库，你可以使用ADODC控件。然后再设置一下这个控件的属性。点击属性的connecting的属性。具体的你可以仔细看一下。然后再在属性栏里改变他的大DATA？属性。
对于sql语言ado一样支持。

Answer 1

我给你写出个例子：
首先在工程->引用 Microsoft ActiveX Data Objects 2.0 Library
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Private Sub Form_Load()
'以文件打开,也可以指定ODBC数据源（DNS）
Private Sub OpenDiskMdb()
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Dim ConnStr As String
Set Cn = New ADODB.Connection
Set Re = New ADODB.Recordset
Cn.Open "Provider=Microsoft.jet.OLEDb.3.51;Data Source=e:\db\01.mdb" '打开磁盘上的数据库
Re.CursorLocation=adUseClient 
SqlStr = "select * from titles " ‘SQL语句
Re.Open SqlStr, Cn, adOpenStatic, adLockReadOnly
End Sub
'这样所查询的内容在Re内可以用网格控件来显示。

Answer 2

不好意思上面多了一个SqlStr的定义，请删除一个定义可以运行。

Answer 3

Access 2000，我好象还没用ADO直接连接成功过。

Answer 4

对于微软提供的ADO控件，我个人认为并不好用，最好自己开发一个，不难的！MSDN中提供了一个例子(当然，很简单，靠不住 ^_^)。ADO不难，主要有三个对象,但ADO还在雏形阶段...
常交流，我的伊妹儿：bob7946@yeah,net

Answer 5

对于微软提供的ADO控件，我个人认为并不好用，最好自己开发一个，不难的！MSDN中提供了一个例子(当然，很简单，靠不住 ^_^)。ADO不难，主要有三个对象,但ADO还在雏形阶段...
常交流，我的伊妹儿：bob7946@yeah,net

Answer 6

对于微软提供的ADO控件，我个人认为并不好用，最好自己开发一个，不难的！MSDN中提供了一个例子(当然，很简单，靠不住 ^_^)。ADO不难，主要有三个对象,但ADO还在雏形阶段...
常交流，我的伊妹儿：bob7946@yeah,net

Answer 7

多谢大家。
ADO和DAO比，是不是ADO好一点？
还有开发ADO控件，用VC还是VB呢？

Answer 8

ADO是微软的主推技术,所以还是用Ado好啊

Answer 9

一个比较简单的方法是使用DataEnvironment。在这里DataEnvironment对象本身可以被看作是一个由VB管理的ADOConnection。其下的Command，既是一个ADOCommand,也会在运行时生成一个对应的recordset.
    例如：Dataenvironment1下有Command1，意味着在运行时会有rsCommand1
当然，当任务不复杂时还是自己生成相应的对象比较灵活。

Answer 10

我这里有一段代码：Public Sub getwrw()
    Dim cn As New Connection, cmd As New ADODB.Command, rst As New ADODB.Recordset
    Dim i As Integer
    cn.Open "DSN=tbbt;UID=sa;PWD=;"
    Set cmd.ActiveConnection = cn
    cmd.CommandText = "select * from wrwdm"
    rst.CursorLocation = adUseClient
    rst.Open cmd, , adOpenStatic, adLockBatchOptimistic
    rst.MoveFirst
    wrwnum = rst.RecordCount - 1
    For i = 0 To wrwnum - 1
        wrwinfo(i, 0) = Trim(rst.Fields("wrwdm"))
        wrwinfo(i, 1) = Trim(rst.Fields("wrwmc"))
        wrwinfo(i, 2) = Trim(rst.Fields("wrwlc"))
        wrwinfo(i, 3) = Trim(rst.Fields("wrwdw"))
        rst.MoveNext
    Next
    Set rst = Nothing
    Set cmd = Nothing
    Set cn = Nothing
End Sub
我用的是MS SQL，不过ASCESS2000也差不多。

Answer 11

呵呵
你先用数据环境 生成一个ADO连接字符串 在 自己定义几个命令对象 和纪录集对象就可以用了 很简单的要是在 两年前 我也会问这个问题