一直报错是
错误为: Fill: 应当为 SourceTable 名称输入一个非空字符串。 参数名: srcTable
'该函数执行数据库查询 需要数据库地址字符、表名以及查询字符串
Public Function Select_Data(ByVal CString As String, ByVal TabName As String, ByVal SQlstr As String) As DataSet
'定义连接
Dim Mycon As New OleDb.OleDbConnection(CString)
'定义查询命令
Dim Mycom As New OleDb.OleDbCommand
'定义数据适配器,用于执行查询操作
Dim MyDateAdapter As New OleDb.OleDbDataAdapter
'定义数据集,用于存放查询来的数据,并返回查询结果值
Dim MydS As New DataSet
'启动连接
Mycon.Open()
'设置查询命令模式
Mycom.Connection = Mycon
Mycom.CommandType = CommandType.Text
Mycom.CommandText = SQlstr
MyDateAdapter.SelectCommand = Mycom
MyDateAdapter.Fill(MydS, TabName) '填充数据集
'返回查询结果
Select_Data = MydS
'关闭所用对象
MydS = Nothing
MyDateAdapter = Nothing
Mycom = Nothing
Mycon = Nothing
End Function
我把下面这句
MyDateAdapter.Fill(MydS, TabName) '填充数据集
中的TabName
改成"字符串的时候"
现在的错误没了
而又出现一个新的错误 说是 我的 FROM 语句机构不正确
这个函数,我要多次调用的,只是在一个窗体中调用的时候出错,窗体无法打开,所以无法逐句调试,而且昨天还是可以运行的,今天加了几句跟数据查询无关的语句,结果就遮样了,那位大神帮帮忙呀,本人自学VB.NET,做毕业设计,急呀!
错误为: Fill: 应当为 SourceTable 名称输入一个非空字符串。 参数名: srcTable
'该函数执行数据库查询 需要数据库地址字符、表名以及查询字符串
Public Function Select_Data(ByVal CString As String, ByVal TabName As String, ByVal SQlstr As String) As DataSet
'定义连接
Dim Mycon As New OleDb.OleDbConnection(CString)
'定义查询命令
Dim Mycom As New OleDb.OleDbCommand
'定义数据适配器,用于执行查询操作
Dim MyDateAdapter As New OleDb.OleDbDataAdapter
'定义数据集,用于存放查询来的数据,并返回查询结果值
Dim MydS As New DataSet
'启动连接
Mycon.Open()
'设置查询命令模式
Mycom.Connection = Mycon
Mycom.CommandType = CommandType.Text
Mycom.CommandText = SQlstr
MyDateAdapter.SelectCommand = Mycom
MyDateAdapter.Fill(MydS, TabName) '填充数据集
'返回查询结果
Select_Data = MydS
'关闭所用对象
MydS = Nothing
MyDateAdapter = Nothing
Mycom = Nothing
Mycon = Nothing
End Function
我把下面这句
MyDateAdapter.Fill(MydS, TabName) '填充数据集
中的TabName
改成"字符串的时候"
现在的错误没了
而又出现一个新的错误 说是 我的 FROM 语句机构不正确
这个函数,我要多次调用的,只是在一个窗体中调用的时候出错,窗体无法打开,所以无法逐句调试,而且昨天还是可以运行的,今天加了几句跟数据查询无关的语句,结果就遮样了,那位大神帮帮忙呀,本人自学VB.NET,做毕业设计,急呀!