VB远程连接数据库字段设置

<1> : 连接字符串为:

Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=用户名;Initial Catalog=数据库名称Data Source=远程主机IP

 

<2> :

1.引用ADO
2.定义连接
Dim Conn as New Connection
3.设置连接串
Conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器IP或名称;UID=登录用户名;PWD=登录密码;initial catalog=数据库的名称"

 

<3> : demo program :

Private Sub Timer1_Timer()
Dim ConnX As New ADODB.Connection
'生成连接字符串
ConnX.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=jnjw2008;Initial Catalog=tygl;Data Source=192.168.0.119"

On Error GoTo ConnErr
    '连接数据库
    ConnX.Open
    MsgBox "连接数据库成功！服务已启动...", vbInformation, "连接"
   
    Exit Sub
ConnErr:
    MsgBox "连接数据库错误！", vbInformation, "连接" 
End Sub