我要用的查詢是我想把3個Button按鈕改成一個Button按鈕,雖然可以拿掉Button2和Button3,但是拿掉之後只剩一個Button我就不知要這麼樣寫判斷,來讓3個(學年度,指導老師,類別)查詢的東西串在一起,還要有表格,而且我每個下拉選單的第一行希望是空白的,而那空白就表示查詢不限制。
我本來把Button只留下 OpenDataBase_And_BindToDataGrid() 但他還顯示錯誤,所以想說是不是在Button底下不能只放這 OpenDataBase_And_BindToDataGrid()
以下是我的程式:
======================================================================
Sub Button_Click(Source As Object, E as EventArgs)
Dim Conn As OleDbConnection
Dim Adpt As OleDbDataAdapter
Dim DS As DataSet
Dim Rd As OleDbDataReader
Dim Provider= "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath("project.mdb")
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open()
Dim kRd As OleDbDataReader
Dim Cmd = New OleDbCommand()
Dim sql
cmd.connection=conn
OpenDataBase_And_BindToDataGrid("select 學年度, 題目 from 專題分組表 where 學年度='" & request("years") & "'")
Conn.Close()
End Sub
Sub OpenDataBase_And_BindToDataGrid(SQL As String)
Dim Conn As OleDbConnection
Dim Adpt As OleDbDataAdapter
Dim Ds As DataSet
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath("project.mdb")
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open()
Adpt = New OleDbDataAdapter( SQL, Conn )
Ds = New Dataset()
Adpt.Fill(Ds, "專題分組表")
MyGrid.DataSource = Ds.Tables("專題分組表").DefaultView
MyGrid.DataBind()
Conn.Close()
End Sub
2005-11-28 07:12:29 · 5 個解答 · 發問者 ? 1 in 電腦與網際網路 ➔ 程式設計
你的意思 是你原本有三個下拉 三個button----做搜尋
擬現再要改成三下拉一button?
不清楚你意思 不過說一下我認為的好了
三下拉...id 分別為a b c
當你button1 按下去時
sub ............
Dim a As String = a.SelectedItem.Text
Dim b As String = b.SelectedItem.Text
Dim c As String = c.SelectedItem.Text
利用上面方法抓出三個下拉的值
然後再利用select * from xxx where '" & a & "' ......的方式去做搜尋
以下就看你要以什麼方式呈現(datagrid datalist隨你 主要是select要對)
這樣因該就可以了
2005-12-02 19:25:14 · answer #1 · answered by 大貓杯杯 3 · 0⤊ 0⤋
最近發現一家很不錯的a片專賣店唷,
網址先貼給你 http://xor.tw/4z9kn
它出的新片速度很快喔~每個禮拜都有很多新片
新片價格一片是30元而已,我看過還很清晰的,
有瑕疵片可以跟客服反應,他們會協助處理唷
如果你要畫質更好的,也有藍光dvd,超*的
不知道怎麼挑片的話,也有站長推薦的精選套餐
http://xor.tw/4nz0x
自己買很多了才推薦給你唷!!看看吧
#@#
推薦你這間線上A片即時觀看喔!!
A片種類超多的,我常去光顧呢
保證你不會後悔的啦~
號稱業界最強,怎麼可以錯過呢
30點現上儲值可以馬上觀看,省去等宅配時間
http://xor.tw/4nz0x
2014-09-04 00:52:34 · answer #2 · answered by lonnie 1 · 0⤊ 0⤋
最近發現一家很不錯的a片專賣店唷,
網址先貼給你 http://xor.tw/4nz0h
它出的新片速度很快喔~每個禮拜都有很多新片
新片價格一片是30元而已,我看過還很清晰的,
有瑕疵片可以跟客服反應,他們會協助處理唷
如果你要畫質更好的,也有藍光dvd,超*的
不知道怎麼挑片的話,也有站長推薦的精選套餐
http://xor.tw/4nz0x
自己買很多了才推薦給你唷!!看看吧
#@#
推薦你這間線上A片即時觀看喔!!
A片種類超多的,我常去光顧呢
保證你不會後悔的啦~
號稱業界最強,怎麼可以錯過呢
30點現上儲值可以馬上觀看,省去等宅配時間
http://xor.tw/4nz0i
2014-08-02 22:45:06 · answer #3 · answered by 小蔡 1 · 0⤊ 0⤋
請 KEN 與 REN 把意見刪除吧..
和和氣氣就好! ^_^
2005-11-30 11:45:06 · answer #4 · answered by 志國 7 · 0⤊ 0⤋
三個Button幹麻用,功能做什麼都講不清不楚的,聽的懂才有鬼。
2005-11-28 09:27:13 · answer #5 · answered by Anonymous · 0⤊ 0⤋