平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

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

VB愛好者樂園(VBGood)

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

[討論] 請問如何判斷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-5-2 14:49

VB愛好者樂園(VBGood)
快速回復 返回頂部 返回列表
平码公式规律出肖 体彩取消电子投注 默认版块港澳三肖六码 时时彩有稳赚技巧吗 时时彩选胆技巧稳赚 赌场纸牌比大小的玩法 安徽时时快3开奖号 七乐彩软件下载 北京pk106码倍投方案 一分快三怎样稳赚 重庆时时玩法破解