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做桌面提醒軟體
1 定時功能不難,timer控制項即可 2 資訊需要儲存,否則呼叫和關機載入都麻煩 如果資料量小可用access或文字檔案儲存,甚至可能儲存在登錄檔中 3 問題乙隻是乙個字元處理過程,不能說是麻煩例 s 2008 12 12 要吃飯了 ss split s,那麼s 0 就是 2008 12 12 s...
我想用手機控制家電音響,怎麼做,我想用手機控制家電 電視 音響,怎麼做?
需要手機控制軟體,以及與家電之間的控制系統,目前沒有標準化的控制系統這樣的產品,所以你的要求無法實現。當然自己做系統理論上是可行的,但是成本肯定很高。 我是專業做 控制系統的。有些朋友講什麼品牌音箱或者電視就可以,那是扯蛋。現在的 控制都是集於網際網路絡,通過ipad或者安卓系統的手機,比如ipho...
懂VB的回答啊,我想利用VB做和PLC通訊的顯示畫面
plc似乎是通過i o交換資料的,可以通過plc所帶的光碟驅動實現窗體上使用timer控制元件,迴圈讀取 ioread 當裝置出現故障的時候,ioread的資料肯定有變化,撲捉並換算後顯示在螢幕上例如,timer裡類似 private sub timer1 timer dim datar as si...