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

连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸中大志，如今对这些方法的多少有一些了解，特意为那些初学者以供学习之用。