在SQL存储过程或触发器中可以用这个 IF EXTIST(SELECT * FROM TABLENAME) THEN begin SELECT '有记录' end else begin SELECT '无记录' end或者在VB中用这个rs.open "SELECT * FROM TABLENAME" if rs.eof and rs.bof then ? "无记录" else ?有记录" endif
工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic if rs.recordcount>0 then msgbox "有记录" endif
如果 c 为 0 ,则没有记录
IF EXTIST(SELECT * FROM TABLENAME) THEN
begin
SELECT '有记录'
end
else
begin
SELECT '无记录'
end或者在VB中用这个rs.open "SELECT * FROM TABLENAME"
if rs.eof and rs.bof then
? "无记录"
else
?有记录"
endif
Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic if rs.recordcount>0 then
msgbox "有记录"
endif