从数据库中统计数据表中行的个数?
展开全部
Private sub geshu(xx as Integer)
Dim I As Integer
Dim conn As ADODB.Connection
Dim Workstring As String
Dim SqlCommand As String
Dim Rs As ADODB.Recordset
Set conn = New ADODB.Connection
Workstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\数据库名.mdb"
conn.Open Workstring
SqlCommand = "select * from 表名"
Rs.CursorLocation = 3 '加上这句,一定要用这种方式打开recordset
Rs.Open SqlCommand, conn, adOpenKeyset, adLockOptimistic
CurrentCount = Rs.RecordCount
If CurrentCount <= 0 Then GoTo BB
Rs.MoveLast
I = 0
Do
If Rs.BOF = True Then Exit Do '选择集结束
I = I + 1
Loop
BB: conn.Close
Set conn = Nothing
End Sub
在VB中用call geshu(xx)调用这个过程就行
Dim I As Integer
Dim conn As ADODB.Connection
Dim Workstring As String
Dim SqlCommand As String
Dim Rs As ADODB.Recordset
Set conn = New ADODB.Connection
Workstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "\数据库名.mdb"
conn.Open Workstring
SqlCommand = "select * from 表名"
Rs.CursorLocation = 3 '加上这句,一定要用这种方式打开recordset
Rs.Open SqlCommand, conn, adOpenKeyset, adLockOptimistic
CurrentCount = Rs.RecordCount
If CurrentCount <= 0 Then GoTo BB
Rs.MoveLast
I = 0
Do
If Rs.BOF = True Then Exit Do '选择集结束
I = I + 1
Loop
BB: conn.Close
Set conn = Nothing
End Sub
在VB中用call geshu(xx)调用这个过程就行
展开全部
declare @a int;
select count(*) from Table;
set @a=count(*);
select count(*) from Table;
set @a=count(*);
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
ResultSet rs = null;
int count = 0;
while(rs.next){
count ++;
}
这样行不
int count = 0;
while(rs.next){
count ++;
}
这样行不
追问
我是在vs写cs文件时需要调用一下一张数据表(sql server2005)的行数,之后做个比较在弹出相应信息
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询