level 1
平凉罗浩明
楼主
Dim con As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConnectionString)
Dim tmpDS As New DataSet
Dim tmpDA As New SqlClient.SqlDataAdapter("GetPageData", con)
con.Open()
With tmpDA.SelectCommand
.CommandType = CommandType.StoredProcedure
.Parameters.Add("@viewName", SqlDbType.NVarChar, 800).Value = viewName
.Parameters("@recordTotal").Direction = ParameterDirection.Output
End With
tmpDA.Fill(tmpDS, "a")
tmpDS.AcceptChanges()
'recordTotal = tmpDA.SelectCommand.Parameters("@recordTotal").Value
'执行到这里是正确的,recordTotal有返回值,证明存储过程被正确执行了
MsgBox(tmpDS.table(0).Rows.Count) ''可执行到这里,却总没有数据被填充到table中。
con.Close()
2016年01月17日 16点01分
1
Dim tmpDS As New DataSet
Dim tmpDA As New SqlClient.SqlDataAdapter("GetPageData", con)
con.Open()
With tmpDA.SelectCommand
.CommandType = CommandType.StoredProcedure
.Parameters.Add("@viewName", SqlDbType.NVarChar, 800).Value = viewName
.Parameters("@recordTotal").Direction = ParameterDirection.Output
End With
tmpDA.Fill(tmpDS, "a")
tmpDS.AcceptChanges()
'recordTotal = tmpDA.SelectCommand.Parameters("@recordTotal").Value
'执行到这里是正确的,recordTotal有返回值,证明存储过程被正确执行了
MsgBox(tmpDS.table(0).Rows.Count) ''可执行到这里,却总没有数据被填充到table中。
con.Close()