Dim Adpt8 As OleDbDataAdapter
Dim Ds8 As DataSet Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath( "wszliu6699.mdb" )
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open() Dim SQL8 = "Select * From" & leixing3 & "order by 时间 desc" 注:leixing3是我自定义
的变量,没问题
Adpt8 = New OleDbDataAdapter( SQL8, Conn ) Adpt8.Fill(Ds8, leixing3)
zonghe.DataSource = Ds8.Tables( leixing3 ).DefaultView
zonghe.DataBind()为什么运行总通不过
下边是错误信息:
Server Error in '/' Application.
--------------------------------------------------------------------------------Fill: expected a non-empty string for the SourceTable name. Parameter name: srcTable
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 清高手指点
Dim Ds8 As DataSet Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=" & Server.MapPath( "wszliu6699.mdb" )
Conn = New OleDbConnection( Provider & ";" & DataBase )
Conn.Open() Dim SQL8 = "Select * From" & leixing3 & "order by 时间 desc" 注:leixing3是我自定义
的变量,没问题
Adpt8 = New OleDbDataAdapter( SQL8, Conn ) Adpt8.Fill(Ds8, leixing3)
zonghe.DataSource = Ds8.Tables( leixing3 ).DefaultView
zonghe.DataBind()为什么运行总通不过
下边是错误信息:
Server Error in '/' Application.
--------------------------------------------------------------------------------Fill: expected a non-empty string for the SourceTable name. Parameter name: srcTable
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. 清高手指点
"Select * From " & leixing3 & " order by 时间 desc" 加两个空格