易截截图软件、单文件、免安装、纯绿色、仅160KB

vb和asp如何用remote访问远程数据库


引自:http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
访问远程数据库的情况有以下几种:
1)访问远程数据库的access数据库
2)访问远程mssql数据库或oracle等其他关系数据库,但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过,其余条件不保证能正常运行
在mdac的Service Providers中包括Microsoft OLE DB Persistence Provider,Microsoft OLE DB Remoting Provider,等等,就不详细说了
,我们今天要用到的是Microsoft OLE DB Remoting Provider。
看一下MS Remote的范例:
MS Remote - Access (Jet)
  i)ODBC DSN:
    oConn.Open "Remote Server=http://<ServerName>;" & _  //服务器域名或ip,如果在局域网就是服务器名字
      "Remote Provider=MSDASQL;" & _
      "DSN=AdvWorks;" & _                              //注意,这里的odbc是指服务器端的
      "Uid=admin" & _                                  //访问该odbc指向数据库的用户名
      "Pwd=;"                                          //见上,密码
  ii)OLE DB Provider:
    oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://carl2;" & _
      "Remote Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=\somepath\mydb.mdb;", _
      "admin", ""
  iii)OLE DB Provider自定义事务对象
    oConn.Open "Provider=MS Remote;" & _
      "Remote Server=http://carl2;" & _
      "Handler=MSDFMAP.Handler;" & _


相关文档:

VB 编程中如何使窗口右上角的关闭按钮(X)失效

1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
        Cancel = True
       End Sub
    2、Private Sub
Form_Unload(Cancel As Integer)
        Cancel = ......

asp常见的连接字符串

Access 连接字符串
strConnect = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDatabase.mdb;”
Access 2007 连接字符串
strConnect = “Provider=Microsoft.ACE.OLEDB.12.0;Mode=Share Exclusive;Data Source=C:\MyDatabase.accdb;”
MSSQL Server 连接字符串
strConnect = &ldquo ......

VB获取执行程序图标

一个CommonDialog,一个CommandButton,一个PictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......

VB实现全窗体移动

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Priva ......

asp获取ip地址

摘自:http://shawangkun.woku.com/article/2723424.html
最简单的用以下语句:
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:
<%Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_F ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号