nh 发表于：2015-07-24 12:26:11
Option Compare Database
Function dbrecord(tblName As String, st1 As String, fldname1 As String, st2 As String,fldname2 as String) As boolean
Dim sql As String
Dim rs As New ADODB.Recordset
sql = "select * from tblname where fdlname1 = st1 and fldname2 = st2 "
rs.Open sql,CurrentProject.Connection,1,1
If rs.RecordCount >0 Then
dbrecord = True
Else
dbrecord =False
End If
Set rs =Nothing
End Function
Function dbrecord(tblName As String, st1 As String, fldname1 As String, st2 As String, fldname2 As String) As Boolean
Dim sql As String
Dim rs As New ADODB.Recordset
sql = "select * from " & tblName & " where " & fdlname1 & " = '" & st1 & "' and " & fldname2 & "= '" & st2 & "'"
rs.Open sql, CurrentProject.Connection, 1, 1
If rs.RecordCount > 0 Then
dbrecord = True
Else
dbrecord = False
End If
Set rs = Nothing
End Function
Dcount即可
总记录：2篇 页次：1/1 9 1 :
