cnn.open "provider=SQLOLEDB;Persist Security Info=true;User

Id=數據庫用戶名;PassWord=數據庫密碼; Initial Catalog=數據庫名;Data Source=遠程ＩＰ地址"

２.ＯＤＢＣ連接

cnn.open "provider=MSDASQL;Persist Security Info=true;User

Id=數據庫用戶名;PassWord=數據庫密碼; Initial Catalog=數據庫名;Data

Source=ODBC名"

第二種

？"driver={SQL

Server};server=Test;uid=Test;pwd=Test;database=TestDatabase

把server=Test的Test改成公網服務器的IP就可以了。。當然。公網服務器上肯定要先裝一個SQLServer。。

VB使用ADO數據庫可以分為有源數據庫和無源數據庫，即是否使用了DSN數據源，如下例：

1、在連接數據庫前首先要在VB菜單中“工程”-“引用”從中選擇

microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects

recordset 2.6兩個組件，這是在連接數據前所必做的工作。

2、接下來定義ADO的連接對象，如下所示：

Set conn = New

ADODB.Connection

Set rs = New

ADODB.Recordset

第一種方法采用的是無源的數據庫連接方法

conn.ConnectionString = "Driver={sql

server};server=JSZX3-11;uid=sa;pwd=;database=wzc"

conn.ConnectionTimeout =

30

conn.Open

rs.Open "select 用戶名,密碼 from login where 用戶名='" &

Trim(Combo1.Text) & "' And 密碼='" & Trim(Text1.Text) & "'", conn,

adOpenStatic, adLockReadOnly, adCmdText

If rs.EOF = True And rs.BOF Then

m

= MsgBox("請重新登錄", vbExclamation)

Text1.Text =

""

Text1.SetFocus

Else

Form1.Hide

End

If

rs.Close

這是第二種方法連接數據庫的方法，這一種方法是采用有源的方法與數據庫連接的方法，代碼如下所示：

Set conn =

New ADODB.Connection

Set rs = New ADODB.Recordset

conn.ConnectionString =

"DSN=login;uid=sa;pwd=;"

conn.ConnectionTimeout = 30

conn.Open

rs.Open

"select 用戶名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText

Dim i

As String

For t = 0 To Val(rs.RecordCount) - 1

i =

Trim(rs.Fields("用戶名").Value)

rs.MoveNext

Combo1.AddItem i

Next

t

rs.Close

連接數據庫的方法很多很多，只要各位去勇敢的償試一下，就可以感覺數據庫的方法并不是很難，本人以前也很想做這方法的工作，只是學識不深，未能完成胸中大志，如今對這些方法的多少有一些了解，特意為那些初學者以供學習之用。

總結

以上是生活随笔為你收集整理的vb 访问远程mysql_ＶＢ连接远程数据库的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。