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

-

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

 

 

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

 

 

2. '数据库连接处理
3. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
4. Public Function ConnectSybase(sr, db, us, pd, bs) As Boolean
6.     On Error GoTo ErrMsg
7.     
8.     '判断数据库是否已经打开 如果打开则先关闭
9.     If Consb.State = adStateOpen Then
10.         Consb.Close
11.     End If
14.     Dim strConnect As String
15.     Consb.ConnectionTimeout = 3
16.     
17.     Select Case bs
18.     Case 0:
19.         '-------------------------------
20.         '连接SQL数据库
21.         strConnect = "Provider=SQLOLEDB.1;Data Source=" & sr & ";Persist Security Info=True;User ID=" & us & ";Password=" & pd & ";Initial Catalog=" & db
22.         '-------------------------------
23.     Case 1:
24.         '通过下句与ODBC数据源进行连接，不需用户选择数据源
25.         'strConnect = "Provider=MSDASQL.1;Persist Security Info=False;" & " Extended Properties='DSN=chs;SRVR=zb;DB=zbserver;UID=sa2;PWD=abacus'"
26.         '-------------------------------
27.         '连接sybase数据库
28.         strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=" & sr & ";DB=" & db & ";UID=" & us & ";PWD=" & pd
29.         '-------------------------------
30.     Case 2:
31.         '-------------------------------
32.         '连接orcle数据库
33.         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
34.         '-------------------------------
35.     Case 3:
36.         '-------------------------------
37.         '连接orcle数据库
38.         strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sr & ";Persist Security Info=True"
39.         '-------------------------------
40.     Case Else
41.     End Select
42.     
43.     
44.     Consb.Open strConnect '连接
48.     '注意：如果你不想建立DSN,可采取无DSN连接方法如下：
49.     '将上句改为 strConnect = "Provider=MSDASQL.1;DRIVER={Sybase System 11};Persist Security Info=False;DSN=; SRVR=服务器IP;DB=数据库;UID=用户名;PWD=密码"
50.     'Persist Security是否采用集成安全机制
51.     ConnectSybase = True
52.     Exit Function
53. ErrMsg:
54.     MsgBox "连接数据库错误!请确认服务器是否开启.", 16
55.     ConnectSybase = False
56.     
57. End Function

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

 

 

2. '语句处理
3. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
4. Public Function USESQL(Index, sql) As Boolean
6. '执行语句
8.         '判断记录集是否已经打开 如果打开则先关闭
9.     If Rsbdata.State = adStateOpen Then
10.         Rsbdata.Close
11.     End If
12.     
13.     
14.     On Error GoTo ErrMsg
15.        
16.     Dim strSQL As String
17.     
18.         strSQL = sql '"Select * from gds0" 'strSQL可以是SQL语句（块），存储过程
19.         Rsbdata.CursorLocation = adUseClient
20.         Rsbdata.Open strSQL, Consb 'ConSb为打开的活动的连接
21.     
22.     USESQL = True
23.     Exit Function
24.     
25. ErrMsg:
26.     MsgBox "语句执行失败!" & strSQL, 16
27.     USESQL = False
28.     
31. End Function

 

 

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

 

-