'运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1
Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String
Dim Str3 As String
Str1 = \ Str2 = \ Str3 = \ conn.Open Str1 & Str2 & Str3 strSQL = \ rs.Open strSQL, conn, 3, 3 rs.AddNew
rs!网站名称 = Text1.Text rs!网站地址 = Text2.Text rs!网站描述 = Text3.Text rs.Update rs.Close conn.Close
MsgBox (\添加记录成功！\
Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 End If
'以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = \ Text2.Text = \Text3.Text = \
Text4.Text = \End If End Sub 三、“修改记录”按钮(command2)的click事件代码： Private Sub Command2_Click()
If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then '编号字段是Access的自动编号，为自然数
'因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox \记录号是大于0的自然数，请输入正确的编号！\ Exit Sub
End If
If Text1.Text = \'对三个文本框的内容进行校验，不接收空值 MsgBox \请输入完整的网站信息！\ Exit Sub End If
Dim sc As Integer
sc = MsgBox(\确实修改这条记录吗？\提示信息\
If sc = 1 Then
'运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String Dim Str2 As String
Dim Str3 As String
Str1 = \ Str2 = \
Str3 = \ conn.Open Str1 & Str2 & Str3
strSQL = \编号=\al(Text4.Text) & \ rs.Open strSQL, conn, 3, 3 If rs!编号 = Val(Text4.Text) Then
'由于系统数据库使用的是自动编号作为主键，'因此以编号字段的内容作为判断的依据。
'如果rs!编号 = Val(Text4.Text)说明数据库中有此记录，才会修改其它三个字段的内容，
'否则给出“不存在此记录”的提示信息并关闭数据连接 rs!网站名称 = Text1.Text rs!网站地址 = Text2.Text rs!网站描述 = Text3.Text rs.Update rs.Close
conn.Close
MsgBox (\修改记录成功！\
Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 Else
MsgBox (\不存在此记录！\ Text1.Text = \ Text2.Text = \ Text3.Text = \ Text4.Text = \ rs.Close conn.Close Exit Sub
End If End If
'以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \
End Sub 四、“删除记录”按钮(command3)的click事件代码： Private Sub Command3_Click() If Not IsNumeric(Text4.Text) Or Val(Text4.Text) = 0 Then '编号字段是Access的自动编号，为自然数
'因此对text4的内容进行校验，如果不是数值或为0则跳出sub过程 MsgBox \编号是大于0的自然数，请输入正确的编号！\ Exit Sub End If
Dim sc As Integer
sc = MsgBox(\确实要删除这个记录吗？\删除确认！\If sc = 1 Then
'运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim Str1 As String
Dim Str2 As String Dim Str3 As String
Str1 = \ Str2 = \ Str3 = \
conn.Open Str1 & Str2 & Str3
strSQL = \编号=\al(Text4.Text) & \ rs.Open strSQL, conn, 3, 3 If rs!编号 = Val(Text4.Text) Then
'由于系统数据库使用的是自动编号作为主键 '因此以编号字段的内容作为判断的依据
'如果rs!编号 = Val(Text4.Text)说明数据库中有此记录并进行删除操作 '否则给“不存在此记录”的提示信息并关闭数据连接 rs.Delete
rs.Close conn.Close
MsgBox (\删除记录成功！\
Adodc1.Refresh '刷新数据源，MSHFlexGrid控件会实时刷新显示数据 Else
MsgBox (\不存在此记录！\ Text4.Text = \ rs.Close conn.Close Exit Sub End If
End If
'以下四条语句的作用是在操作完成后将文本框置空 Text1.Text = \
Text2.Text = \
Text3.Text = \Text4.Text = \End Sub 五、“退出系统”按钮(command4)的click事件代码： Private Sub Command4_Click()
Dim sc As Integer
sc = MsgBox(\确实要退出系统吗？\提示信息\If sc = 1 Then
'运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1 End End If
End Sub
六、添加完事件代码之后，我们这个实例至此完成，运行一下吧！
vb神童教程(续)--ODBC数据源简介
ODBC（开放式数据库连接）是一种应用程序的接口（API）。这种接口提供了独立于任何的数据管理系统编写应用程序的能力。OCBC通过ODBC驱动程序提供了对不同的数据库供应商的一组应用程序接口来给特殊的数据库管理系统（DBMS）。用户的应用程序使用这组API来调度ODBC驱动程序。然后驱动程序通过SQL语句同DBMS发生联系。 下面我们开始介绍ODBC数据源。在“我的电脑”中打开“控制面板”中的“管理工具”，在窗口中即可见ODBC数据源图标。
双击打开ODBC数据源管理器，如下图所示：
ODBC数据源管理器为配置、添加、删除各种不同的数据源名称提供了最为简洁的方法。它使得用户可以轻松地完成数据源的配置工作，用户也可以删除原有的DSN（数据源名称），
或对先前配置的数据源进行修改。ODBC数据源管理器的具体功能如下：
▲用户DSN：ODBC用户数据源存储了如何与指定数据提供者连接的信息。用户数据源只对当前的用户可见，而且只能应用在本机上。
▲系统DSN：ODBC系统数据源存储了如何与指定数据提供者连接的信息。系统数据源对当前机器上的所有用户可见。
▲文件DSN：ODBC文件数据源允许用户连接数据提供者。文件DSN可以由安装了相同驱动程序的用户共享。
▲驱动程序：ODBC驱动程序允许那些支持ODBC的程序通过ODBC数据源获取信息。如果安装新的驱动程序，要使用其安装程序。
▲跟踪：ODBC跟踪允许创建调用ODBC驱动程序的日志，以供技术人员查看；也可以辅助调试应用程序。Visual Studio跟踪启动Microsoft Visual Studio的ODBC跟踪。
▲连接池：连接池允许应用程序重新打开连接句柄，此操作将往返过程存入服务器。
vb神童教程(续)--配置Access数据源
(1)打开控制面板中的ODBC数据源管理器，在“用户DSN”（即“用户数据源”）中选择“MS Access Database”选项，可心删除或配置一个已有的用户数据，这里我们将要添加一个数据源。
(2)单击添加按钮，系统将准备在MS Access Database下添加一个用户数据源，为了安装数据源，会弹出创建新数据源窗口，如下图：
(3)在创建新数据源窗口中，选择\来安装数据源。 (4)单击“完成”按钮，进入ODBC Microsoft Access安装窗口，如下图：