Question

vb如何连接上远程SQL数据库

为什么我设置ADODC控件时选择指定用户名称和密码时怎么老是连不上,如图





Answer 1

不知道你为什么要用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)

追问

请问数据库用户名和密码是对方电脑的登录用户名和密码吗

追答

不是，是SQL数据库的用户名和密码啊。。。
你不会什么都不知道吧，连接SQL数据库是要用户和密码的啊。

追问

嗯，我知道了，不过连接本机是成功了，但如何让我的程序在别的电脑也能连上我的电脑，也就是数据库所在机子...

追答

你的电脑有固定的对外IP地址，防火墙开放SQL连接端口(默认1433)。然后对方连接你的对外的IP地址即可。

Answer 2

class DataBase
{
SqlConnection myconn; //作为数据库的链接对象
private String server = "localhost"; //数据库的链接
private String database = "booksys"; //数据库名称
private String username = "sa"; //数据库的登录名
private String password = "123456"; //数据库的密码

public bool databasecon()
{
string str = "server=" + server + ";database=" + database + ";uid=" + username + ";pwd=" + password; //构建字符串
try //试着去打开数据库
{
myconn = new SqlConnection(str); //新建链接，并按字符串链接
myconn.Open(); //打开数据库
}
catch (Exception ) //如果失败
{
return false;
}
return true;
}
public SqlConnection getconn()
{
return myconn;
}
public void closeconn()
{
myconn.Close();
}
}
}

这个是建立一个类，登录数据库，注释已经很详细了
你也可以在要连接数据库的load程序中，写上面这些登录代码

Answer 3

留下QQ，远程协助吧