VB連接Access2000,SQL server2000

最新推荐文章于 2015-08-18 22:39:23 发布

原创最新推荐文章于 2015-08-18 22:39:23 发布 · 1.8k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#sql server #access #vb #datagrid #security

VB程序专栏收录该内容

5 篇文章

订阅专栏

Private Sub Form_Load()
    Dim strConn As String
    Dim pubConn As New ADODB.Connection
    Dim rsTable As New ADODB.Recordset
    Dim strSQL As String

    'Access 2000的連接
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/North.mdb;Persist Security Info=False"
    'SQL Server2000的連接
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=true;Initial Catalog=DataBaseName;User ID=develop; password=12345;Data Source=HostIP"        
    pubConn.Open strConn

    rsTable.CursorLocation = adUseClient
    strSQL = "select  * from TableName"
    rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
    Set DataGrid1.DataSource = rsTable

End Sub