作者在 2011-05-19 12:00:07 发布以下内容
大学学了将近两年的Java，毕业了找到的工作却是VB开发！刚开始有点纠结，毕竟Java学了那么多年，学费都还没赚回来，就要转头去学VB。。。当面对生存这一人生的抉择时，我淡定了....反正都是码代码，用那种语言都是一样的命。。。唉，学吧。。。。好了，切入正题，记录自己走出校门的成长轨迹！希望自己能坚持走下去...同时也希望跟初学者一起进步。
在连接本地计算机的SQL 2005时捣鼓了好久，最终没办法，把数据库卸了重装，最后最后终于给连上，真给力...不解释，代码贴上：
Public Conn As New ADODB.Connection
Public Function GetConn()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Lgh_text;Data Source=(local) ;Password=admin"
Conn.Open
End Function
Private Sub Command1_Click()
If Conn.State = 1 Then
MsgBox "恭喜你，连上数据库！", vbOKOnly, "系统提示"
Else
MsgBox "很遗憾，没有连上数据库！", vbOKOnly, "系统提示"
End If
End Sub
Public Function GetConn()
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Lgh_text;Data Source=(local) ;Password=admin"
Conn.Open
End Function
Private Sub Command1_Click()
If Conn.State = 1 Then
MsgBox "恭喜你，连上数据库！", vbOKOnly, "系统提示"
Else
MsgBox "很遗憾，没有连上数据库！", vbOKOnly, "系统提示"
End If
End Sub
注释：sa 和 admin 为用户自己设定的数据库访问名和密码，Lgh_text 为你所要访问的数据库名。以上代码搞定！
连接远程数据库服务器跟连接本地数据库差不多，只需要做稍微的修改就可搞定,如下：
sa 和 admin 还是为服务器上的数据库的访问名和密码，Lgh_text 为你所要访问的数据库名，同时将Data Source=(local) 的（local）修改成你服务器的访问IP地址，如Data Source=XXX.XXX.XXX.XXX，然后所有问题搞定，然后你就可一对数据库进行增删改查操作了。