标题:vb编的小程序安装运行错误问题
取消只看楼主
lhj56459897
Rank: 2
等 级:论坛游民
帖 子:19
专家分:47
注 册:2017-7-8
结帖率:66.67%
 问题点数:0 回复次数:1 
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编辑过]

搜索更多相关主题的帖子: vb 安装 Path Set Next 
2017-07-13 11:24
lhj56459897
Rank: 2
等 级:论坛游民
帖 子:19
专家分:47
注 册:2017-7-8
得分:0 
己解决,下载了个Setup Factory 9 Trial打包安装就可以了,不知道是哪个控件没定义。
2017-07-13 21:47



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-479362-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.174460 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved