16,554
社区成员
发帖
与我相关
我的任务
分享
Public Function Z_ReturnCount(ByVal SQLString As String, ByVal tablename As String) As Integer
'Return符合条件的记录个数
Dim conn As New SqlConnection(SQLString)
conn.ConnectionString = SqlConnection
conn.Open()
Dim custAdapter As SqlDataAdapter = New SqlDataAdapter(conn)
Dim tmpdataset As DataSet = New DataSet()
Dim aa = custAdapter.Fill(tmpdataset, tablename)
Dim Z_Count As Integer = 0
Z_Count = tmpdataset.Tables(0).Rows.Count
tmpdataset.Dispose()
custAdapter.Dispose()
conn.Dispose()
Return Z_Count
End Function