精品文档

2）右击“Adodc控件”设置其属性如下所示。 3）在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”，DataField为“Sno”，Text2的DataSource为“Adodc1”，DataField为“Sname”，Text3的DataSource为“Adodc1”，DataField为“Ssex”。 4）点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。 。 9欢迎下载

精品文档

5）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。 2、对数据库中数据的添加： 1）在VB中新建一个窗体，如图所示。 。

10欢迎下载

精品文档

2）在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。 3）对“Adodc控件”属性的设置和前面相同。 4）双击退出按钮，对此按钮进行编程。 5）对Form1加入如图所示的按钮。 。

11欢迎下载

精品文档

6）双击新添加的各个按钮对其编程： Private Sub Command1_Click() Form.Show End Sub Private Sub Command2_Click() tex_Sno.Text = \tex_Sname.Text = \tex_Ssex.Text = \Adodc1.Refresh Adodc1.Recordset.AddNew cmd_add.Enabled = False '添加数据按钮禁用 cmd_save.Enabled = True '保存数据按钮启用 End Sub Private Sub Command3_Click() If tex_Sno.Text = \ MsgBox (\请输入学号\ElseIf tex_Sname.Text = \ MsgBox (\请输入姓名\ElseIf tex_Ssex.Text = \ MsgBox (\请输入性别\Else Adodc1.Recordset(\学号\ Adodc1.Recordset(\姓名\ Adodc1.Recordset(\性别\ cmd_add.Enabled = True cmd_save.Enabled = False End If End Sub 。

12欢迎下载