數(shù)據(jù)庫-實(shí)驗(yàn)3參考

1、計(jì)算機(jī)科學(xué)與工程學(xué)院實(shí)驗(yàn)步驟：一、VB連接SQL Server數(shù)據(jù)庫方法一：1）打開VB，新建一個(gè)“標(biāo)準(zhǔn)EXE”。2)在“工程”里面選擇“部件”，添加“Microsoft ADO Data Control 6.0(SP6)”和“Microsoft DataGrid Control 6.0(SP6)”，點(diǎn)擊“確定”。3)在左側(cè)工具中雙擊Adodc控件和DataGrid控件并將其放在合適的位置。4) 右擊Adodc1，在彈出的下拉菜單中選擇“ADODC屬性”,出現(xiàn)屬性頁，選擇“使用連接字符串”，點(diǎn)擊“生成”，選擇“Microsoft OLE DB Provider for SQL Server”,

2、點(diǎn)擊下一步。5)在“數(shù)據(jù)鏈接屬性”中輸入如圖所示信息，點(diǎn)擊確定。6)點(diǎn)擊“測(cè)試連接”。7) 在Form1空白處雙擊鼠標(biāo)左鍵，彈出代碼編輯窗口。8)在編輯窗口輸入如下代碼。Private Sub DataGrid1_Click()Adodc1.Visible = FalseAdodc1.RecordSource = "select * from Student"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.RefreshEnd Sub9)點(diǎn)擊“運(yùn)行”，則連接到JXGL數(shù)據(jù)庫的Student

3、表，出現(xiàn)如圖所示的結(jié)果。10)連接Course表和SC表只需將代碼中的表名修改即可，得到如下結(jié)果。(1)VB和JXGL數(shù)據(jù)庫Course表連接結(jié)果：(2) VB和JXGL數(shù)據(jù)庫SC表連接結(jié)果：2、 VB連接SQL Server數(shù)據(jù)庫方法二以及數(shù)據(jù)庫的訪問程序：（一）VB連接SQL Server數(shù)據(jù)庫：1） 打開控制面板，雙擊“數(shù)據(jù)源”圖標(biāo)。2） 在“ODBC數(shù)據(jù)源管理器”中選擇“系統(tǒng)DSN”,點(diǎn)擊“添加”按鈕，出現(xiàn)“創(chuàng)建新數(shù)據(jù)源頁面”，選擇添加SQL Server。3） 在創(chuàng)建到SQL Server的新數(shù)據(jù)源中輸入“數(shù)據(jù)源名稱”，選擇我們需要的服務(wù)器類型。4）在“創(chuàng)建到SQL Server的新

4、數(shù)據(jù)源”中選擇“使用網(wǎng)絡(luò)登錄ID的Windows NT驗(yàn)證”。5）在“更改默認(rèn)的數(shù)據(jù)庫為（D）”選擇我們所需的數(shù)據(jù)源名稱，點(diǎn)擊“下一步”，再點(diǎn)擊“完成”。6）點(diǎn)擊“測(cè)試數(shù)據(jù)源”，出現(xiàn)“測(cè)試成功”，則連接成功。（2） 數(shù)據(jù)庫的訪問程序：1、對(duì)數(shù)據(jù)庫的查詢：1） 雙擊“Adodc控件”，添加如圖所示的控件。2） 右擊“Adodc控件”設(shè)置其屬性如下所示。3） 在右側(cè)屬性-Form1中分別設(shè)置Text1的DataSource為“Adodc1”，DataField為“Sno”，Text2的DataSource為“Adodc1”，DataField為“Sname”，Text3的DataSource為“A

5、dodc1”，DataField為“Ssex”。4） 點(diǎn)擊VB中的“運(yùn)行”按鈕，則可以成功查詢Student表中學(xué)生的信息。5）點(diǎn)擊“Adodc控件”中向右的圖標(biāo)，則可以查詢到所有學(xué)生的信息。2、 對(duì)數(shù)據(jù)庫中數(shù)據(jù)的添加：1） 在VB中新建一個(gè)窗體，如圖所示。2） 在左側(cè)工具中雙擊“Adodc控件”和“DataGrid控件”并將其放在合適的位置。3） 對(duì)“Adodc控件”屬性的設(shè)置和前面相同。4） 雙擊退出按鈕，對(duì)此按鈕進(jìn)行編程。5） 對(duì)Form1加入如圖所示的按鈕。6） 雙擊新添加的各個(gè)按鈕對(duì)其編程：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 '添加數(shù)據(jù)按鈕禁用cmd_save.Enabled = True '保存數(shù)據(jù)按鈕啟用End SubPrivate Sub Command3_Click()If tex_Sno.Text = "" Then MsgBox (&

7、quot;請(qǐng)輸入學(xué)號(hào)")ElseIf tex_Sname.Text = "" Then MsgBox ("請(qǐng)輸入姓名")ElseIf tex_Ssex.Text = "" Then MsgBox ("請(qǐng)輸入性別")Else Adodc1.Recordset("學(xué)號(hào)") = tex_Sno.Text Adodc1.Recordset("姓名") = tex_Sname.Text Adodc1.Recordset("性別") = tex_Ssex.Text cmd_add.Enabled = Truecmd_save.Enabled = Fa