重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
下面是转贴的代码,和访问自己电脑上的ACCESS操作是一样的,无非是登录以及访问的问题, 代码中的192.168.2.36可以换成你需要的远程电脑的IP.
成都创新互联是一家集网站建设,邵阳企业网站建设,邵阳品牌网站建设,网站定制,邵阳网站建设报价,网络营销,网络优化,邵阳网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
========================
如果想每次都能自动通过验证
在当前目录上建立一inf文件,如Server.inf(其它格式文件也可)
文件内容如下:
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
先将该网络路径挂载至一个盘(例子:Z)
然后image.fromfile("z:\1.jpg")
如果要程序直接连接DB2数据库,必须要有连接数据库的驱动程序,连接的代码,你可以参考如下(以前用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;
}
如果你是开发桌面程序而又不想在客户端安装数据库的驱动程序,那么你可以采用web网站(含webservice)或者remoting方式,只需要在服务端安装驱动即可
可以利用套接口socket建议TCP或UDP连接,进行传输。具体可以查下关于套接口方面的资料。