VB联接ACCESS数据库的代码应该写在哪里啊

VB连接ACCESS数据库的代码应该写在哪里啊？
各位，VB连接ACCESS数据库的代码应该写在哪里啊？我是菜鸟
[解决办法]

Public Function OpenAccessConn()
Dim AssSql As String
On Error GoTo errOpenBDConnection:
        AssSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        txtMdbPath & ";Persist Security Info=False"
        assConn.ConnectionString = AssSql
        assConn.Open
        Exit Function
errOpenBDConnection:
        MsgBox ("Access Database Connection failed!" & vbCrLf & Err.Number & Err.Number & _
        vbCrLf & Err.Description), vbCritical, " EnterpriseIQ System"
        Exit Function
End Function

[解决办法]
可以添加一个公共模块，“工程”-“添加模块”
然后在里面写

Public cn As New ADODB.Connection 
Public rs As New ADODB.Recordset 

Public Sub OpenConn() 
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\？？？.mdb;Persist Security Info=False"     
    cn.Open
    rs.ActiveConnection = cn
    rs.CursorLocation = adUseClient
End Sub

Public Sub CloseConn()
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

要用的时候就 call OpenConn() 不用就关掉 CloseConn()
[解决办法]

引用:

可以添加一个公共模块，“工程”-“添加模块”
然后在里面写

Public cn As New ADODB.Connection 
Public rs As New ADODB.Recordset 

Public Sub OpenConn() 
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
  cn……

rs.ActiveConnection = cn
rs.CursorLocation = adUseClient
这两个是什么？

[解决办法]
http://download.csdn.net/source/1498324
[解决办法]
可以把数据库的连接放在load里面啊
[解决办法]
Private Sub Form_Load()
    datalink = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=\SFCS\data.mdb;"

……
……
End Sub

查看更多 下一篇