新Visual Basic程序设计及应用 教学课件 郑丽敏 VB第11章.pptVIP

11.4 ODBC * 11.4.2 ODBC数据源管理 1．创建数据源 在Windows中创建ODBC数据源的步骤如下： 1）在Window中，单击“开始”→“设置”→“控制面板”（或双击桌面上“我的电脑”图标，并双击随之出现的“控制面板”图标），出现“控制面板”对话框。 2）双击“管理工具”图标，出现“管理工具”对话框。 3）双击“数据源(ODBC)”图标，出现 “ODBC数据源管理器”对话框。 4）选择“系统DSN”选项卡，进入设置系统DSN的操作界面。 5）单击“添加”按钮，将出现 “创建新数据源”对话框。 11.4 ODBC * 11.4.2 ODBC数据源管理 2．重新配置ODBC参数 数据源创建完成后，可以在 “ODBC数据源管理器”窗口中选中要重新配置的数据源，单击“配置”按钮完成对该数据源参数的修改工作。修改的具体步骤与创建ODBC数据源完全相同。 3．删除数据源 当ODBC数据源不再使用时，可以 “ODBC数据源管理器”窗口中选中要删除的数据源，并单击“删除”按钮，在出现的“确定要删除数据源”确认对话框中单击“是”按钮，完成对该数据源的删除工作。 11.4 ODBC * 11.4.3 与ODBC数据库连接 【例11-4】用VB去连接到学生信息数据库数据库。 （1）窗体界面 首先打开VB，新建一个标准exe工程，在工程的form1上设置界面。 （2）编程策略 定义了一个Connection对象cnn和一个RecordSet对象Stu_recordset，以及两个字符串类型的变量connect_string和statestring。 连接Access数据库先把连接字符串“DSN=学生信息数据库;UID=;PSW=赋给字符串变量connect_string。 11.4 ODBC * 11.4.3 与ODBC数据库连接 【例11-4】用VB去连接到学生信息数据库数据库。 （3）编写代码 Dim cnn As ADODB.Connection Dim Stu_recordset As ADODB.Recordset Dim connect_string As String Dim statestring As String Private Sub Command1_Click() ‘在窗体上显示记录集前两项数据Do While Not Stu_recordset.EOF Print ; Stu_recordset.Fields(0); ; Stu_recordset.Fields(1) Stu_recordset.MoveNext Loop Stu_recordset.Close End SubPrivate Sub Form_Load() Set cnn = New ADODB.Connection Set Stu_recordset = New ADODB.Recordset 连接Access数据库 connect_string = DSN=学生信息数据库;UID=;PSW= cnn.Open connect_string 11.4 ODBC * 11.4.3 与ODBC数据库连接 【例11-4】用VB去连接到学生信息数据库数据库。 （3）编写代码 显示连接的状态 MsgBox 连接成功！, , 学生信息数据库 对wzdz表进行查询操作 Stu_recordset.Open Select * from 学生表, cnn End Sub Select Case cnn.State Case adStateClose statestring = adStateClosed Case adStateOpen statestring = adStateOpen End Select 11.5 ADO数据控件 * 11.5.1 ADO对象模型 程序中使用ADO对象，必须先为当前工程引用ADO的对象库。 引用方式是执行“工程”→ “引用” → “Microsoft ActiveX Data Objects 2.8 Library”选项。 Connection对象 Command对象 Error对象 Property对象 Parameter对象 Property对象 Recordset对象 Field对象 Property对象 ADO对象模型定义了—个可编程的分层对象集合，主要由三个对象成员Connection、Command和Recordset对象，以及几个集合对象Errors、Parameters和Fields等所组成。 右图示意了这些对象之间的关系。 11.5 ADO数据控