VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)

VB愛好者樂園(VBGood)

 找回密碼
 立即注冊
搜索
查看: 803|回復: 6
打印 上一主題 下一主題

[討論] 請問如何判斷SQL語句值是否為空

[復制鏈接]
跳轉到指定樓層
1
發表于 2019-4-22 16:45:43 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
If InStr(1, Text2.Text, "%", vbTextCompare) > 0 Then
ic = "select 內碼,品名,成份名,藥品類別,規格,配伍禁忌 from 電子審方 where 簡拼 Like '%" & Trim(Text2.Text) & "%'"
Else
ic = "select 內碼,品名,成份名,藥品類別,規格,配伍禁忌 from 電子審方 where 簡拼 = '" & Trim(Text2.Text) & " '"
End If
Form2.Adodc1.RecordSource = ic

MsgBox "無貨!"
Else
Set Form2.DataGrid1.DataSource = Form2.Adodc1
Form1.Hide
Form2.Show
End If
End Sub
End Sub

目的:IC沒有結果時,提示無貨,有結果時form2.show
2
發表于 2019-4-23 08:13:49 | 只看該作者
只要判斷有沒有記錄,
記錄數=0或大于0
或者用eof判斷
回復 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 立即注冊

本版積分規則

文字版|手機版|小黑屋|VBGood  

GMT+8, 2019-6-22 18:16

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
快乐十分开奖结查询