vb应用程序访问sql server方法探讨（1）

发布: 2007-6-21 21:57 | 作者: | 来源: eNet学院 | 查看: 21次 | 进入软件测试论坛讨论

　　方法1. 数据访问对象/jetvisual basic支持data access objects(daos)的子集。

　　dao的方法虽然不是性能最好的管理客户机椃衿髦涞亩曰胺绞剑酚行矶嘤诺恪ｊ褂?/font>daos访问sql server的过程如下：应用程序准备好语句并送至jet，jet引擎(masjt200.dll)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(odbc.dll)通地调用驱动器(sqlsrvr.dll)的函数，实现连接到数据源，翻译并向sql server提交sql语句且返回结果。

下面是一个用daos访问sql server的vb实例。

’form declarations

dim mydb as database

dim mydynaset as dynaset

private sub form_load()

set mydb=opendatabase("",fa|se,fa|se,"odbc;dsn=myserver;wsid=lcl;
database=sa|es")

set mydynaset=mydb createdynaset("select*from customers")

end sub

　　上述例子是以非独占、非只读方式打开sales数据库，并检索customers表中的所有字段。opendatabase函数的最后一个参数是odbc连接字符串参数，它指明了microsoft access连接到sql server所需要知道的一些内容。其中“dsn”为数据源名，“wsid”为工作站名，“database”为所要访问的数据库名。