excel vba 使用sql语句查询access数据库时，如何知道没有查找到内容

Question

比如 ："select 编码 from 数据库 where 编码='" & record & "'" 我该如何知道数据库中没有变量record

Answer 1

Dim Rs As Recordset
strSQL = "SELECT DISTINCT 发站 FROM [LMSData2016.12$]"
Conn.Open strConn '打开数据库链接
Set Rst = Conn.Execute(strSQL)
If rs.RecordCount > 0 Then '这个就可以判断了，大于0的就是有数

Answer 2

你这语句本身就是判断数据库中有没有 这个变量的，你得运行这个查询后，根据查询的返回值判断

Answer 3

用DAO，可以在VB添加DAO组件。然后，定义参数。
'Database Connection
Dim cn As Workspace
Dim db As Database
Dim Rs As Recordset
Dim YOURPWD$, strSQL$, sContent$
'设置数据库
Set cn = DBEngine.Workspaces(0)
Set db = cn.OpenDatabase(sDbPath, False, False, ";pwd=" & YOURPWD)
'打开数据库
strSQL = "Select * From YourTable"
Set Rs = db.OpenRecordset(strSQL, , dbReadOnly)
'取出一个不为NULL的字符串字段值
sContent = trim$(Rs!Item1)
--------------------------------------------------------------
'使用前提在VB中加入VB组件
Dim xlsApp As Object, xlsBook As Object, xlsSheet As Object
Dim Row&, Col&
On Error GoTo ExcelInport_Err
'创建应用Excel程序
Set xlsApp = CreateObject("Excel.Application")
'Excel WorkBook 的添加
Set xlsBook = xlsApp.Workbooks.Add
’取得活动的Excel Sheet
Set xlsSheet = xlsBook.ActiveSheet
'Excel Sheet的标题
xlsSheet.Name = "Your Sheet Name"
'Excel Sheet 内容的填充
With xlsSheet
Row = 1 '行
Col = 1 '列
.Cells(Row, Col).Value = "Your Fill Content"
End With
‘Excel
xlsApp.Visible = True

Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing
Exit Sub
ExcelInport_Err:
'关闭时没有消息框
xlsApp.DisplayAlerts = False
xlsApp.Quit
Set xlsApp = Nothing

Answer 4

rst.recordcount>0

Answer 5

你这个sql语句不对，record是查询条件，你应该用recorset判断

追问

能给出代码，怎么判断