將查詢語(yǔ)句放到文本框,進(jìn)行調(diào)用查詢

yanwei82123300

請(qǐng)老師們看看這個(gè)例子能否實(shí)現(xiàn),謝謝
將Query_Name里面的語(yǔ)句名稱,選擇后加入進(jìn)行TextWhere:條件語(yǔ)句文本框,然后進(jìn)行查詢出結(jié)果到ListDisplay中

roych

大概就這樣吧。

1. Private Sub cmdOK_Click()
   
2.     Dim qry As DAO.QueryDef
   
3.         If Not IsNull(Me.Query_Name) Then
   
4.             Set qry = CurrentDb.QueryDefs(Me.Query_Name)
   
5.             Me.TextWhere = qry.SQL
   
6.             Me.ListDisplay.RowSource = qry.SQL
   
7.         End If
   
8. End Sub

復(fù)制代碼

列表框其實(shí)并不適合用來(lái)展示。當(dāng)然，如果只顯示一列倒是無(wú)所謂。
如果需要?jiǎng)討B(tài)展示列數(shù)，建議綁定子窗體（child）控件。
不過(guò)它并不支持參數(shù)查詢。各有優(yōu)劣吧。
另外，個(gè)人不建議把SQL語(yǔ)句暴露在窗體上，畢竟Access的安全性已經(jīng)夠脆弱，這么干就不怕哪天某個(gè)同事學(xué)了點(diǎn)SQL就拿來(lái)練手刪庫(kù)跑路么？

yanwei82123300

roych 發(fā)表于 2023-4-11 21:28
大概就這樣吧。

列表框其實(shí)并不適合用來(lái)展示。當(dāng)然，如果只顯示一列倒是無(wú)所謂。

roych老師謝謝您的指導(dǎo),新的附件是一個(gè)EXCEL版本的學(xué)習(xí)SQL語(yǔ)言的例子,這個(gè)例子的SQL語(yǔ)言是可以修改后再執(zhí)行的.
ACCESS同時(shí)還有個(gè)問(wèn)題,

2.能不能在TextWhere:文本框中修改SQL語(yǔ)句進(jìn)行,二次查詢呢?,

感謝感謝!!

roych

也不是不行。添加一個(gè)組合框更改事件，再修改下原來(lái)的事件就好了。這是因?yàn)槿绻�都綁定在按鈕點(diǎn)擊事件上，沒(méi)法判斷文本框是否倍修改過(guò)。

yanwei82123300

roych謝謝您的幫助,我試了例子沒(méi)有變化,感覺(jué)是不是有點(diǎn)向SQL自定義窗體查詢,

roych

yanwei82123300 發(fā)表于 2023-4-12 14:47
roych謝謝您的幫助,我試了例子沒(méi)有變化,感覺(jué)是不是有點(diǎn)向SQL自定義窗體查詢,

不好意思，附件上傳錯(cuò)了。