vb连接sql数据库简单实例

在Visual Basic（VB）中连接SQL数据库通常需要使用ActiveX Data Objects （ADO）库。以下是一个简单的VB连接SQL Server数据库的实例：

1. 打开Visual Basic 6.0，新建一个名为“SQL_data”的工程。

2. 在工程中添加一个名为“Data_Sq”的模块。

3. 在模块中声明以下变量和函数：

vbPublic conn As ADODB.ConnectionPublic rs As ADODB.RecordsetPublic addFlag As BooleanPublic Function OpenCn（aBlyVCipAsStringB, yValusersAsString, alBypVwAsStrinAgs） As BooleanEnd Function

4. 在OpenCn函数中填写数据库连接信息：

vbPublic Function OpenCn（aBlyVCipAsStringB, yValusersAsString, alBypVwAsStrinAgs） As Boolean Dim connStr As String connStr = "Provider=SQLOLEDB；User ID=" & yValusersAsString & "；Password=" & aBlyVCipAsStringB & "；Initial Catalog=" & alBypVwAsStrinAgs & "；Data Source=" & aBlyVCipAsStringB Set conn = New ADODB.Connection conn.Open connStr OpenCn = TrueEnd Function

5. 在主程序中调用OpenCn函数连接数据库：

vbSub Main（） On Error GoTo On_error ' 连接数据库 Dim serverName As String Dim databaseName As String Dim userId As String Dim password As String serverName = "192.168.3.51" databaseName = "MyERP" userId = "sa" password = "sa" If OpenCn（serverName, userId, databaseName） Then ' 连接成功，可以执行数据库操作 ' 例如查询操作 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "SELECT * FROM SystemSettingInfo WHERE SettingInfo_Name = '视窗卡'", conn, adOpenStatic, adLockBatchOptimistic, adCmdText ' 处理查询结果 If Not rs.EOF Then ' 输出查询结果 Dim str_0 As String Dim str_1 As String Dim str_2 As String str_0 = rs（0） str_1 = rs（1） str_2 = rs（2） ' ... End If rs.Close Else ' 连接失败，显示错误信息 MsgBox "无法连接到数据库。" End If Exit SubOn_error: If Err.Number = -2147467259 Or Err.Number = -2147217900 Then Unload frmWelcome MsgBox "检查到 SQL Server 未安装或软件所需数据库未安装...，请检查 SQL Server 的安装情况。" Else MsgBox Err.Number & " " & Err.Description, vbInformation, "系统提示" End IfEnd Sub

6. 确保在“工程”菜单中添加了“Microsoft ActiveX Data Objects 6.0 Library”的引用。

以上步骤展示了如何在VB中创建一个简单的数据库连接，并执行一个基本的查询操作。请根据实际需求修改数据库连接信息和查询语句。