重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
s=trim(command())
创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销,产品发布一步更新,电脑网络+移动网络一网打尽,满足企业的营销需求!创新互联公司具备承接各种类型的网站设计、网站制作项目的能力。经过十年的努力的开拓,为不同行业的企事业单位提供了优质的服务,并获得了客户的一致好评。
'取得命令行参数
应该是这个形式:FastCopy.exe
网络目录名,文件名
's的返回值是
网络目录名,文件名
如:“\\liang\,myadd.exe"
'然后为了区分开目录名和文件名,就查找","号
p=instr(1,s,",")
'如果找到就分别取“,”前面的目录和后面的应用程序名。
ADO控件与数据库连接代码如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() '插入数据: If rs.State adStateClosed Then '检查记录集状态 rs.Close End If rs.Open "insert into T_user(name,age) values('" txtname.Text "'," txtage ")", conn, adOpenDynamic, adLockBatchOptimistic If rs.State adStateClosed Then rs.Close End If '更新DataGrid1数据 rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Load() conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False" conn.CursorLocation = adUseClient '游标放在客户端 rs.CursorLocation = adUseClient rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic Set DataGrid1.DataSource = rs End Sub Private Sub Form_Unload(Cancel As Integer) rs.Close '释放 conn.Close Set rs = Nothing Set conn = Nothing End Sub
微软有 Smart Device 这个东西——好像是叫这个吧。
它好像是通过 WebService 去查询最新版本,然后需要的时候下载。
vb.net生成的exe文件要在没有安装vb的电脑上运行是可以的,但有条件:
1.
要安装
.net
framework2.0或以上版本,然后就可以直接运行exe
2.
利用vb打包项目,生成可安装的exe文件或绿色直接可执行的exe文件
3.
不喜欢vb6可以删除之,但必须再安装同类型的.net的ide产品后也可以
我自己写过一个这样的程序,但是由于我有商业用途,不方便给你源代码,给你点思路吧。
1、在你的网站上放一个可以存放文件版本信息的txt文件。
2、当打开你的程序时,先下载这个文件(这个步骤在网上搜索一下,很多这方面的资料)
3、读取该文件中的版本信息,如果与当前本机版本信息不符,启动中间升级程序,用第二步中的方法下载新的exe文件。并且记得关闭你正在运行时的vb程序,为了后面替换用。
4、检查新下载的文件完整性,然后替换该文件。