| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 607 人关注过本帖
标题: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编辑过]

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







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

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