1、VB访问SQLServer数据的常用方法使用VisualBasic作为前端开发语言，与SQLServer接口有几种常用的方法，即、①数据访问对象/Jet②为ODBCAPI编程③使用SQLServer的VisualBasic库(VBSQL)为DB库的API编程④RDO远程数据对象(RemoteDataObjects)⑤ADO数据对象(ActiveDataObjects)数据访问对象/JetVB支持DataAccessObjects(DAOs)的子集。

2、DAO的方法虽然不是性能好的管理客户机—服务器之间的对话方式，但它的确有许多优点。

3、DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。

4、使用DAOs访问SQLServer的过程如下、应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器源配(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据雹租指源，翻译并向SQLServer提交SQL语句且返回结果。

5、下面是一个用DAOs访问SQLServer的VB实例。

6、注释、FormDeclarationsDimmydbAsDatabaseDimmydynasetAsDynasetオPrivateSubForm_Load()Setmydb=OpenDatabase("",False,False,"ODBCDSN=MyserverWSID=LCLDATABASE=sales")Setmydynaset=mydbCreateDynaset("Select*fromCustomers")オEndSub上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。

7、OpenDatabase函数的后一个参数是ODBC连接字符串参数，它指明了MicrosoftAccess连接到SQLServer所需要知道的一些内容。

8、其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

9、利用ODBCAPI编程ODBC(OpenDatabaseConnectivity)的思想是访问异种数据库的一种可移植的方式。

10、与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。

11、应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器型衡中。

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

13、GlobalgiHEnvAsLongGlobalgiHDBAsLongGlobalgiHStmtAsLongDimmyResultAsintegerDimmyConnectionAsSrtingDimmyBuffAsString*256DimmyBufflenAsIntegerIfSQLAllocEnv(giHEnv)SQL_SUCCESSThenMsgBox"Allocationcouldn注释、thappen。

14、"EndIfIfSQLAllocConnect(giHEnv,giHDB)SQL_SUCCESSThenMsgBox"SQLServercouldn注释、tconnect。

15、"EndIfmyConnection="DSN=myServerUID=LCLPWD=APP=ODBCTestWSID=LCLDATABASE=sales"myResult=SQLDriverConnect(giHDB,Test,formhWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)myResult=SQLAllocStmt(giHDS,giHStmt)myResult=SQLFreeStmt(giHStmt,SQL_COLSE)rsSQL="Select*fromCustomersWhereCity="Hunan""myResult=SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))使用VBSQL对DB库API编程DB库是SQLServer的本地API，SQLServer的VisualBasic库(VBSQL)为VisualBasic程序员提供API。

16、从一定意义上说，VBSQL是连接VisualBasic程序到SQLServer的性能好直接的方式。

17、VBSQL包含以下三个文件、VBSQL.VBX、包含库函数，具有访问重要的消息和处理错误的能力VBSQL.BI、包括所有的常量和变量说明VBSQL.HLP、Windows帮助文件，使用VBSQL的指南使用VBSQL时，必须将VBSQL.BI加入到VisualBasic工程文件中，并VB程序运行时有VBSQL.VBX文件。

18、一般的DB库API编程的过程是这样的、先通过调用SqlInit对DB库进行初始化，再调用SqlConnection打开一个连接，然后就可做一些工作。

19、下面的代码是一个初始化DB库并登录到服务器的通用例程。

20、PrivateSubInitializeApplication()DBLIB_VERSION=SqlInit()IfDBLIB_VERSION=""ThenMsgBox"CouldnotinitializeDBLIB。

21、Exitapplication.",MB_ICONEXCLAMATIONEndIfEndSubPrivateFunctionLoginToServer()AsintegerloginToServer=SUCCEEDStatus%=SqlSetloginTime%(loginTimeOut)IfGISqlConn0ThenSqlClose(giSqlConn)注释、关闭已打开的连接giSqlConn=SqlOpenConnection(gsServerName,gsLoginID,gsPassword,ProgramName,ProgramName)IfgiSqlConn0Thenliresuit=SqlUse(giSqlConn,"Sales")ElseLogintoServer=FAILEndIfEndFunctionRDO远程数据对象(RemoteDataObjects)要讨论RDO,就必然要谈到DAO。

22、RDO是从DAO派生出来的,但两者很大的不同在于其数据库模式。

23、DAO是针对(记录(Records))和(字段(Fields)),而RDO是作为(行(Rows))和(列(Columns))来处理。

24、也就是说DAO是ISAM模式,RDO是关系模式。

25、此外DAO是访问Access的Jet引擎(Jet是ISAM)的接口，而RDO则是访问ODBC的接口。

26、可见,RDO是综合了DAO/Jet、VBSQL/DBLib以及ODBC的优点的对象(Object)。

27、需要强调的是，RDO是包裹着ODBCAPI的一层薄薄的外壳,被设计成在后台(服务器端)有数据库存在的前提下运行，同时也是针对SQLServer和Oracle而特别设计的。

28、RDO的优势在于它完全被集成在VB之中。

29、此外，直接访问SQLServer存储过程、完全支持T-SQL、T-SQL调试集成在开发环境中、VisualDatabaseTools的集成化等，也是RDO的长处。

30、在RDO的对象和集合中，有很多对数据库的状态和设定进行操作的属性(Property)，以及对数据库进行操作的方法(Method)。

31、利用这些，从RDO0起就可以开发事件驱动的数据库应用程序。

32、RDO对象与VB中其他对象的概念相同。

33、与VB用的ActiveX控件(以往称为CustomControl或OCX、VBX)相似的是,RDO也带有属性和方法但同Spread、InputMan等普遍应用的ActiveX控件不同的是，RDO没有自己的用户界面，因而可以和VB标准的Timer控件归为同一类。

34、当然也可以将RDO看作调用ODBCAPI函数，进而对后台数据库操作加以控制的对象。

35、在RDO的属性和方法中，包含了对单个的ODBCAPI函数以及一连串API函数的调用。

36、①rdoEngine对象初调用RDO对象以及RDC(远程数据控件)时，自动生成rdoEngine对象的附带事件(incident)。

37、rdoEngine用于对RDO全局属性的参数、选项进行设置，是在RDO的阶层结构内处于上层的对象，包含了所有的其他对象。

38、rdoEngine对象与DAO/Jet不同，虽然被多个应用程序共享，但体现rdoEngine对象的设定值的属性却并不共用，而是在各自的应用程序的程序界面中对其分别加以设定。

39、这些设定值对其他使用RDO以及RDC的应用程序没有任何影响。

40、rdoEngine不是集合的要素，而是重新定义的对象，rdoEngine对象不能被追加作成对象属性的初值。

41、②rdoEnvironment对象RDO对象在自动创建rdoEngine对象时，将rdoEnviroment对象的初始值生成并保存为rdoEnviroments(0)。

42、一般情况下，应用程序中不必追加rdoEnvironment对象，大多只需对已有的rdoEnviroments(0)进行操作就可以了。

43、只有在支持一个以上事务(Transaction)，需要将用户名和口令信息分别处理的情况下，利用rdoCreateEnvironment方法将特定的用户名和口令值做成新的rdoEnvironment对象。

44、在这个方法中可以指定固有名、用户名和口令，如果所指定的值与rdoEnvironments集合的已经存在的成员名称相同，会产生错误。

45、新建的rdoEnvironment对象自动追加在rdoEnvironments集合的后。

46、调rdoCreateEnvironment方法时，其name参数可以是长度为0的文字列，这时新的rdoEnvironment对象将不会被追加在rdoEnvironments集合之中。

47、③rdoConnection对象rdoConnection对象用于同SQLServer的连接管理。

48、下面是与SQLServer连接的例子。

49、用OpenConnection方法的一个实例。

50、设定的DSN为MyDSN、DimCnAsrdoConnectionDimEnAsrdoEnvironmentDimConnAsStringConn="DSN=MyDSNUID=Jacob"&"PWD=123456DATABASE=MyDb"SetCn=En.OpenConnection("",rdDrivERPrompt,False,Conn)SetCn=En.OpenConnection(Prompt、=rdDriverPrompt,ReadOnly、=False,Connect、=Cnn)用EstablishConnection方法的一个实例。

51、这里以独立的rdoConnection对象为例说明与SQLServer的连接。

52、PublicWithEventsEngAsrdoEnginePublicWithEventsCnAsrdoConnectionPrivateSubForm_Load()SetEng=NewrdoEngineSetCn=NewrdoConnectionWithCn.Connect="UID=PWD="&"DATABASE=pubsDSN=biblio".LoginTimeout=EstablishConnectionrdoDriverNoPromt,True,rdAsyncEnableEndWithEndSub在这个例子中，Form_Load函数对rdoEngine和rdoConnection对象进行初始化。

53、这里有一点需要注意，rdoConnection对象是处于独立的状态之下，即使是处于未连接状态也可以设置属性的值。

54、接下来是rdoConnect对象的事件处理程序。

55、从RDO0起可以实现异步方式(rdAsyncEnable)，EstablishConnection就设定为该值。

56、在异步状态下，不必等待与数据库的连接，程序可以迅速从Form_Load函数中退出。

57、然后是BeforeConnect事件，该处理在与数据库的连接开始以前被激发，此时不能进行有关终止连接的操作、PrivateSubCn_BeforeConnect(ConnetStringAsString,PromptAsVariant)MsgBox"正在连接"&ConnectString,vbOKOnly,"连接前"EndSub连接完成之后的事件处理、PrivateSubCn_Connect(ByValErrorOccurredAsBoolean)DimMAsStringIfErrorOccurredThenForEacherInrdoErrorsM=M&er&vbCrLf&MNextMsgBox"连接失败"&vbCrLf&MElseMsgBox"连接成功"注释、这是确认连接状态的测试代码Cn.Excute"usepubs"EndSubRDO连接处理结束后，在该事件中确认连接成功与否。

58、连接成功的情况下ErrorOccurred返回False，失败时为True，由此可以对rdoErrors集合进行检测、PrivateSubEng_InfoMessage()ForEacherInrdoErrorsDebug.PrinterNextRdoErrors.ClearEndSub不能与SQLServer连接的原因多种多样，有可能是由于对数据库的访问权限、网络连接问题、数据库表的信息错误、SQLServer同时连接的许可数、资源不足等等，具体情况需要与网络管理员商量。

59、断开连接的操作简单，但又很重要，因为RDO不提供自动断开的功能。

60、Cn.CloseSetCn=Nothing注释、释放对象所占的内存资源En.CloseSetEn=Nothing注释、释放对象所占的内存资源VB是对象语言，Form、ActiveX控件也都是对象。

61、使用对象后必须养成将对象设为Nothing把它从内存中释放的编程习惯。

62、这样可以预防很多不可预测错误，往往程序中发生原因不明的错误时，其原因就在于此。

1、VB访问SQLServer数据的常用方法使用VisualBasic作为前端开发语言，与SQLServer接口有几种常用的方法，即、①数据访问对象/Jet②为ODBCAPI编程③使用SQLServer的VisualBasic库(VBSQL)为DB库的API编程④RDO远程数据对象(RemoteDataObjects)⑤ADO数据对象(ActiveDataObjects)数据访问对象/JetVB支持DataAccessObjects(DAOs)的子集。

1、先下载sqlitedll（因为百度经验让写网站的地址,也没法上传文件）那就只能建议大家百度sqlitedll自行下载了，看下图搜索会有很多。

2、注册一下sqlitedll 在sqlitedll的文件夹下新建一个.bat的批处理文件（名字随便起，如图），。

3、2然后用记事本打开这个.bat的文件，在里面写入 regsvr32sqlitedll（如图），保存。

4、然后双击这个批处理文件即可注册成功，如图所示。

5、VB新建.cls类文件，在这个文件操作数据库。

6、然后在类初始化的时候写入如图代码。

7、下面是我查询的实例（如图）。

1、所谓无源数据库连接并不是说不需要数据源，如果没有数据源谈何连接？只是无源数据库连接不需要配置ODBC数据源，利用ADO通过代码就可以实现连接。。

2、无源数据库连接的实现需要在vb0中引用MicrosoftActiveXDataObject6library和MicrosoftActiveXDataObjectRecordset6Library两个组件，然后运用connection对象的connectionstring属性进行连接。 。

3、    以简单的登陆系统为例，首先要在sqlsever数据库中建立一个以student为名的数据库，vb代码如下：。

4、 其中server=.；参数是用来访问本地服务器，还可以写成server=（local）；或将server设置成本地服务器名（一般为计算机名，可登陆sqlserver服务器查看）。。

5、uid=sa；pwd=；用来指定安全登录的登录名和所需的密码，如果用sa登录名登陆的话可以通过在sqlserver的对象资源管理器的安全性——登录名——sa右击属性来设置是否需要密码。

6、然后确定pwd的值与所设密码一致。Database=student；用来设定所访问的数据库名。。