VB连接Sql Server,Oracle,SyBase,Access数据库操作实例

　VB连接数据库是常用的操作对于小型数据的存取是非常不错的.在设计时对于不同数据的连接方式都不同这里使用了ADODB连接字符串的方式来访问常见的数据库:Sql Server,Oracle,Sybase,Access.你可以使用此程序来连接它们并可以使用SQL语句来操纵数据.在此基础上你可以扩展它的功能.

以下是主要的连接函数参数为:服务器名,数据库名,用户,密码,数据库类型.在使用Access数据库时只需要将文件路径填写于服务器名中即可.

'数据库连接处理
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function ConnectSybase(sr, db, us, pd, bs) As Boolean
On Error GoTo ErrMsg
'判断数据库是否已经打开如果打开则先关闭
If Consb.State = adStateOpen Then
Consb.Close
End If
Dim strConnect As String
Consb.ConnectionTimeout = 3
Select Case bs
Case 0:
'-------------------------------
'连接SQL数据库
strConnect = "Provider=SQLOLEDB.1;Data Source=" & sr & ";Persist Security Info=True;User ID=" & us & ";Password=" & pd & ";Initial Catalog=" & db
'-------------------------------
Case 1:
'通过下句与ODBC数据源进行连接，不需用户选择数据源
'strConnect = "Provider=MSDASQL.1;Persist Security Info=False;" & " Extended Properties='DSN=chs;SRVR=zb;DB=zbserver;UID=sa2;PWD=abacus'"
'-------------------------------
'连接sybase数据库
strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=" & sr & ";DB=" & db & ";UID=" & us & ";PWD=" & pd
'-------------------------------
Case 2:
'-------------------------------
'连接orcle数据库
strConnect = "Provider=MSDAORA.1;Password=" & pd & ";User ID=" & us & ";Data Source=" & sr & ";Persist Security Info=True" '"Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=" & sr & ";DB=" & db & ";UID=" & us & ";PWD=" & pd
'-------------------------------
Case 3:
'-------------------------------
'连接orcle数据库
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sr & ";Persist Security Info=True"
'-------------------------------
Case Else
End Select
Consb.Open strConnect '连接
'注意：如果你不想建立DSN,可采取无DSN连接方法如下：
'将上句改为 strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=服务器IP;DB=数据库;UID=用户名;PWD=密码"
'Persist Security是否采用集成安全机制
ConnectSybase = True
Exit Function
ErrMsg:
MsgBox "连接数据库错误!请确认服务器是否开启.", 16
ConnectSybase = False
End Function

下面这个函数来处理SQL语句的执行

'语句处理
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function USESQL(Index, sql) As Boolean
'执行语句
'判断记录集是否已经打开如果打开则先关闭
If Rsbdata.State = adStateOpen Then
Rsbdata.Close
End If
On Error GoTo ErrMsg
Dim strSQL As String
strSQL = sql '"Select * from gds0" 'strSQL可以是SQL语句（块），存储过程
Rsbdata.CursorLocation = adUseClient
Rsbdata.Open strSQL, Consb 'ConSb为打开的活动的连接
USESQL = True
Exit Function
ErrMsg:
MsgBox "语句执行失败!" & strSQL, 16
USESQL = False
End Function

下载源代码你可以轻松的访问常用的各种数据库了.

VB连接Sql Server,Oracle,SyBase,Access数据库操作实例相关推荐

oracle sql为null值,在SQL Server Oracle MySQL当数据库中查出某值为NULL怎么办
在SQL Server Oracle MySQL当数据库中查出某值为NULL怎么办? 1.MSSQL: ISNULL() 语法 ISNULL ( check_expression , replacem ...
Qlikview配置ODBC连接SQL SERVER/ORACLE
一, Qlikview配置ODBC连接SQL SERVER 1,打开ODBC数据源管理器:运行--〉ODBC 2,添加用户DSN 3,选择SQL Server Native Client 11.0, ...
SQL Server LocalDB本地文件数据库操作实践
这里以官方的Microsoft SQL Server 2012 Express LocalDB加以说明,VS从2012开始应该都集成了此功能. Microsoft SQL Server 2012 Ex ...
VB连接SQL SERVER 数据库时ODBC设置
配置ODBC数据源 1,打开ODBC数据管理器,选择文件DSN,(关于用户DSN,系统DSN,文件DSN),点击"添加"按钮. 2,安装数据源的驱动程序,选择"sql s ...
Java 实现连接sql server 2000（JDBC数据库访问例子）
JAVA语言的跨平台的工作能力(Write Once ,Run Anywhere).优秀的图像处理能力(我相信现在没有那种语言可以超过JAVA在网络上的图形处理能力).网络通信功能.通过JDBC数据库 ...
【ASP.NET】VS2015连接SQL Server数据库，实现登录、注册
文章目录 1. 实验目标 2. 难点 3. 问题 3.1 SQL Server 3.2 Demo练习 3.3 编写页面时的错误 4. 总结 5. 页面 6. 主要代码 [ASP.NET]VS2015连 ...
Java/JSP中使用JDBC连接SQL Server 2000/2005
转自:http://hi.baidu.com/huangdonghui/blog/item/87cf4ff47ba653e37609d7e1.html/cmtid/9c82350965721ba22e ...
Java/JSP中使用JDBC连接SQL Server 2005(转自秋忆)
接触Java或者JSP,难免会使用到数据库SQL Server 2000/2005(我使用2005标准版[9.0.3054]测试),经过自己的搜索和研究,使用JDBC连接SQL Server成功,特此 ...
VB.NET连接SQL server数据库解决方案(转载+亲自实践)
原文来自:http://hi.baidu.com/mwd_3330410/blog/item/ba0ccd240a0902184c088d83.html Microsoft Visual Basic. ...

VB连接Sql Server,Oracle,SyBase,Access数据库操作实例

VB连接Sql Server,Oracle,SyBase,Access数据库操作实例相关推荐

最新文章

热门文章