vb中如何自动获得本地SQL的服务器名和密码

Question

最近做的一个VB课程设计，用的是SQL数据库，并且代码中的SQL服务器名和密码都是我自己的，要交作业，我怕到老师机子上调试的时候出错，请问在我的代码中怎么写就可以获得别的机子上的SQL服务器名和登录密码？
这是我的数据库连接代码 
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn As String
Dim sql As String
strconn = "provider=SQLOLEDB.1;server=GL-PC;persist security info=false;UID=sa;pwd=415024522;database=Drug"
conn.Open strconn
conn.CommandTimeout = 20

Answer 1

不好意思，我的问题没说明白，我是想在登录窗口加上两个文本框，用来输入SQL登录名和密码，然后让数据库连接代码里的数据库登录名和密码从这两个文本框中获取，应该怎么样写代码呢？具体一点，还请各位高手可以帮忙解决，小弟不胜感激！

Answer 2

一下题目，挺吓人的。Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strconn As String
Dim sql As String,UID as string,PWD as string
UID=txtUserName:PWD=txtPassword    
strconn = "provider=SQLOLEDB.1;server=GL-PC;persist security info=false;UID=" & UID & ";pwd=" & PWD & ";database=Drug"
conn.Open strconn
conn.CommandTimeout = 20

Answer 3

使用脚本在老师机器上的drug数据库中新建一个sql帐户和密码(老师的机器应该包含Drug这个数据库吧)。然后你的数据库连接中，就使用这个你新建的帐号和密码，看看是否可以。