vb编的小程序安装运行错误问题
我在win7上编了一个小程序,是一个收费程序,单机用的,打包后在xp上安装,总提示系统什么程序比较旧,要重启系统,然后还是出现这样的情况,无法安装成功。。。,在vb打包的程序下有support文件夹,直接执行.exe文件,说类未注册,求大神帮助说明一下Private Sub Form_Load()
'Dim NameSTR As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\vb1\KScount.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from Tcount"
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\vb1\KScount.mdb;Persist Security Info=False"
Adodc2.RecordSource = "select * from Tcount1"
Set DataGrid2.DataSource = Adodc2
DataGrid2.Refresh
For I = 0 To 22
Form2.DataGrid2.Columns(I).Width = 1400
Next I
For I = 0 To 24
Form2.DataGrid1.Columns(I).Width = 1400
Next I
Form2.Text1.Text = DataGrid2.Columns(22).Text & "元"
Label2.Caption = "日期:" & Format(Date, "yyyy-m-d")
'Form2.Picture = LoadPicture(App.Path + "\vb1\m.jpg")
For I = 0 To 21
With Text2(I)
Set .DataSource = Adodc2
.DataField = Adodc2.Recordset.Fields(I).Name
End With
Next I
End Sub
[此贴子已经被作者于2017-7-13 14:18编辑过]