请问在vb中如何实现不添加adodc控件，而纯用代码实现连接access2000数据库

Question

请问在vb中如何实现不添加adodc控件，而纯用代码实现连接access2000数据库

Answer 1

引用ADO2.5
先定义一个ADOCONNECTION ,连接字符串就是ADODC中一样的字符串
再OPEN CONNECTION再定义一个ADORecordSet,用SQL语句打开,应该是这样吧,最简单的方式

Answer 2

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\ado\test.mdb;Persist Security Info=False"
cn.Openrs.Open "select * from table", cn, 3, 3

Answer 3

先选择"工程/引用"菜单,选择"Microsoft Activex DataObjects 2.0",Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
    '连接 SQL ANYWHERE 数据库
    'cn.ConnectionString = "Driver={Sybase SQL Anywhere 5.0};DatabaseFile=" & App.Path & "\数据库\Refer.DB;DatabaseName=Refer;UID=dba;PWD=sql;AutoStop=yes;Agent=engine;Start=" & App.Path & "\数据库\dbeng50.exe -Q"
    cn.ConnectionString = "DSN=refer;UID=dba;PWD=sql"    '连接 SYBASE 数据库
    cn.ConnectionString = "Driver={Sybase System 11};SRVR=;DATABASE=;UID=;PWD="
    
    '连接 SQL SERVER 数据库
    'cn.ConnectionString = "Driver={SQL Server};SERVER=;DATABASE=;UID=;PWD="

Answer 4

cn.open '打开数据库连接
rs.open "select * from tablename", cn, adOpenDynamic, adLockPessimistic
'打开数据表

Answer 5

可以用DAO 3.6或ADO 2.7以上版本

Answer 6

'"工程/引用"菜单,选择"Microsoft Activex DataObjects 2.5"
Option Explicit
Public MdbConn As New ADODB.Connection'功能简介：建立本地数据库公共链接
'参数一：MDB数据库地址路径
'返回值："ok"--成功
Function PulbicMdbConn(ByVal StrPath As String) As String
    On Error GoTo MdbConnErr
    Dim StrSql As String
    StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
    If MdbConn.State <> 0 Then MdbConn.Close
    MdbConn.Open StrSql
    PulbicMdbConn = "ok"
    Exit Function
MdbConnErr:
    PulbicMdbConn = Err.Description
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function'功能简介：关闭本地数据库公共链接
Function PublicMdbClose()
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function

Answer 7

'用ADODB对象
'"工程/引用"菜单,选择"Microsoft Activex DataObjects 2.5"
   dim N as long
   Dim strSQL As String
   
   dim conn as New ADODB.Connection
   dim rs as New ADODB.Recordset
   
   strSQL = App.Path & "\Biblio.mdb"
   strSQL = Replace(strSQL, "\\", "\")
   
   With conn
       If .State = adStateOpen Then
          .Close
       End If
       .CursorLocation = adUseClient
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
       .Open
   End With
     
   With rs
       .Open "Select * from Authors;", conn, adOpenStatic, adLockOptimistic
       If .BOF And .EOF Then
          msgbox "没有任何记录"
          Exit Sub
       End If
       .MoveFirst
       .movelast
       msgbox "有" & .recordcount & "条记录!"
       N = .recordcount
   End With