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

后来在网上看到很多都说是打包时没有把一些相关控件打包进去！但还是不知道具体该怎么做！有没有高手指点下！我连接数据库的代码如下：SubConnSave()'OnErrorGoToerrDimDBconnAsNewAD...

后来在网上看到很多都说是打包时没有把一些相关控件打包进去！但还是不知道具体该怎么做！ 有没有高手指点下！

我连接数据库的代码如下：

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

展开