1樓:匿名使用者
把access表建好,給個資料表名稱、欄位結構及一兩條記錄的示例,要實現什麼也說得清楚一點,別人才好告訴你怎麼做
其實怎麼做資料庫程式設計的話,問是沒法問的,要先看書,既然問了,就根據你提供的資訊,給你一個示例吧:
先在選單“工程”中“引用” microsoft activex data object x.x library(用最新版本)
再選擇“工程”中的“部件”,載入兩個控制元件,datagrid1是microsoft datagrid。。。,,adodc1是microsoft ado data。。。,然後在窗體中新增這兩個控制元件
再根據以下新增按鈕和文字框
rem 文字框text11、text12、text13,專門用來輸入姓名、性別、年齡的
rem 文字框text21、text22、text23,專門用來輸出姓名、性別、年齡有關的查詢結果
rem 在datagrid中顯示滿足條件的查詢結果
private sub command1_click()
'模糊查詢示例
sqlstr = "select * from 學生查詢 where 姓名 like '%" & text11.text & "%'"
'精確查詢示例
sqlstr = "select * from 學生查詢 where 性別 =" & text12.text
'區間查詢示例
sqlstr = "select * from 學生查詢 where 年齡 >" & text13.text
adodc1.recordsource = sqlstr
adodc1.refresh
set datagrid1.datasource = adodc1
end sub
rem 在vb的文字框中顯示查詢結果
private sub command2_click()
dim sconnstring as string
dim rs as adodb.recordset
dim cn as adodb.connection
sconnstring = "provider=microsoft.jet.oledb.
4.0;data source=f:\db1.
mdb" '換成你的資料庫檔名稱
set cn = new adodb.connection
cn.open sconnstring
set rs = new adodb.recordset
'查詢指定性別的人數
rs.open "select count(性別) as 性別 from 學生查詢 where 性別 ='" & text12.text & "'", cn, 3, 3
text22.text = rs("性別").value
rs.close
end sub
private sub form_load()
adodc1.connectionstring = "provider=microsoft.jet.
oledb.4.0;data source=f:
\db1.mdb" '把f:\db1.
mdb換成你自己的資料庫檔名稱
adodc1.recordsource = "學生查詢" '這是資料庫中表的名稱
adodc1.refresh
set datagrid1.datasource = adodc1
end sub
2樓:淚痕_飛
vb編寫一個排班查詢軟體
3樓:超級愛情的到來
if text1.text="123" thentext2.text="159"
elseif text1.text="5" thentext2.text="6"
else
text2.text="存"
end if
放按鈕單擊事件
我想用VB實現這樣功能 輸入正整數(integer),如1234顯示a 1 b 2 c 3 d
有幾種方式,1,變正整數為字串,然後依次取出字串,然後可以用當型迴圈,依次取短字串,直到字串被取完,顯示的字母也是從a 開始,依次增加,比如一開始是c 95,chr c 然後c逐漸增大,這樣可以適應很多位數的顯示 2 先求出整數位數,比如用對數的方法 然後依次除以10的多少次,求出a 可以用迴圈fo...
我想用PS軟體做班徽要怎麼做啊我想用PS軟體做一個班徽要怎麼做啊
1 ps做logo並不太好,原因有兩點 ps做的圖是點陣圖 還有就是ps工具用起來不方便,推薦用cdr做 2 但ps並不是不能做,步驟如下 一 用筆畫一個草圖,二 用手機拍一個正面圖 三 把圖拉進ps,新建圖層,用工筆工具勾勒草圖,在新圖層上填色 如果班徽複雜,可以多建幾個圖層,在對應的圖層上填色 ...
我想用我老婆的名字做一首藏頭詩想用自己的名字做首藏頭詩
楊柳入樓吹玉簫,曉風淡月影梅花。娟花嬌豔佳人醉,我伴佳人踏花歸。愛戀之心情相隨,你儂我儂羨煞也。呵呵 想了半天 楊柳依依撫我面,曉月熠熠照我心,娟娟如水姮古留。我心歸去,愛慾無為,你可知儭?楊柳依依清風撫,曉霧淡彌賞日出。娟秀山河雲遮月,吾身倒影莫愁湖。愛縷無聲隨風去,你顰怡笑憶欲哭。永念伊人臨別淚...