sql+vb数据库实验报告.doc

发布时间：2022-06-24 发布人：admin 分类：说明书资料大小：0.24M 资料格式：doc 举报版权申诉

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第1页.png

第1页 / 共6页

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第2页.png

第2页 / 共6页

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第3页.png

第3页 / 共6页

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第4页.png

第4页 / 共6页

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第5页.png

第5页 / 共6页

zhouqunzhang-3819437-16359647561905661381.doc.pdf-第6页.png

第6页 / 共6页

文本预览

学号：0905020213 姓名：周群璋班级：09 网络二班数据库实验报告一：实验目的：熟悉掌握数据库 sql 的一些基本操作，学会运用一种开发工具来开发、调用数据库。二：实验内容：选用一种开发工具来完成数据库的插入，删除，查询的基本功能三：实验环境：visual basic ，sql 2000 window servers 2003 四：实验步骤： 1.数据库（test)的设计设计表 table1: 表 table1 中的数据： 2.创建工程项目 (a)主窗口：此窗口有三个菜单项:查询，插入，删除。点击此菜单可调出相信的操作。通过设置 adodc 控件的属性来选择要调用的数据库 test.

点击测试连接，出现如下窗口，说明连接成功：点击数据库连接按钮，可以查看数据库中的记录：主窗口相应代码为： Private Sub Command1_Click() On Error Resume Next

Adodc1.RecordSource = "select * from table1" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.Recordset DataGrid1.Refresh End Sub Private Sub Command2_Click() Adodc1.RecordSource = "select * from table1" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.Recordset DataGrid1.Refresh End Sub Private Sub delete_Click() Form4.Show End Sub Private Sub insert_Click() Form3.Show End Sub Private Sub select_Click() Form2.Show End Sub (b)查询窗口：如输入学号 02,点击确定,结果如下：

相应代码如下： Private Sub Command1_Click() Adodc1.RecordSource = "select * from table1 where number=" & Text1.Text Adodc1.Refresh Set DataGrid1.DataSource = Adodc1.Recordset DataGrid1.Refresh End Sub Private Sub Command2_Click() Unload Me End Sub (c)插入窗口：如输入学号 09，性别男，电话 15300349409 点击确定弹出：

在点击确定，弹出窗口以看到多了一条记录，如下：点击确定返回主窗口，我们可以通过点击刷新，可可见数据已经插入成功。相应代码为： Private Sub Command1_Click() On Error Resume Next Adodc1.RecordSource = "select * from table1" Adodc1.Refresh Adodc1.Recordset.MoveLast Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Text3.Text resu = MsgBox("确认添加到数据库", vbOKCancel, "确认添加") If resu = vbOK Then Adodc1.Recordset.Update Else Adodc1.Recordset.delete End If MsgBox ("添加成功") Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub (d)删除窗口

如：输入学号 02，点击确定，弹出窗口，点击确定返回主窗口，此时可以点击刷新按钮查看是否删除成功：可以发现学号为 02 的信息已经删除了。代码如下： Private Sub Command1_Click() On Error Resume Next Adodc1.RecordSource = "select * from table1" Adodc1.Refresh Adodc1.Recordset.delete MsgBox ("删除成功") Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub

分享到：

赞收藏

资料库

sql+vb数据库实验报告.doc

相关推荐

数据库

热门标签

最新资料