vb中怎么用ADO控件连接远程数据库 啊

呵呵，正好在书上看到这方面的东西。希望对你有所帮助…………

Adodc 可以通过 ODBC连接远程数据库，具体 *** 作（设Adodc 控件名为Adodc1）

1，将ADO控件加入窗体

2，生成连接字符串

连接字符是用于确定Adodc与数据源进行连接 *** 作的字符组合，这个连接字符串有多个组成部分，如“provider=MSDASQL1;DSN=职工情况；DBQ=E:\职工mdb”即是一个正确的连接字符串，但连接字符串的组成比较复杂Adodc属性页中选择使用连接字符串的生成选项，可以方便的生成字符串。

3，选择数据提供者

在Adodc“数据连接属性”对话框的OLE DB提供者的列表框中，选择“Microsoft OLE DB Provider for ODBC Drivers”项

4，编译连接字符串

5，选择连接源

6，登陆设置

7，测试连接

向导选项

“ODBC 连接数据”

搜集连接一个远程数据源所需要的信息。

DSN（数据源名称）— 显示一个当前在计算机上安装完毕、可以连接的 DSN 的列表。为了安装新的 DSN，应使用控制面板中的 32 位的 ODBC 图标。如果选择了驱动程序则此项无效。

UID（用户ID） — 允许键入连接此数据源所要求的“用户 ID”。如果该数据源不要求“用户 ID”，可让此项空白。如果选择了驱动程序则此项无效。

PWD（口令） —允许键入连接该数据源所要求的口令。如果该数据源不要求口令，可让此项空白。如果选择了驱动程序则此项无效。

Database — 允许键入想要连接的数据库名。如果选择了驱动程序则此项无效。

Driver — 显示当前计算机上可获得的驱动程序的列表，此计算机可与远程数据源相连接。如果选择了一个 DSN 则此项无效。

Server — 允许键入数据库所驻留的服务器的名称。如果选择了一个 DSN 的“服务器”则此项无效。

cnOpen"Provider=SQLOLEDB1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=数据库名;DataSource=服务器名或IP地址;uid=sa;pwd=sa;"Provider=SQLOLEDB1------打开数据库用oledb地方式连接IntegratedSecurity=SSPI--------采用地集成安全机制PersistSecurityInfo----能否保存安全信息UserID-------------------用户名PassWord------------------密码InitialCatalog-----------数据库地名称或许数据库ip或许目录DataSource---------------数据源

使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：

①数据访问对象/Jet

②为ODBC API编程

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程

④RDO 远程数据对象(RemoteData Objects)

⑤ADO 数据对象(Active Data Objects)

1、数据访问对象/Jet

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBCDLL)通过调用驱动器(SQLSRVRDLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

注释：Form Declarations

Dim mydb As Database

Dim mydynaset As Dynaset オ

Private Sub Form_Load()

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")

Set mydynaset = mydb CreateDynaset("Selectfrom Customers") オ

End Sub ァ

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

2、利用ODBC API编程

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBCDLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVRDLL)把它们送到服务器中。

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String256

Dim myBufflen As Integer

If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then

MsgBox"Allocation couldn注释：t happen!"

End If

If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then

MsgBox "SQL Server couldn注释：t connect!"

End If

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"

myResult=SQLDriverConnect(giHDB,Test,form1hWnd,myConnectionlen(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select from Customers Where City = "Hunan""

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

3、使用VBSQL对DB库API编程

DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：

VBSQLVBX： 包含库函数，具有访问重要的消息和处理错误的能力

假如你是局域网。可以使用\\的形式。假如你是Internet不可以这样。有两种方法。1使用***虚拟网专线。然后就象本地局域网一样连接。2使用winsock控件。或者winsockapi函数。来进行远程通讯。一般是转换成byte进行传输。

以上就是关于vb中怎么用ADO控件连接远程数据库 啊全部的内容，包括:vb中怎么用ADO控件连接远程数据库 啊、VB怎么连接访问Access数据库、VB连接远程ACC数据库问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！