下面是轉(zhuǎn)貼的代碼,和訪問自己電腦上的ACCESS操作是一樣的,無非是登錄以及訪問的問題, 代碼中的192.168.2.36可以換成你需要的遠(yuǎn)程電腦的IP.
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),邵陽企業(yè)網(wǎng)站建設(shè),邵陽品牌網(wǎng)站建設(shè),網(wǎng)站定制,邵陽網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,邵陽網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
========================
如果想每次都能自動通過驗(yàn)證
在當(dāng)前目錄上建立一inf文件,如Server.inf(其它格式文件也可)
文件內(nèi)容如下:
net use \\192.168.2.36 "密碼" /user:administrator
Private Sub Form_Load()
Dim CnStr As String
Dim Fn As Integer
Fn = FreeFile
Open App.Path "\Server.inf" For Input As #Fn
Line Input #Fn, ServerConn
Close #Fn
Shell (ServerConn)
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= \\192.168.2.36\c$\Program Files\Sygate\SON\Db\EventLog.mdb;Jet OLEDB:Engine Type=5"
Cn.Open CnStr
End Sub
先將該網(wǎng)絡(luò)路徑掛載至一個盤(例子:Z)
然后image.fromfile("z:\1.jpg")
如果要程序直接連接DB2數(shù)據(jù)庫,必須要有連接數(shù)據(jù)庫的驅(qū)動程序,連接的代碼,你可以參考如下(以前用C#寫的,你改成VB.NET即可,ODBC連接對象)
public?OdbcConnection?Db2Conn()
{
string?str?=?"DRIVER=IBM?DB2?ODBC?DRIVER;UID=db2admin;PWD=db2admin;AUTHENTICATION=SERVER;PORT=50000;HOSTNAME=192.168.100.98;PROTOCOL=TCPIP;DATABASE=YCDATA";
OdbcConnection?Conn?=?new?OdbcConnection(str);
return?Conn;
}
如果你是開發(fā)桌面程序而又不想在客戶端安裝數(shù)據(jù)庫的驅(qū)動程序,那么你可以采用web網(wǎng)站(含webservice)或者remoting方式,只需要在服務(wù)端安裝驅(qū)動即可
可以利用套接口socket建議TCP或UDP連接,進(jìn)行傳輸。具體可以查下關(guān)于套接口方面的資料。