UC知道vb程序利用ado更换电脑怎么办？
来源：百度知道 编辑：UC知道 时间：2024/05/21 20:04:15
vb+sqlserver的问题，我用ado连接，但是模块代码里有自己电脑的信息，如果把程序打包以后，安装到别的已装有sqlserver2000的电脑上，会出错。怎样使连接位置可以变化？
我在模块和窗体代码中都有Public Function connecttoserver() As Boolean
cnn.ConnectionString = "DRIVER={SQL SERVER};SERVER=YANG-CEBD011996;UID=sa;PWD=;Database=BAM"
cnn.ConnectionTimeout = 30
cnn.Open
connecttoserver = True
End Function
窗体里是Private Sub Form_Load()
Dim connstr As String
Dim sql As String
connstr = "DRIVER={SQL SERVER};SERVER=YANG-CEBD011996;UID=sa;PWD=;Database=BAM"
cnn.Open connstr
rst.CursorLocation = adUseClient
sql = "select * from tbl_STUserData"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rst
End Sub
SERVER=？？怎么变化呢？如果不变就只能在一台电脑上使用了。
我在模块和窗体代码中都有Public Function connecttoserver() As Boolean
cnn.ConnectionString = "DRIVER={SQL SERVER};SERVER=YANG-CEBD011996;UID=sa;PWD=;Database=BAM"
cnn.ConnectionTimeout = 30
cnn.Open
connecttoserver = True
End Function
窗体里是Private Sub Form_Load()
Dim connstr As String
Dim sql As String
connstr = "DRIVER={SQL SERVER};SERVER=YANG-CEBD011996;UID=sa;PWD=;Database=BAM"
cnn.Open connstr
rst.CursorLocation = adUseClient
sql = "select * from tbl_STUserData"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rst
End Sub
SERVER=？？怎么变化呢？如果不变就只能在一台电脑上使用了。
strSQL = "Driver={sql server};Server=" & ServerName & ";PWD=;UID=sa;Database=BAM"
ServerName 为计算机名称，本机可以用"."，远程主机用"\\计算机名称"
strSQL 用于向 cnn.ConnectionString 赋值