Question

VB 打包后在本机可以运行 在别的电脑上运行时连接不到数据库

后来在网上看到很多都说是打包时没有把一些相关控件打包进去！但还是不知道具体该怎么做！ 有没有高手指点下！
我连接数据库的代码如下：
Sub ConnSave()
'On Error GoTo err
Dim DBconn As New ADODB.Connection
Dim rs As New ADODB.Recordset
DBconn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\data\DataConn.mdb;uid=;pwd=;"
rs.Open "select * from MyConn", DBconn, adOpenStatic, adLockOptimistic
If Not rs.EOF Then
rs!Server = Me.TxtServer.Text
'rs!Database = meirong
rs!User = Me.TxtUser.Text
rs!password = Me.TxtPsd.Text
rs.Update
Else
rs.AddNew
rs!Server = Me.TxtServer.Text
rs!User = Me.TxtUser.Text
rs!password = Me.TxtPsd.Text
rs.Update
End If
rs.Close
Set rs = Nothing
DBconn.Close
Set DBconn = Nothing
'Exit Sub
'err:
'Exit Sub
End Sub
Sub AddDataUser()
On Error GoTo err
Dim oconn As New ADODB.Connection
oconn.Open "driver={sql server};server=" & Me.TxtServer.Text & ";uid=" & Me.TxtUser & ";pwd=" & Me.TxtPsd & ";"
oconn.Execute "sp_addlogin 'sa', 'sa', 'meirong'"
oconn.Execute "use meirong exec sp_adduser 'sa','sa' ,'db_owner'"
oconn.Close
Set oconn = Nothing
Exit Sub
err:
Exit Sub

End Sub

Answer 1

跟系统没有关系，你使用了ADO引用，注意打进去，先用VB自带的打包向导打包，然后用一些专业的打包软件将这些文件全部封装进去，注意安装时不要将这些文件和你的应用程序放在一起就OK了！

Answer 2

我也很想知道这怎么办才好```