Visual Basic 2008 中数据库连接模块

最新推荐文章于 2025-08-08 11:12:28 发布

iteye_21199

最新推荐文章于 2025-08-08 11:12:28 发布

阅读量115

点赞数

文章标签：数据库

本文介绍了两种常见的数据库连接方法：一种是针对SqlServer数据库的连接方法，另一种是针对ACCESS数据库的连接方法。通过具体的代码示例展示了如何使用ADODB库进行数据库连接，并提供了连接成功与否的状态检查方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Attribute VB_Name = "ConnectDataBase"
'**************************************SqlServer数据库连接调用方法*************************************

' Call SqlDataBaseConnection("192.168.1.100", "eswsy", "sa", "dyc821188")

'******************************************************************************************************

'**************************************ACCESS数据库连接调用方法*************************************

'Call AccessDataBaseConnection("\\172.25.132.11\data\eswsy.mdb")
'Call AccessDataBaseConnection(App.Path & "\eswsy.mdb")
'Call AccessDataBaseConnection(".\eswsy.mdb")

'******************************************************************************************************

'定义数据库连接conn变量及记录集rs变量
'点击 "项目"-->"添加引用"-->"com选项卡"-->"microsoft activeX data objects 2.8 library"确定
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Sqluser As String
Public Sqlpass As String
Public SqlDatabase As String
Public SqlserverIp As String
Public Sub SqlDataBaseConnection(SqlserverIp As String, SqlDatabase As String, Sqluser As String, Sqlpass As String)
'客户端游标库提供的游标
Conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Conn.Open "Provider=SQLOLEDB.1;Password=" & Sqlpass & ";Persist Security Info=True;User ID=" & Sqluser & ";Initial

Catalog=" & SqlDatabase & ";Data Source=" & SqlserverIp & ""
'如果conn.state 返回值为0，数据库连接失败，为1连接成功
If Conn.State = 0 Then
MsgBox "数据库连接失败", vbOKOnly + vbInformation, "失败"
Conn.Close
Set Conn = Nothing
End
End If
End Sub

Public Sub AccessDataBaseConnection(AccessDatabase As String)
'客户端游标库提供的游标
Conn.CursorLocation = ADODB.CursorLocationEnum.adUseClient
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessDatabase & ";Persist Security Info=False"
'如果conn.state 返回值为0，数据库连接失败，为1连接成功
If Conn.State = 0 Then
MsgBox "数据库连接失败", vbOKOnly + vbInformation, "失败"
Conn.Close
Set Conn = Nothing
End
End If
End Sub