数据库-实验3参考

1、计算机科学与工程学院实验步骤：一、VB连接SQL Server数据库方法一：1）打开VB，新建一个“标准EXE”。2)在“工程”里面选择“部件”，添加“Microsoft ADO Data Control 6.0(SP6)”和“Microsoft DataGrid Control 6.0(SP6)”，点击“确定”。3)在左侧工具中双击Adodc控件和DataGrid控件并将其放在合适的位置。4) 右击Adodc1，在弹出的下拉菜单中选择“ADODC属性”,出现属性页，选择“使用连接字符串”，点击“生成”，选择“Microsoft OLE DB Provider for SQL Server”,

2、点击下一步。5)在“数据链接属性”中输入如图所示信息，点击确定。6)点击“测试连接”。7) 在Form1空白处双击鼠标左键，弹出代码编辑窗口。8)在编辑窗口输入如下代码。Private Sub DataGrid1_Click()Adodc1.Visible = FalseAdodc1.RecordSource = "select * from Student"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.RefreshEnd Sub9)点击“运行”，则连接到JXGL数据库的Student

3、表，出现如图所示的结果。10)连接Course表和SC表只需将代码中的表名修改即可，得到如下结果。(1)VB和JXGL数据库Course表连接结果：(2) VB和JXGL数据库SC表连接结果：2、 VB连接SQL Server数据库方法二以及数据库的访问程序：（一）VB连接SQL Server数据库：1） 打开控制面板，双击“数据源”图标。2） 在“ODBC数据源管理器”中选择“系统DSN”,点击“添加”按钮，出现“创建新数据源页面”，选择添加SQL Server。3） 在创建到SQL Server的新数据源中输入“数据源名称”，选择我们需要的服务器类型。4）在“创建到SQL Server的新

4、数据源”中选择“使用网络登录ID的Windows NT验证”。5）在“更改默认的数据库为（D）”选择我们所需的数据源名称，点击“下一步”，再点击“完成”。6）点击“测试数据源”，出现“测试成功”，则连接成功。（2） 数据库的访问程序：1、对数据库的查询：1） 双击“Adodc控件”，添加如图所示的控件。2） 右击“Adodc控件”设置其属性如下所示。3） 在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”，DataField为“Sno”，Text2的DataSource为“Adodc1”，DataField为“Sname”，Text3的DataSource为“A

5、dodc1”，DataField为“Ssex”。4） 点击VB中的“运行”按钮，则可以成功查询Student表中学生的信息。5）点击“Adodc控件”中向右的图标，则可以查询到所有学生的信息。2、 对数据库中数据的添加：1） 在VB中新建一个窗体，如图所示。2） 在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。3） 对“Adodc控件”属性的设置和前面相同。4） 双击退出按钮，对此按钮进行编程。5） 对Form1加入如图所示的按钮。6） 双击新添加的各个按钮对其编程：Private Sub Command1_Click()Form.ShowEnd SubPri

6、vate Sub Command2_Click()tex_Sno.Text = ""tex_Sname.Text = ""tex_Ssex.Text = ""Adodc1.RefreshAdodc1.Recordset.AddNewcmd_add.Enabled = False '添加数据按钮禁用cmd_save.Enabled = True '保存数据按钮启用End SubPrivate Sub Command3_Click()If tex_Sno.Text = "" Then MsgBox (&

7、quot;请输入学号")ElseIf tex_Sname.Text = "" Then MsgBox ("请输入姓名")ElseIf tex_Ssex.Text = "" Then MsgBox ("请输入性别")Else Adodc1.Recordset("学号") = tex_Sno.Text Adodc1.Recordset("姓名") = tex_Sname.Text Adodc1.Recordset("性别") = tex_Ssex.Text cmd_add.Enabled = Truecmd_save.Enabled = Fa