杨副官 发表于 2007-10-16 10:59

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; &amp; "'"<br/>.CopyFromRecordset conn.Execute(sql)<br/>conn.Close<br/>Set conn = Nothing<br/>End Sub</p><p>以上代码中，如果查询值，也就是K1单元格中的值，在数据库是并不存在，我要用一个msgbox函数提示“此姓名不存在”，应该怎样写代码？</p>

兰色幻想 发表于 2007-10-16 11:15

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

杨副官 发表于 2007-10-16 11:29

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

1020704134 发表于 2011-7-24 21:20

来了 谢谢分享！51
页: [1]
查看完整版本: sql查询的问题