关于一个用ado连接本地access问题！！！

Question

连接sql server 的语句是 
ConnectString = "driver={sql server};UID=gly;PWD=0319;database=personal;"
可是连接本地personal数据库是如何的写呢？哪位大哥告诉小弟吧！
别外连接远程的sql sql 语句又是如何写呢！

Answer 1

access数据库用如下的连接，Data Source得值改为你的数据库的路径
ConnectString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False
Sql Server用如下：Data Source改为你的远程连接地址或名字
ConnectString = "driver={sql server};UID=gly;PWD=0319;database=personal;Data Source=127.0.0.1"

Answer 2

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;Persist Security Info=False

Answer 3

通过OLE DB打开C:\SYSDB.MDBProvider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SYSDB.mdb;Mode=ReadWrite;Persist Security Info=False在VB中有个DataEnvirmonment,设置Connection的属性,可选择通过OLE DB、ODBC等不同方式连接数据库，设置好后观察Connection的ConnectionSource属性，这个属性就是你所需要的ConnectString，通过这个方法得到的连接串准确无误。

Answer 4

Public fMainForm As frmMain
Public gintMode As Integer
Public flagEdit As BooleanSub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        'Login Failed so exit app
        End
    End If
    Unload fLogin
    Set fMainForm = New frmMain
    fMainForm.Show
End SubPublic Function ConnectString() _
   As String
'returns a DB ConnectString
   'ConnectString = "driver={sql server};UID=gly;PWD=0319;database=personal;"
  ConnectString = "provider=microsoft.jet.oledb.4.0;data source=" + App.Path + "\personnel.mdb;"
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      'rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = "查询到" & rst.RecordCount & _
         " 条记录 "
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "查询错误: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function
'将enter换成tab
Public Sub EnterToTab(Keyasc As Integer)
    If Keyasc = 13 Then
        SendKeys "{TAB}"
    End If
End Sub这是我的源程序！大家帮忙看看吧！

Answer 5

Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set DataGrid1.DataSource = Rs

Answer 6

Connect via an IP address:
"Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"

Answer 7

连接远程的sql sql 语句Connect via an IP address:
"Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"