关于返加记录数的函数处理,是错在哪儿了??始终返加数0

wsxwsx123456789 2008-08-19 03:28:18
关于返加记录数的函数处理,是错在哪儿了??
Public Function Z_ReturnCount(ByVal SQLString As String, ByVal tablename As String) As Integer
'Return符合条件的记录个数
Dim conn As New SqlConnection()
conn.ConnectionString = SqlConnection
conn.Open()
Dim custAdapter As SqlDataAdapter = New SqlDataAdapter(SQLString, 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

调用方法:
Z_ReturnCount("select * from book","AA")
问题,返回数值应该不是0,而是>1的整数
...全文
70 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
hmilj245216 2008-08-20
  • 打赏
  • 举报
回复


把上面的“”去掉,我是想加颜色让你看清楚,结果没加上
hmilj245216 2008-08-20
  • 打赏
  • 举报
回复
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


现在你试一试
wsxwsx123456789 2008-08-20
  • 打赏
  • 举报
回复
楼上说将Z_Count = tmpdataset.Tables(0).Rows.Count ===>Z_Count = tmpdataset.Tables(tablename).Rows.Count
好象没有什么区别??但在调试中能计算正确,说明是正确的,但没有明白其中的区别?谢谢指教
wsxwsx123456789 2008-08-20
  • 打赏
  • 举报
回复
谢谢各位,已经搞定
wdgphc 2008-08-20
  • 打赏
  • 举报
回复
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

只是帮3楼的贴一下编辑后的代码
wsxwsx123456789 2008-08-20
  • 打赏
  • 举报
回复
楼上的,不好意思,没有看清楚,与源码有哪些地方有区别??
htpower 2008-08-19
  • 打赏
  • 举报
回复
Dim aa = custAdapter.Fill(tmpdataset, tablename)
Dim Z_Count As Integer = 0
Z_Count = tmpdataset.Tables(tablename).Rows.Count

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