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
放按鈕單擊事件
我想用家電進銷存的軟體，我想用一個家電進銷存的軟體
米多gsp管理軟體 試試世紀之星 進銷存軟體，條碼在產品資料中設好，開單時用掃描槍掃描即可 格輔圖攻 我有，還可以根據你的要求改做 試一試用兆眾軟體，或者找我，也行的。我是做家電的，我想找一個免費的進銷存管理軟體，哪位推薦一款？ 試下 笛佛家電銷售通，是專門針對家電行業的家電進銷存軟體,比如零售 批...
為什麼我的VB程式點選查詢沒反應
adodc1.recordsource select from 生產計劃 where 加工單號 like text1.text 改成 adodc1.recordsource select from 生產計劃 where 加工單號 like text1.text 把 加工單號 用方括號括起來試試。另外...
我想用釋然歆然做藏頭詩求幫助
雨中漫步 釋蕩江湖我自閒，然求真樂一片春。歆欣林飛逍遙去，然楓葉舞天地間。呵呵，不知道lz的真正需要，如果不滿意，請註明藏頭詩意境和要求，我再改。歡迎追問。 你想做就做吧，給你加油了。另外幫你查詢了下兩個詞的資料 釋然讀音 sh r n 例句1.忘記了曾經那些悲傷的往事，你也就慢慢釋然了。2.事情過...