运行VB时找不到工程或库
运行VB时找不到工程或库 Private Sub Form_Load() Command2.Value = 0 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Pat怎么解决啊？
按我以前的改下就可以了
Private Sub Form_Activate()
Dim s As String
s = App.Path & "\break_even.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False" '打开数据库,数据库无密码
= adCmdTable
Adodc1.RecordSource = "收款表"
Adodc1.Refresh
End Sub
[ 本帖最后由 chen3523 于 2013-9-11 20:53 编辑 ]
