国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

                           VB利用ADO控件連接access數(shù)據(jù)庫(kù)

    今天告訴大家VB利用ADO控件連接access數(shù)據(jù)庫(kù)的兩種方法：

    一種是在 adodc1的屬性里設(shè)置數(shù)據(jù)庫(kù)文件的路徑,這種方法的優(yōu)點(diǎn)是簡(jiǎn)單易操作,缺點(diǎn)是,當(dāng)源文件換了地方后,要重新設(shè)置數(shù)據(jù)庫(kù)的路徑,否則連接不上數(shù)據(jù)庫(kù)了。

    一種是用代碼設(shè)置數(shù)據(jù)庫(kù)的路徑，這種方法的優(yōu)點(diǎn)就是只要源文件和數(shù)據(jù)庫(kù)在同一文件夾下，無(wú)論移動(dòng)到哪里都能連接上。

    如果沒(méi)有建立好數(shù)據(jù)庫(kù)的話,先建立一個(gè)數(shù)據(jù)庫(kù),然后建立一個(gè)表比如我們建的表名為message,然后把里面的字段名稱和數(shù)據(jù)類型都按自己的需要設(shè)置好.然后保存就可以了.
    打開(kāi)Microsoft Visual Basic6.0 我用的是VB6.0,在需要調(diào)用數(shù)據(jù)庫(kù)的窗體上加入一個(gè)adodc控件,默認(rèn)名稱為:Adodc1。默認(rèn)的情況下工具欄里是沒(méi)有這個(gè)控件的,可以打開(kāi)工程---部件(快捷鍵CTRL+T),去掉只顯示選定項(xiàng)的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后確定，工具欄就會(huì)多了一個(gè)adodc的控件。

第一種方法：設(shè)置adodc1的屬以連接數(shù)據(jù)庫(kù).在adodc1控件上右鍵--Adodc屬性--使用連接字符串--生成--Microsoft Jet 4.0 OLE DB Provider--下一步--選擇或輸入數(shù)據(jù)庫(kù)名稱---找到要連接的數(shù)據(jù)庫(kù)后,確定.然后記錄源設(shè)置屬性. 如果要把內(nèi)容提交到數(shù)據(jù)庫(kù)一般使用adCmdTable. 表選擇要連接的表。
設(shè)置完畢后就可以了.
如果我們想把內(nèi)容提交到數(shù)據(jù)庫(kù).舉個(gè)例子..
在窗體建立一個(gè)文本框,設(shè)置屬性中的DataSource為adodc1   DataField為要連接的數(shù)據(jù)庫(kù)的字段名。如果數(shù)據(jù)庫(kù)中有字段，會(huì)讓你選擇。
設(shè)置好后在窗體加一個(gè)添加記錄和一個(gè)提交的按鈕，設(shè)置代碼：
Private Sub Command1_Click()
Adodc1.Recordset.Update   '保存
Adodc1.Refresh '刷新
End Sub
添加按鈕代碼:
Private Sub Command2_Click()
Adodc1.Recordset.AddNew '添加新紀(jì)錄
Adodc1.Recordset("姓名").Value = Text1.Text
End Sub

第二種方法:
在窗體添加Adodc控件一個(gè)text控件 一個(gè)添加記錄按鈕一個(gè)提交按鈕
在窗體設(shè)置代碼:
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '設(shè)置數(shù)據(jù)庫(kù)路徑
Adodc1.CommandType = adCmdText '設(shè)置記錄源
Adodc1.RecordSource = "select * from message" '連接數(shù)據(jù)庫(kù)的message表文件
Set Text1.DataSource = Adodc1
text1.DataField = "姓名"
End Sub
添加記錄按鈕代碼：
Private Sub Command1_Click()
Adodc1.Recordset.AddNew '添加新紀(jì)錄
End Sub

提交代碼：
Private Sub Command2_Click()
Adodc1.Recordset.Update   '保存
Adodc1.Refresh '刷新
End Sub
    好了連接方法講完了,我都在機(jī)子上測(cè)試過(guò)了,因該沒(méi)有什么問(wèn)題的。如果有問(wèn)題請(qǐng)多看幾遍，或看些別人寫的程序代碼，會(huì)有很大進(jìn)步的，我的VB也不好,因?yàn)椴皇怯?jì)算機(jī)專業(yè)的，老師也沒(méi)有教很多,高手莫笑。好了我再給大家?guī)讉€(gè)查詢數(shù)據(jù)庫(kù)常用的代碼：
首記錄按鈕的代碼：
Private Sub sjl_Click()
Adodc1.Recordset.MoveFirst
End Sub
上一條記錄按鈕代碼：
Private Sub up_Click()
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveFirst
End If
End Sub
下一條記錄代碼：
Private Sub down_Click()
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End Sub
末記錄代碼：
Private Sub mjl_Click()
Adodc1.Recordset.MoveLast
End Sub
刪除記錄代碼：
Private Sub Command3_Click()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If (Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF) Then
MsgBox "已經(jīng)無(wú)記錄", , "提示"
End If
End Sub