-
VB连接数据库是常用的操作 对于小型数据的存取是非常不错的.在设计时 对于不同数据的连接方式都不同 这里使用了ADODB连接字符串的方式来访问常见的数据库:Sql Server,Oracle,Sybase,Access.你可以使用此程序来连接它们 并可以使用SQL语句来操纵数据.在此基础上 你可以扩展它的功能.
以下是主要的连接函数 参数为:服务器名,数据库名,用户,密码,数据库类型.在使用Access数据库时 只需要将文件路径填写于服务器名中即可.
'数据库连接处理 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' PublicFunctionConnectSybase(sr,db,us,pd,bs)AsBooleanOnErrorGoToErrMsg'判断数据库是否已经打开如果打开则先关闭 IfConsb.State=adStateOpenThenConsb.CloseEndIfDimstrConnectAsStringConsb.ConnectionTimeout=3SelectCasebsCase0:'------------------------------- '连接SQL数据库 strConnect="Provider=SQLOLEDB.1;DataSource="&sr&";PersistSecurityInfo=True;UserID="&us&";Password="&pd&";InitialCatalog="&db'------------------------------- Case1:'通过下句与ODBC数据源进行连接，不需用户选择数据源 'strConnect="Provider=MSDASQL.1;PersistSecurityInfo=False;"&"ExtendedProperties='DSN=chs;SRVR=zb;DB=zbserver;UID=sa2;PWD=abacus'" '------------------------------- '连接sybase数据库 strConnect="Provider=MSDASQL.1;DRIVER={SybaseSystem11};PersistSecurityInfo=False;DSN=;SRVR="&sr&";DB="&db&";UID="&us&";PWD="&pd'------------------------------- Case2:'------------------------------- '连接orcle数据库 strConnect="Provider=MSDAORA.1;Password="&pd&";UserID="&us&";DataSource="&sr&";PersistSecurityInfo=True"'"Provider=MSDASQL.1;DRIVER={SybaseSystem11};PersistSecurityInfo=False;DSN=;SRVR="&sr&";DB="&db&";UID="&us&";PWD="&pd '------------------------------- Case3:'------------------------------- '连接orcle数据库 strConnect="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&sr&";PersistSecurityInfo=True"'------------------------------- CaseElseEndSelectConsb.OpenstrConnect'连接 '注意：如果你不想建立DSN,可采取无DSN连接方法如下： '将上句改为strConnect="Provider=MSDASQL.1;DRIVER={SybaseSystem11};PersistSecurityInfo=False;DSN=;SRVR=服务器IP;DB=数据库;UID=用户名;PWD=密码" 'PersistSecurity是否采用集成安全机制 ConnectSybase=TrueExitFunctionErrMsg:MsgBox"连接数据库错误!请确认服务器是否开启.",16ConnectSybase=FalseEndFunction
下面这个函数来处理SQL语句的执行
'语句处理 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' PublicFunctionUSESQL(Index,sql)AsBoolean'执行语句 '判断记录集是否已经打开如果打开则先关闭 IfRsbdata.State=adStateOpenThenRsbdata.CloseEndIfOnErrorGoToErrMsgDimstrSQLAsStringstrSQL=sql'"Select*fromgds0"'strSQL可以是SQL语句（块），存储过程 Rsbdata.CursorLocation=adUseClientRsbdata.OpenstrSQL,Consb'ConSb为打开的活动的连接 USESQL=TrueExitFunctionErrMsg:MsgBox"语句执行失败!"&strSQL,16USESQL=FalseEndFunction
下载源代码 你可以轻松的访问常用的各种数据库了.
-
