我想用vb做查詢軟體,我想用VB做一個查詢軟體

2021-07-09 16:22:49 字數 2016 閱讀 3006

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,新建圖層,用工筆工具勾勒草圖,在新圖層上填色 如果班徽複雜,可以多建幾個圖層,在對應的圖層上填色 ...

我想用我老婆的名字做一首藏頭詩想用自己的名字做首藏頭詩

楊柳入樓吹玉簫,曉風淡月影梅花。娟花嬌豔佳人醉,我伴佳人踏花歸。愛戀之心情相隨,你儂我儂羨煞也。呵呵 想了半天 楊柳依依撫我面,曉月熠熠照我心,娟娟如水姮古留。我心歸去,愛慾無為,你可知儭?楊柳依依清風撫,曉霧淡彌賞日出。娟秀山河雲遮月,吾身倒影莫愁湖。愛縷無聲隨風去,你顰怡笑憶欲哭。永念伊人臨別淚...