求高手 vb中怎么将access数据库连接改成sql数据库连接

我这有文件有谁帮我改下

2024-12-10 13:02:54

推荐回答（4个）

回答（1）：

用ADO连接改一个地方：
连接字符串的驱动器和数据源属性：
SQL格式是：
adodc1.connectionstring="driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=密码;database=数据库名"
分别要写清驱动器名；服务器名；用户名；密码；数据库名
ACCESS也一样
adodc1.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=文件路径;UID=用户名;Pwd=密码"
这就是两者的根本区别。我建议你用ADO控件来连接理解会直观一点，用ADO你未必理解。
ADO控件直接给他的ConnectionString属性和RecordSource属性赋值，太复杂的代码容易把蚂蚁想象成大象。

回答（2）：

这个函数很好用，至今封装了连接数据库并执行sql语句，只需把sql语句当作参数传进来调用就可以了！！
Private Function Selectsql(SQL As String) As 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
ConnStr = "Provider=SQLOLEDB.1;Data Source=[数据库实例];Initial Catalog=数据库名称;Integrated Security=SSPI;"
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
Set Selectsql = rs
End Function

回答（3）：

这个事SQL连接Data Source=.\SQLEXPRESS;Initial Catalog=数据库名;uid=用户名;pwd=密码
这个是Access连接
string strConnection = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=";
strConnection += @"你的Access数据库名";

回答（4）：

sql :
Set Conn = New ADODB.Connection
ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=网络考试综合系统"
conn.open connectionstring
Access:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = 网络考试综合系统.mdb"
Adodc1.RecordSource = "SELECT * FROM ....."