| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1900 人关注过本帖
标题: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
快速回复:vb编的小程序安装运行错误问题
数据加载中...
 
   



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

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