返回列表 上一主題 發帖

在EXCEL VBA中的MS SQL查詢語法，如何用輸入的方式產生？

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2012-12-7 15:09 | 顯示全部帖子
回復 1# badboy01
因為沒給前後的程式碼 , 假設你這段為字串..........
"......where ApplyDateTime Between '20120101' and '20121231' and Excuse='特休假'......"

'宣告字串變數
Dim sStartDate as string , sEndDate as string
sStartDate = "20120101"
sEndDate = "20121231"
'上面的那段字串改為
"......where ApplyDateTime Between '" & sStartDate & "' and '" & sEndDate & "' and Excuse='特休假'......"

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2012-12-7 16:31 | 顯示全部帖子
回復 3# badboy01
sStartDate =TextBox1.Text
sEndDate =TextBox2.Text

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2012-12-7 17:27 | 顯示全部帖子
本帖最後由 stillfish00 於 2012-12-7 17:28 編輯

回復 6# badboy01
OK , 所以你是程式寫在模組內 ,
假設你是直接在工作表1 (工作表名稱) ,  插入ActiveX的文字方塊
這樣的話你的Textbox1要指定是哪個工作表 ,
也就是把原本的 Textbox1.Text 改寫成  sheets("工作表1").Textbox1.Text
Textbox2同理

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2012-12-7 19:02 | 顯示全部帖子
回復 10# badboy01
這方面我也不太熟 , 精華區內有一些保護工作表或程式碼的討論也許你能參考看看

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題