English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

我要用的查詢是我想把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 電腦與網際網路 程式設計

5 個解答

你的意思 是你原本有三個下拉 三個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

fedest.com, questions and answers