s=trim(command())
創(chuàng)新互聯(lián)公司"三網(wǎng)合一"的企業(yè)建站思路。企業(yè)可建設擁有電腦版、微信版、手機版的企業(yè)網(wǎng)站。實現(xiàn)跨屏營銷,產(chǎn)品發(fā)布一步更新,電腦網(wǎng)絡+移動網(wǎng)絡一網(wǎng)打盡,滿足企業(yè)的營銷需求!創(chuàng)新互聯(lián)公司具備承接各種類型的網(wǎng)站設計、網(wǎng)站制作項目的能力。經(jīng)過十年的努力的開拓,為不同行業(yè)的企事業(yè)單位提供了優(yōu)質(zhì)的服務,并獲得了客戶的一致好評。
'取得命令行參數(shù)
應該是這個形式:FastCopy.exe
網(wǎng)絡目錄名,文件名
's的返回值是
網(wǎng)絡目錄名,文件名
如:“\\liang\,myadd.exe"
'然后為了區(qū)分開目錄名和文件名,就查找","號
p=instr(1,s,",")
'如果找到就分別取“,”前面的目錄和后面的應用程序名。
ADO控件與數(shù)據(jù)庫連接代碼如下Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() '插入數(shù)據(jù): If rs.State adStateClosed Then '檢查記錄集狀態(tài) 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數(shù)據(jù) 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文件或綠色直接可執(zhí)行的exe文件
3.
不喜歡vb6可以刪除之,但必須再安裝同類型的.net的ide產(chǎn)品后也可以
我自己寫過一個這樣的程序,但是由于我有商業(yè)用途,不方便給你源代碼,給你點思路吧。
1、在你的網(wǎng)站上放一個可以存放文件版本信息的txt文件。
2、當打開你的程序時,先下載這個文件(這個步驟在網(wǎng)上搜索一下,很多這方面的資料)
3、讀取該文件中的版本信息,如果與當前本機版本信息不符,啟動中間升級程序,用第二步中的方法下載新的exe文件。并且記得關閉你正在運行時的vb程序,為了后面替換用。
4、檢查新下載的文件完整性,然后替換該文件。