数据库-实验3参考

实验步骤：一、VB连接SQLServer数据库方法一：1）打开VB，新建一个“标准EXE”。2)在“工程”里面选择“部件”，添加“MicrosoftADODataControl6.0(SP6)”和“MicrosoftDataGridControl6.0(SP6)”，点击“确定”。3)在左侧工具中双击Adodc控件和DataGrid控件并将其放在合适的位置。计算机科学与工程学院《数据库系统》实验报告24)右击Adodc1，在弹出的下拉菜单中选择“ADODC属性”,出现属性页，选择“使用连接字符串”，点击“生成”，选择“MicrosoftOLEDBProviderforSQLServer”,点击下一步。5)在“数据链接属性”中输入如图所示信息，点击确定。计算机科学与工程学院《数据库系统》实验报告36)点击“测试连接”。7)在Form1空白处双击鼠标左键，弹出代码编辑窗口。8)在编辑窗口输入如下代码。PrivateSubDataGrid1_Click()Adodc1.Visible=FalseAdodc1.RecordSource=select*fromStudentAdodc1.RefreshSetDataGrid1.DataSource=Adodc1.RecordsetDataGrid1.RefreshEndSub计算机科学与工程学院《数据库系统》实验报告49)点击“运行”，则连接到JXGL数据库的Student表，出现如图所示的结果。10)连接Course表和SC表只需将代码中的表名修改即可，得到如下结果。(1)VB和JXGL数据库Course表连接结果：(2)VB和JXGL数据库SC表连接结果：计算机科学与工程学院《数据库系统》实验报告5二、VB连接SQLServer数据库方法二以及数据库的访问程序：（一）VB连接SQLServer数据库：1）打开控制面板，双击“数据源”图标。2）在“ODBC数据源管理器”中选择“系统DSN”,点击“添加”按钮，出现“创建新数据源页面”，选择添加SQLServer。计算机科学与工程学院《数据库系统》实验报告63）在创建到SQLServer的新数据源中输入“数据源名称”，选择我们需要的服务器类型。4）在“创建到SQLServer的新数据源”中选择“使用网络登录ID的WindowsNT验证”。5）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”，再点击“完成”。计算机科学与工程学院《数据库系统》实验报告76）点击“测试数据源”，出现“测试成功”，则连接成功。（二）数据库的访问程序：1、对数据库的查询：1）双击“Adodc控件”，添加如图所示的控件。计算机科学与工程学院《数据库系统》实验报告82）右击“Adodc控件”设置其属性如下所示。3）在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”，DataField为“Sno”，Text2的DataSource为“Adodc1”，DataField为“Sname”，Text3的DataSource为“Adodc1”，DataField为“Ssex”。4）点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。计算机科学与工程学院《数据库系统》实验报告95）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。2、对数据库中数据的添加：1）在VB中新建一个窗体，如图所示。计算机科学与工程学院《数据库系统》实验报告102）在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。3）对“Adodc控件”属性的设置和前面相同。4）双击退出按钮，对此按钮进行编程。5）对Form1加入如图所示的按钮。计算机科学与工程学院《数据库系统》实验报告116）双击新添加的各个按钮对其编程：PrivateSubCommand1_Click()Form.ShowEndSubPrivateSubCommand2_Click()tex_Sno.Text=tex_Sname.Text=tex_Ssex.Text=Adodc1.RefreshAdodc1.Recordset.AddNewcmd_add.Enabled=False'添加数据按钮禁用cmd_save.Enabled=True'保存数据按钮启用EndSubPrivateSubCommand3_Click()Iftex_Sno.Text=ThenMsgBox(请输入学号)ElseIftex_Sname.Text=ThenMsgBox(请输入姓名)ElseIftex_Ssex.Text=ThenMsgBox(请输入性别)ElseAdodc1.Recordset(学号)=tex_Sno.TextAdodc1.Recordset(姓名)=tex_Sname.TextAdodc1.Recordset(性别)=tex_Ssex.Textcmd_add.Enabled=Truecmd_save.Enabled=FalseEndIfEndSub计算机科学与工程学院《数据库系统》实验报告12PrivateSubCommand4_Click()UnloadForm1UnloadForm2EndSub7）编写好程序后即可实现对该数据库中学生信息的添加。