Question

VB程序，原来是连接Access数据库的，现在我想把他改成连接SQL，求帮助

首先给出源代码（已经建立Access数据库）：
Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection '定义
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb" '连接数据库

现在我要把连接的数据库改为SQL，于是又建立了一个SQL数据库，名称是datebaseSQL，请问要怎么修改，先谢了

Answer 1

DefaultUser = "sa"
DefaultPwd = "123456”
SQL_Server = “127.0.0.1”
conn.Open "Provider=SQLOLEDB.1;Password=" & DefaultPwd & ";Persist Security Info=True;User ID=" & DefaultUser & ";Initial Catalog=maintenance;Data Source=" & SQL_Server
这是我的参数，你按自己的改一下

追问

我把最后一句改为：conn.Open "provider=MSDASQL;Driver={SQL server};" & _
"Server=(local);Database=databaseSQL;"
已经可以了，谢谢你的热心了

Answer 2

在工程中引用ADODB类。
然后连接语句改为：
cnnstr="driver={sql server};server=如是本机则为（local)或本机IP，如远程则写远程IP;uid=sa(数据库用户名）;pwd=sa(数据库连接密码);database=datebaseSQL(用户数据库名称）"
conn.open cnnstr

Answer 3

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Command1_Click()
Dim s As String
s = "select 学号 from 学生信息表"
Adodc1.RecordSource = s
Adodc1.Refresh
DataGrid1.ReBind
End Sub

Private Sub Form_Load()
cnn.Open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=jiaowu;Data Source=WIN-BM22B1HP794"
End Sub