2022年vb访问数据库 .pdf

《2022年vb访问数据库 .pdf》由会员分享，可在线阅读，更多相关《2022年vb访问数据库 .pdf（10页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、湖南科技学院实验报告系部数学与计算科学专业信息与计算科学成绩评定班级学号姓名课程名称数据库原理与应用实验时间2012/12/17 实验编号实验 7 实验名称VB、Dephi 访问数据库实验环境Windowsxp；软件： Oracle 11g 。实验目的1. 初步掌握如果设置ODBC 数据源和用 OLEDB 方式链接数据库。2. 能写出较简单的程序， 来查询、插入和修改数据库中的数据。实验内容1. 设置 ODBC 数据源。2. 在 VB中新建一个窗体，向窗体中添加一个ADODC 控件，设置ADODC 的属性连接Oracle 数据源。3. 再添加一个DataGrid控件，将其于ADODC 控件绑定

2、，实现简单的数据库查询应用。4. 联合使用数据控件ADODC、DataGrid 、TextBox 控件显示数据库中一个或多个表中的数据，并可以对记录进行编辑。（算法、程序、步骤和方法输入、输出、实验结果实验结果分析）1. 设置 ODBC 数据源。答：（1）控制面板 管理工具 数据源 ODBC，就出现如下窗口：名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 10 页 - - - - - - - - - （2）选择“系统DSN”选项，点单“添加” ，再出现如下窗口，选择Ora

3、cle in OraHme90 点击完成。（3）完成上面的操作，就会出现如下窗口并填入相应的数据。（4）在上面的窗口中，数据填完了，就点击Test Connection,就出现如下的测试窗口，并填入数据，点击 OK 进行测试：（5）出现了如下的窗口就测试成功了。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 10 页 - - - - - - - - - 最后的依次点击“确定”与OK 。这就完成了ODBC 数据源的设置。2. 在 VB中新建一个窗体，向窗体中添加一个ADOD

4、C 控件，设置 ADODC 的属性连接 Oracle数据源。答：（ 1）启动 VB ，建立新的工程。在VB主界面的【菜单栏】选择【工程】/ 【部件】选项。出现如下的窗口，选择如图中的选项，点击“确定”。（ 2）在工具箱中会出现如矩形圈中的的控件图标（ 3）点击如的圈中的控件，再在窗体设计器中按住鼠标左键拖动一个合适的大小的矩形区域然后放开鼠标，就会出现如下图的ADODC 控件的创建。（ 4）右击窗体设计器中的ADODC 控件，弹出如下的窗口，并在“通用”选项中进行如下的选择。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精

5、心整理 - - - - - - - 第 3 页，共 10 页 - - - - - - - - - （ 5）在“身份验证”选项进行如下的相应的输入。（ 6）最后在“记录源”选项中进行如相应的选择，最后单击确定。完成了上面的操作，就完成了在VB中新建一个窗体，向窗体中添加一个ADODC 控件，设置ADODC 的属性连接Oracle 数据源。3. 再添加一个 DataGrid 控件，将其于 ADODC 控件绑定，实现简单的数据库查询应用。答：(1) 在 VB主界面的【菜单栏】选择【工程】/ 【部件】选项。出现如下的窗口，选择如图中的选项，点击“确定”。名师资料总结 - - -精品资料欢迎下载 - -

6、 - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 10 页 - - - - - - - - - （2）在工具箱中会出现如矩形圈中的的控件图标(3)点击如的圈中的控件，再在窗体设计器中按住鼠标左键拖动一个合适的大小的矩形区域然后放开鼠标，就会出现如下图的DataGrid 控件的创建。(4)在 DataGrid 控件的属性窗口进行如下的设置（设置DataGrid 控件的数据源为Adodc1） 。将其于ADODC 控件绑定。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -

7、 - - 名师精心整理 - - - - - - - 第 5 页，共 10 页 - - - - - - - - - (5)点击执行，则得到如下的结果。其上的过程就实现了添加一个DataGrid 控件，将其于 ADODC 控件绑定， 实现简单的数据库查询应用。4. 联合使用数据控件ADODC、 DataGrid 、 TextBox 控件显示数据库中一个或多个表中的数据，并可以对记录进行编辑。答：Form1 中的所有控件如下：控件属性值Command1 Caption 退出Command2 Caption 信息全览Command3 Caption 添加Command4 Caption 更新|Comm

