vb 访问远程mysql_vb怎么连接上远程SQL数据库

不知道你为什么要用ADOC来配置...直接用VB代码就OK了。

公共模块：

Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset对象

Dim ConnStr As String

Dim Conn As ADODB.Connection

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set Conn = New ADODB.Connection

'On Error GoTo MyErr:

ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登录数据库用户名(默认为sa);Password=登录数据库密码;Initial Catalog=数据库名;Data Source=服务器名(IP地址)" '这是连接SQL数据库的语句

Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

End Function

调用：

SQL = "SELECT * FROM 用户表 WHERE 用户名='" & Combo1.Text & "' AND 密码='" & Text1.Text & "' "

Set rs = Selectsql(SQL)

取消

评论