偶是MM,有问题想请各位帮忙

Question

我用VB开发一个学生档案管理系统,原数据库是用ACCESS来做的,现在要用SQL来做,数据库我已经连好了,但不知道如何改代码,原设计器中的代码为
    Private Sub DataEnvironment_Initialize()
    '根据目录所在的位置，改变ADO所使用的的连接字符串
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
    strConn = strConn & App.Path & "\student.mdb" & ";Persist Security Info=True"
     Con.ConnectionString = strConn
End Sub
想请问怎么样改这代码就能正确进行程序!!!
  帮帮忙啊,很急,在线等!!!

Answer 1

strConn = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=youdatabase;Data Source=127.0.0.1"用户名、密码、数据库、服务器替换成你的就行了

Answer 2

Private Sub DataEnvironment_Initialize()
    Con.CommandTimeout = 45
    Con.Provider = "sqloledb"
    Con.Properties("Data Source").Value =服务器名
    Con.Properties("Initial Catalog").Value = 数据库名
    Con.Properties("Persist Security Info").Value = False
    Con.Properties("User ID").Value = "sa"
    Con.Properties("Password").Value =数据库密码
    
    Con.CursorLocation = adUseServer
    Con.Open
End Sub

Answer 3

strConn = "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=youdatabase;Data Source=127.0.0.1"Data Source=127.0.0.1 是你机器的IP
User ID=sa            是你机器安装sqlserver的用户名
Password=123          是你机器安装sqlserver的sa 的密码
Initial Catalog=youdatabase 是你的数据库

Answer 4

那么你就添加个adodc自己连接测试生成connectionstring
这个招数比较土，但是管用

Answer 5

我添加adodc了,生成代码是"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=StudentSQL;Data Source=WANG"可是还是不行.
问题复杂化了!!!哎哎

Answer 6

你adodc测试的时候不就告诉你是否成功了么？
如果不成功也会告诉你原因的别着急你再看看错误信息是什么

Answer 7

樓上的很多都是正確的了。我就不再廢話了，LZ很聰明，表明自己是MM，引來很多人幫忙啊，哈哈。