8、and5 Caption 删除Command6 Caption 取消Command7 Caption 结束名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 10 页 - - - - - - - - - Command8 Caption 上一条Command9 Caption 下一条Command10 Caption 首记录 /未记录Label1 Caption 姓名Label2 Caption 人员信息Label3 Caption 职业Label4 Caption 年龄Im

9、age1 Text1 DataSource Adodc1 DataField NAME Text2 DataSource Adodc1 DataField AGE Text3 DataField Adodc1 Data|Field Position Adodc1 ConnectionString DSN=liangjingguo Password Liang_123 RecordSoure MANAGEMENT UserName scott Timer1 Interval1 1 Form2 所有的控件如下：控件属性值DataGrid1 AllowAddNewTrue AllowDelete T

10、rue AllowUpdate Ture DataSorce Adodc1 Adodc1 ConnectionString DSN=liangjingguo Password Liang_123 RecordSource MANAGMENT UserName Scott Visible False Command1 Caption 返回Form1 窗体中的代码Private Sub Command1_Click() Unload Me End Sub Private Sub Command10_Click() If Command10.Caption = 首记录 Then Adodc1.Rec

11、ordset.MoveFirst Command10.Caption = 未记录 else 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 10 页 - - - - - - - - - If Command10.Caption = 未记录 Then Adodc1.Recordset.MoveLast Command10.Caption = 首记录 End If End If End Sub Private Sub Command2_Click() Unload Me Lo

12、ad Form2 Form2.Show End Sub Private Sub Command3_Click() Adodc1.Recordset.AddNew End Sub Private Sub Command4_Click() Adodc1.Recordset.Update End Sub Private Sub Command5_Click() Adodc1.Recordset.Delete End Sub Private Sub Command6_Click() Adodc1.Recordset.CancelUpdate End Sub Private Sub Command7_C

13、lick() End End Sub Private Sub Command8_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If End Sub Private Sub Command9_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Timer1_Timer()

14、 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 10 页 - - - - - - - - - If Text1.Text = 桔梗 Then 桌面 酒店信息系统管理者 桔梗2.jpg) End If If Text1.Text = 珊瑚 Then 桌面 酒店信息系统管理者 珊瑚2.jpg) End If If Text1.Text = 戈微 Then 桌面 酒店信息系统管理者 戈微2.jpg) End If If Text1.Text = 奈落 Then Image1.

15、Picture = LoadPicture(C:Documents and 桌面 酒店信息系统执行者 奈落.jpg) End If If Text1.Text = 犬夜叉 Then 桌面 酒店信息系统执行者 犬夜叉.jpg) End If If Text1.Text = 七宝 Then Image1.Picture = LoadPicture(C:Documents and 桌面 酒店信息系统执行者 七宝.jpg) End If If Text1.Text = 弥勒 Then Image1.Picture = LoadPicture(C:Documents and 桌面 酒店信息系统执行者 弥

16、勒.jpg) End If If Text1.Text = 杀生丸 Then 桌面 酒店信息系统执行者 杀生丸.jpg) End If End Sub Form2 窗体中代码Private Sub Command1_Click() Unload Me Load Form1 Form1.Show End Sub Private Sub Form_Load() Adodc1.Visible = False End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 9 页，共 10

17、页 - - - - - - - - - 执行界面如下如下就 -完成了联合使用数据控件ADODC 、DataGrid、TextBox 控件显示数据库中一个或多个表中的数据，并可以对记录进行编辑。实验总结1、在 vb开发出的界面中对数据库的数据进行修改就要有Adodc 控件，不能用 data控件。2、为了能使 vb 创建出的数据库访问界面更加的完美，可以增加多个窗体以增加更多的功能。3、当 DataGrid 控件与 Adodc 控件绑在一起时，用来显示数据库的数据时，它可以用来直对数据库的数据进行直接的修改与增添。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 10 页 - - - - - - - - -