重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
步骤一:打开需要制作安装程序的VB.Net项目
创新互联建站主要为客户提供服务项目涵盖了网页视觉设计、VI标志设计、全网营销推广、网站程序开发、HTML5响应式成都网站建设、移动网站建设、微商城、网站托管及网站维护公司、WEB系统开发、域名注册、国内外服务器租用、视频、平面设计、SEO优化排名。设计、前端、后端三个建站步骤的完善服务体系。一人跟踪测试的建站服务标准。已经为成都发电机回收行业客户提供了网站开发服务。
点击菜单【文件—新建项目】出现如图01的对话框单击【其他项目类型—安装和部署】选择【安装项目】如图:
步骤二:
双击【My Project】(在“解决方案资源管理器”里面呢),如图所示。
步骤三3:单击【引用】选项卡,查看解决方案的引用项,关注一下.Net类型的引用,本解决方案引用.Net类型的版本是2.0版。查看这个信息直接关系到最终安装文件的大小。
右键单击“解决方案资源管理器”中【Setup1】,选择【添加—项目输出】,选择“主输出”后单击【确定】。
再次右键点击【Setup1】,选择【属性】,跳出对话框。
步骤四:这里的设置可是关键中的关键
步骤五:“选择要安装的系统必备组件”,解决的是运行可执行文件环境的问题运行使用VB.Net编写的程序,必须在系统中安装.Net Framework(也有软件使用虚拟环境运行的)。“查看引用”查到的信息就用到了。如果解决方案只是引用了2.0版本的框架(.Net Framework),默认的系统组件选择。
可以选择框架3.5,建议使用框架2.0,因为框架2.0大小是30M,而框架3.5却有300M之巨.指定系统必备组件的安装设置”这个选项也挺有用。如果编写了一个很简单的程序,想发布(此发布不是前述的发布)出去让大家使用,而又不想拖着少则几十兆多则几百兆的框架的话,那么可以选择第一个互斥按钮。如果担心用户在安装程序时上网不方便,不能从供应 商那儿下载框架的话,那么,只好把框架拖上喽(这也是为什么在能选择框架2.0的时候莫要选择框架3.5的原因,安装程序越小越好,用户如果安装了几百 兆的程序,发现打开的只是个简单的计算器的话,会气的摔键盘的!)
我也是学软件的 今天上图书馆看参考书,找了这方面的书。感觉《VB。Net程序设计基础教程》是针对初学者的,还有一本是《VB.NET课程设计案例精编》是通过具体的例子来实践这门语言的,但是需要一定的基础,还有一个是《VB.NET语言参考手册》主要有各个类和函数,感觉先看完《VB。Net程序设计基础教程》 然后结合《VB.NET语言参考手册》来看《VB.NET课程设计案例精编》 就搞定了 还是要注重练习
如果没有接触过VB还是学C#.net比较好,毕竟是专门为.net设计的语言。
首先在项目的VB.NET界面,使用菜单【项目】--【添加引用】--【COM】
选择 Microsoft ADO Ext. 2.x for DDL and Security
然后单击【确定】,完成引用。
完整代码如下:
Imports ADOX
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'创建空的access数据库文件--数据库文件.mdb,密码为123
Dim Mycat As Catalog = New Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source= 数据库文件.mdb;Jet OLEDB:Database Password=123")
'以下代码创建一个名为“实验数据表”
Dim MyTable As ADOX.Table = New ADOX.Table '定义新表
MyTable.Name = "实验数据表" '表命名
'给表“实验数据表” 创建一个字符串字段,字段名“姓名”
MyTable.Columns.Append("姓名", , ADOX.DataTypeEnum.adWChar)
'给表“实验数据表” 创建一个整数字段,字段名“学号”
MyTable.Columns.Append("学号", ADOX.DataTypeEnum.adInteger) '追加一个数字型字段
'给字段“学号”创建一个主键“PimaryKey_Field”
MyTable.Keys.Append("学号", ADOX.KeyTypeEnum.adKeyPrimary, "学号")
Mycat.Tables.Append(MyTable) '把所有的新字段追加到表
MyTable = Nothing
Mycat = Nothing
End Sub
End Class