数据库实验3参考.docx

数据库实验3参考.docx

《数据库实验3参考.docx》由会员分享，可在线阅读，更多相关《数据库实验3参考.docx（13页珍藏版）》请在冰豆网上搜索。

数据库实验3参考

实验步骤：

一、VB连接SQLServer数据库方法一：

1）打开VB，新建一个“标准EXE”。

2）在“工程”里面选择“部件”，添加“MicrosoftADODataControl6.0（SP6）”和“MicrosoftDataGridControl6.0（SP6）”，点击“确定”。

3）在左侧工具中双击Adodc控件和DataGrid控件并将其放在合适的位置。

4）右击Adodc1，在弹出的下拉菜单中选择“ADODC属性”,出现属性页，选择“使用连接字符串”，点击“生成”，选择“MicrosoftOLEDBProviderforSQLServer”,点击下一步。

5）在“数据链接属性”中输入如图所示信息，点击确定。

6）点击“测试连接”。

7）在Form1空白处双击鼠标左键，弹出代码编辑窗口。

8）在编辑窗口输入如下代码。

PrivateSubDataGrid1_Click（）

Adodc1.Visible=False

Adodc1.RecordSource="select*fromStudent"

Adodc1.Refresh

SetDataGrid1.DataSource=Adodc1.Recordset

DataGrid1.Refresh

EndSub

9）点击“运行”，则连接到JXGL数据库的Student表，出现如图所示的结果。

10）连接Course表和SC表只需将代码中的表名修改即可，得到如下结果。

（1）VB和JXGL数据库Course表连接结果：

（2）VB和JXGL数据库SC表连接结果：

2、VB连接SQLServer数据库方法二以及数据库的访问程序：

（一）VB连接SQLServer数据库：

1）打开控制面板，双击“数据源”图标。

2）在“ODBC数据源管理器”中选择“系统DSN”,点击“添加”按钮，出现“创建新数据源页面”，选择添加SQLServer。

3）在创建到SQLServer的新数据源中输入“数据源名称”，选择我们需要的服务器类型。

4）在“创建到SQLServer的新数据源”中选择“使用网络登录ID的WindowsNT验证”。

5）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”

，再点击“完成”。

6）点击“测试数据源”，出现“测试成功”，则连接成功。

（2）数据库的访问程序：

1、对数据库的查询：

1）双击“Adodc控件”，添加如图所示的控件。

2）右击“Adodc控件”设置其属性如下所示。

3）在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”，DataField为“Sno”，Text2的DataSource为“Adodc1”，DataField为“Sname”，Text3的DataSource为“Adodc1”，DataField为“Ssex”。

4）点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。

5）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。

2、对数据库中数据的添加：

1）在VB中新建一个窗体，如图所示。

2）在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。

3）对“Adodc控件”属性的设置和前面相同。

4）双击退出按钮，对此按钮进行编程。

5）对Form1加入如图所示的按钮。

6）双击新添加的各个按钮对其编程：

PrivateSubCommand1_Click（）

Form.Show

EndSub

PrivateSubCommand2_Click（）

tex_Sno.Text=""

tex_Sname.Text=""

tex_Ssex.Text=""

Adodc1.Refresh

Adodc1.Recordset.AddNew

cmd_add.Enabled=False'添加数据按钮禁用

cmd_save.Enabled=True'保存数据按钮启用

EndSub

PrivateSubCommand3_Click（）

Iftex_Sno.Text=""Then

MsgBox（"请输入学号"）

ElseIftex_Sname.Text=""Then

MsgBox（"请输入姓名"）

ElseIftex_Ssex.Text=""Then

MsgBox（"请输入性别"）

Else

Adodc1.Recordset（"学号"）=tex_Sno.Text

Adodc1.Recordset（"姓名"）=tex_Sname.Text

Adodc1.Recordset（"性别"）=tex_Ssex.Text

cmd_add.Enabled=True

cmd_save.Enabled=False

EndIf

EndSub

PrivateSubCommand4_Click（）

UnloadForm1

UnloadForm2

EndSub

7）编写好程序后即可实现对该数据库中学生信息的添加。