sql查询的问题

杨副官

<p>Sub 查询()<br/>Dim sql As String<br/>Dim conn As New ADODB.Connection<br/>conn.Open "provider=microsoft.jet.oledb.4.0;extended properties= excel 8.0;data source=" &amp; ThisWorkbook.Path &amp; "\数据库.xls"<br/>sql = "select * from [花名册$] where 姓名 ='" &amp; [k1] &amp; "'"<br/>[g2].CopyFromRecordset conn.Execute(sql)<br/>conn.Close<br/>Set conn = Nothing<br/>End Sub</p><p>以上代码中，如果查询值，也就是K1单元格中的值，在数据库是并不存在，我要用一个msgbox函数提示“此姓名不存在”，应该怎样写代码？</p>

兰色幻想

<p>简单一些的,判断g3是否为空就可以了</p><p>复杂一些的,打开记录集,判断记录个数.参考第91例</p>

杨副官

<p>明白了，判断G2是否为空就可以啦，如果G2为空就是不存在，谢谢。</p>

1020704134

来了 谢谢分享！51