急求一個(gè)VB程序代碼，實(shí)現(xiàn)數(shù)據(jù)庫(kù)內(nèi)容的查詢，修改，新增，刪除 VB實(shí)現(xiàn)ACCESS數(shù)據(jù)庫(kù)記錄的查詢，新增，刪除，修改
Dim D As Database, T As TableDef, R As Recordset
Private Sub Command1_Click() '創(chuàng)建數(shù)據(jù)庫(kù)
Set D = CreateDatabase("D:\數(shù)據(jù)庫(kù)名稱.mdb", dbLangGeneral, dbEncrypt) '創(chuàng)建數(shù)據(jù)庫(kù)對(duì)象(dbEncrypt=加密)
D.NewPassword "", "123456" '數(shù)據(jù)庫(kù)密碼設(shè)置為123456
'建立設(shè)置數(shù)據(jù)表
Set T = D.CreateTableDef("數(shù)據(jù)表名稱") '數(shù)據(jù)表名稱:
T.Fields.Append T.CreateField("項(xiàng)目一", dbMemo) 'TEXT1內(nèi)容
T.Fields.Append T.CreateField("項(xiàng)目二", dbMemo) 'TEXT2內(nèi)容
D.TableDefs.Append T '將數(shù)據(jù)表添加到數(shù)據(jù)庫(kù)中
D.Close '關(guān)閉數(shù)據(jù)庫(kù)
End Sub
Private Sub Command2_Click() '查詢
Dim T1 As Boolean '判斷查詢數(shù)據(jù)是否存在參數(shù)
Set D = OpenDatabase("D:\數(shù)據(jù)庫(kù)名稱.mdb", True, False, ";pwd=123456") '需要查詢的數(shù)據(jù)庫(kù)名稱,格式,允許修改,數(shù)據(jù)庫(kù)密碼
Set R = d1.OpenRecordset("Select * From 數(shù)據(jù)表名稱") '數(shù)據(jù)表名稱:
R.MoveFirst '記錄移到第一條記錄
Do While (R.EOF = False) '如果記錄已經(jīng)是最后一條就退出循環(huán)
If R.Fields("項(xiàng)目一") = Text1.Text Then '判斷項(xiàng)目一是否等于文本TEXT1內(nèi)容
Text2.Text = R.Fields("項(xiàng)目二") '如果存在TEXT2文本框就引入記錄內(nèi)容
T1 = True '作于下面判斷記錄已經(jīng)存在的條件
Exit Do '記錄已經(jīng)查到，可以退出循環(huán)查詢比較
End If
R.MoveNext '如果本條記錄不符合要就就記錄移到下一條記錄
Loop
If T1 = False Then MsgBox "您查詢的結(jié)果不存在" '這里使用到了參數(shù) T1 作為判斷是否存在記錄
D.Close '關(guān)閉數(shù)據(jù)庫(kù)
End Sub
Private Sub Command32_Click() '新數(shù)據(jù)錄入
Set D = OpenDatabase("D:\數(shù)據(jù)庫(kù)名稱.mdb", True, False, ";pwd=123456") '需要查詢的數(shù)據(jù)庫(kù)名稱,格式,允許修改,數(shù)據(jù)庫(kù)密碼
Set R = D.OpenRecordset("Select * From 數(shù)據(jù)表名稱")
R.AddNew '增加一條新記錄
R.Fields("項(xiàng)目一") = 1 'TEXT1新記錄內(nèi)容
R.Fields("項(xiàng)目二") = "個(gè)VB程序代碼，實(shí)現(xiàn)數(shù)據(jù)庫(kù)內(nèi)容的查詢，修改，新增，刪除" 'TEXT2新記錄內(nèi)容
R.Update '保存記錄
D.Close '關(guān)閉數(shù)據(jù)庫(kù)
End Sub
Private Sub Command4_Click() '修改
Set D = OpenDatabase("D:\數(shù)據(jù)庫(kù)名稱.mdb", True, False, ";pwd=123456") '需要查詢的數(shù)據(jù)庫(kù)名稱,格式,允許修改,數(shù)據(jù)庫(kù)密碼
Set R = D.OpenRecordset("Select * From 數(shù)據(jù)表名稱")
R.Edit '修改記錄 （注意 在程序中你根據(jù)需要條件將記錄移到你需要修改的位置才進(jìn)行修改）
R.Fields("項(xiàng)目一") = Text1.Text 'TEXT1記錄內(nèi)容修改
R.Fields("項(xiàng)目二") = Text2.Text 'TEXT2記錄內(nèi)容修改
R.Update '保存記錄
D.Close '關(guān)閉數(shù)據(jù)庫(kù)
End Sub
Private Sub Command5_Click() '刪除
Set D = OpenDatabase("D:\數(shù)據(jù)庫(kù)名稱.mdb", True, False, ";pwd=123456") '需要查詢的數(shù)據(jù)庫(kù)名稱,格式,允許修改,數(shù)據(jù)庫(kù)密碼
Set R = D.OpenRecordset("Select * From 數(shù)據(jù)表名稱")
'
Data1.Recordset.Delete '刪除該條記錄 ，（注意 在程序中你根據(jù)需要條件將記錄移到你需要?jiǎng)h除的位置才進(jìn)行刪除）
D.Close '關(guān)閉數(shù)據(jù)庫(kù)
End Sub
'我今晚使用的電腦沒(méi)有安裝VB企業(yè)版，未經(jīng)測(cè)試，如有疑問(wèn)星期一上班有時(shí)間再回復(fù)。
adoodc控件沒(méi)用過(guò)
我一般是這樣寫(xiě)的：
'菜單欄-工程-引用-勾選microsolf activex data objects x.xx library (x.xx為版本號(hào))-確定
'聲明窗體變量,也可聲明全局變量
dim conn As New ADODB.connection
dim rs As New ADODB.Recordset
dim strsql As String
dim cnstr As String
dim TJ As String
Private Sub Form_Load()
‘連接數(shù)據(jù)庫(kù)
conn.CursorLocation = adUseClient
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=1.mdb;Jet OLEDB:Database Password=" ’這里的數(shù)據(jù)庫(kù)地址，可用絕對(duì)地址或相對(duì)地址，無(wú)密則留空
conn.ConnectionString = cnstr
conn.Open cnstr
End Sub
Private Sub Command1_Click()’查詢按鈕 ps:text6下面的類別是什么？多條件查詢可改一下查詢語(yǔ)句即可
if rs.state=adstateopen then rs.close '每次查詢前檢測(cè)表是否打開(kāi)，打開(kāi)時(shí)則關(guān)閉表
TJ=text6.text
strsql = "select * from 表名 where 字段名 ='" & TJ & "'" ‘適當(dāng)修改表名，查詢的了段名
rs.Open strsql, conn, 3, 3
if rs.eof then
msgbox"要查詢的名稱不存在！"
else
'這里假設(shè)你的字段從左到右分別 名稱，座機(jī)，手機(jī)，郵箱，職務(wù)
text1.text= rs(0)
text2.text=rs(1)
text3.text=rs(2)
text4.text=rs(3)
text5.text=rs(4)
end if
rs.close '關(guān)閉表
End Sub
Private Sub Command2_Click() '刪除
'這里是查詢后，再刪除查詢用的記錄，用text1作查詢條件
If Text1.Text <> "" Then
Dim maval As Integer
myval = MsgBox("確定要?jiǎng)h除記錄？要?jiǎng)h除記錄請(qǐng)選擇“是”繼續(xù)操作?", vbYesNo + vbQuestion, "提示")
If myval = vbYes Then
If rs.State = adStateOpen Then rs.Close'同樣的，先檢查表的打開(kāi)狀態(tài)
strsql = "select * from 表名 where 字段名 =" & Text1.Text & ""
rs.Open strsql, conn, 3, 3
If rs.EOF Then
MsgBox "該名稱不存在！", , "提示"
Else
rs.Delete
rs.Update '刪除后要先更新再關(guān)閉表
text1.text=""'清空文本框，省略text2-5的
msgbox"記錄已成功刪除！"
End If
rs.close
end if
End Sub
Private Sub Command3_Click() '添加
If rs.State = adStateOpen Then rs.Close'同上
'這里加一段代碼檢查要添加的數(shù)據(jù)是否完整，（略）
strsql = "select * from 表名 where 字段名 =" & Text1.Text & ""
rs.Open strsql, conn, 3, 3
if rs.eof then'判斷數(shù)據(jù)是否存在!確保記錄的唯一性
rs.addnew
rs(0)=text1.text
rs(1)=text2.text
rs(2)=text3.text
rs(3)=text4.text
rs(4)=text5.text
rs.update
else
msgbox"記錄不存在！"
end if
rs.close
End Sub
'好吧，基本上就是這樣的，來(lái)來(lái)去去也是那幾句
參考這個(gè)問(wèn)題回答，里面有這段代碼的窗口界面（這個(gè)是 datagrid + access 的）
http://zhidao.baidu.com/question/578895277.html?oldq=1
我
加你了
急求一個(gè)VB程序代碼,實(shí)現(xiàn)數(shù)據(jù)庫(kù)內(nèi)容的查詢,修改,新增,刪除
Dim T1 As Boolean '判斷查詢數(shù)據(jù)是否存在參數(shù) Set D = OpenDatabase("D:\\數(shù)據(jù)庫(kù)名稱.mdb", True, False, ";pwd=123456") '需要查詢的數(shù)據(jù)庫(kù)名稱,格式,允許修改,數(shù)據(jù)庫(kù)密碼 Set R = d1.OpenRecordset("Select * From 數(shù)據(jù)表名稱") '數(shù)據(jù)表名稱:R.MoveFirst '記錄移到第一條...
VB實(shí)現(xiàn)ACCESS數(shù)據(jù)庫(kù)記錄的查詢,新增,刪除,修改的代碼是什么?
“修改”按鈕的程序 \\x0d\\x0aPrivate Sub cmdEdit_Click() \\x0d\\x0asql = "select * from 停時(shí)統(tǒng)計(jì) where date = cdate('" & Text8.Text & "') and ycqk = '" & Combo1.Text & "'and id = '" & DataGrid1.Columns(2).CellText(DataGrid1.Bookmark) & "'" \\x0d\\x0a...
vb模糊查詢語(yǔ)句
在VB編程中，進(jìn)行模糊查詢時(shí)，可以使用ADO（ActiveX Data Objects）對(duì)象來(lái)操作數(shù)據(jù)庫(kù)。例如，通過(guò)使用SQL語(yǔ)句中的LIKE關(guān)鍵字，可以實(shí)現(xiàn)基于特定模式的搜索。具體地，可以編寫(xiě)如下代碼來(lái)實(shí)現(xiàn)模糊查詢：首先，通過(guò)rs對(duì)象打開(kāi)一個(gè)SQL查詢，該查詢根據(jù)表中的特定列進(jìn)行模糊匹配。例如：rs.Open "SELECT * FROM 表...
VB編程如何實(shí)現(xiàn)ACCESS數(shù)據(jù)庫(kù)記錄的查詢?
要查詢數(shù)據(jù)庫(kù)中的記錄，首先需要?jiǎng)?chuàng)建一個(gè)連接對(duì)象，并使用其執(zhí)行SQL查詢語(yǔ)句。具體步驟如下：創(chuàng)建ADO連接對(duì)象并建立與數(shù)據(jù)庫(kù)的連接。 創(chuàng)建一個(gè)命令對(duì)象，并設(shè)置其類型為“查詢”。 在命令對(duì)象中編寫(xiě)SQL查詢語(yǔ)句，例如：`"SELECT * FROM Students WHERE Age = '99'"`。 執(zhí)行命令對(duì)象，并獲取...
VB中如何模糊查詢
在VB編程中，進(jìn)行模糊查詢時(shí)，可以使用SQL的LIKE語(yǔ)句。下面是一個(gè)示例代碼：假設(shè)我們有一個(gè)名為tempdb的數(shù)據(jù)庫(kù)表，其中包含一個(gè)名為name的字段。如果我們想要查詢所有包含"csdn"的記錄，可以使用以下SQL語(yǔ)句：SELECT * FROM tempdb WHERE tempdb.name LIKE '%csdn%'需要注意的是，這里的“%”是一個(gè)...
vb連接access實(shí)現(xiàn)查詢
首先要做一個(gè)數(shù)據(jù)控件如data控件，或adodc控件，連接到你的數(shù)據(jù)庫(kù)，再把label控件綁定到數(shù)據(jù)控件的一個(gè)你需要顯示的字段上，這樣查詢到的第一條數(shù)據(jù)會(huì)顯示在label上的。在text1里的查詢代碼：（%可以代替任何字符，就是實(shí)現(xiàn)模糊查詢）Private Sub Text1_Change()Adodc1.RecordSource = "select * from ...
VB 6.0數(shù)據(jù)庫(kù)查詢代碼不會(huì),求指教!
3，你的數(shù)據(jù)庫(kù)文件名為“數(shù)據(jù)庫(kù).mdb”,且已經(jīng)保存在與本工程文件同一個(gè)文件夾里。4，你所使用的數(shù)據(jù)表名為“鋼材數(shù)據(jù)表”那么，在[查詢]按鈕的單擊事件里，編寫(xiě)如下代碼就可以實(shí)現(xiàn)你的要求：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path & "\\數(shù)據(jù)庫(kù)....
VB查詢SQL2000數(shù)據(jù)庫(kù)其中一個(gè)表的內(nèi)容并顯示出來(lái)的完整操作代碼?
代碼如下：private sub command1_click on error goto errmsg '遇到錯(cuò)誤，轉(zhuǎn)到errmsg dim MyConStr as string '連數(shù)據(jù)庫(kù)字符串 dim MyCount as Long '讀取的數(shù)據(jù)條數(shù) dim sqlstr as string '查詢語(yǔ)句 dim OutStr as string '輸出結(jié)果 dim a as string '對(duì)應(yīng)表中的字段a b c ...
VB 6.0數(shù)據(jù)庫(kù)查詢代碼不會(huì),求指教!
3，你的數(shù)據(jù)庫(kù)文件名為“數(shù)據(jù)庫(kù).mdb”,且已經(jīng)保存在與本工程文件同一個(gè)文件夾里。4，你所使用的數(shù)據(jù)表名為“鋼材數(shù)據(jù)表”那么，在[查詢]按鈕的單擊事件里，編寫(xiě)如下代碼就可以實(shí)現(xiàn)你的要求：Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\數(shù)據(jù)庫(kù)....
VB6.0中怎樣使用data控件實(shí)現(xiàn)數(shù)據(jù)庫(kù)查找功能
1、使用data控件的FindFirst方法可以實(shí)現(xiàn)數(shù)據(jù)庫(kù)記錄的查找。2、工具：vb6。3、具體實(shí)現(xiàn)方法：a)在窗體上添加data1、dbgrid1、text1、command1、label1 b)在dbgrid1的DataSource屬性里選擇data1 c)實(shí)現(xiàn)代碼如下：Private Sub Command1_Click() '查找定位記錄 Data1.Recordset.FindFirst "CategoryID=...
相關(guān)評(píng)說(shuō)：
佳縣主提： ______ 假設(shè):你已經(jīng)與access數(shù)據(jù)庫(kù)建立了連接cn 窗體中添加一個(gè)DataGrid控件,比如控件名為DataGrid1,然后在窗體的加載事件中寫(xiě)如下代碼:Private Sub Form_Load()'定義記錄集rsg Dim rsg As New ADODB.Recordset'打開(kāi)記錄集rsg.以字...
佳縣主提： ______ 給你個(gè)模版,照這樣就行了... Dim DAOmydb1 As Database Dim NewTable As TableDef Private Sub Form_Load() Set DAOmydb1 = Workspaces(0).OpenDatabase(App.Path & ＂\abc.mdb＂) Set NewTable = DAOmydb1.CreateTableDef(＂...
佳縣主提： ______ 數(shù)據(jù)庫(kù)用VB6編程語(yǔ)言,對(duì)新手而言,如何用好ADODC控件和DATAGRID控件相當(dāng)重要.具體做法:新建數(shù)據(jù)工程,此時(shí)VB6集成調(diào)試環(huán)境左邊工具箱內(nèi)已加載了有關(guān)數(shù)據(jù)庫(kù)編程必須的控件和引用.然后在FORM1窗體中添加ADODC控件和...
佳縣主提： ______ 提示:你的表都少了個(gè)主鍵自增Id,操作開(kāi)始:一:建軍立數(shù)據(jù)庫(kù)如:datebases,新建二個(gè)表,一個(gè)課程表Courses ,一個(gè)學(xué)生表student,各表詳情如圖 二:知道課程年齡查學(xué)分,查出的結(jié)果一般為多記錄,所以應(yīng)該循環(huán)來(lái)輸出;三:SQL語(yǔ)...
佳縣主提： ______ 具體做法: 新建工程時(shí)選數(shù)據(jù)工程,此時(shí)VB6集成調(diào)試環(huán)境左邊工具箱內(nèi)已加載了有關(guān)數(shù)據(jù)庫(kù)編程必須的控件. 然后在FORM1窗體中添加ADODC控件和DATAGRID控件,將DATAGRID1的屬性DATASOURCE選ADODC1,打開(kāi)ADODC1控件...
佳縣主提： ______ 參考以下代碼吧,Cbx_Fields是ComboBox,通過(guò)按鈕Cmd_Add_Click添加,當(dāng)然,你也可以通過(guò)form_load添加 Dim fld ' Dim rs As New ADODB.Recordset '定義數(shù)據(jù)集對(duì)象 Function cnn() As ADODB.Connection '定義連接函數(shù) '創(chuàng)建連接 Set ...
佳縣主提： ______ 因?yàn)槟愕膔s已經(jīng)在別處打開(kāi)了,沒(méi)有關(guān)閉 建議數(shù)據(jù)集用完了要及時(shí)關(guān)閉,或者用局部變...
佳縣主提： ______ '加個(gè)按鈕,兩個(gè)文本框,文本框MultiLine屬性改為true Private Sub Command1_Click() Dim Num(60) As Integer Dim TempNum As Integer Dim i As Integer, j As Integer Randomize For i = 1 To 60 Num(i) = 100 + 100 * Rnd Print Num(i); If i Mod 10 ...
佳縣主提： ______ insert into 表名(字段1,字段2...字段n) values('值1字符型',值2數(shù)據(jù)型,...'值n')
佳縣主提： ______ 首先,要找一本VB的語(yǔ)法書(shū)來(lái)看看,VB的語(yǔ)法不多,主要看看變量定義,流程控制語(yǔ)句,函數(shù)、過(guò)程的定義等.其次,了解一下數(shù)據(jù)庫(kù)方面的知識(shí).數(shù)據(jù)庫(kù)簡(jiǎn)單點(diǎn)就用Acces...
