between问题
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sqlstr As String
sqlstr = "select * from KC where Data between '2001-1-1 ' and '2000-5-1 ' "
Dim myda As OleDb.OleDbDataAdapter
myda = New OleDb.OleDbDataAdapter(sqlstr, OleDbConnection1)
DataSet11.Clear()
myda.Fill(DataSet11)
DataGrid1.DataSource = DataSet11.KC
End Sub
错误提示:未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。
那有大侠会啊,帮个忙,小弟不胜感激!
[解决办法]
添加对system.data.dll的引用
[解决办法]
Dim sqlstr As String
sqlstr = "select * from KC where Data between '2001-1-1 ' and '2000-5-1 ' "
Dim OleDbConnection1 As New SqlClient.SqlConnection
OleDbConnection1.ConnectionString = ConnectString
OleDbConnection1.Open()
Dim myda As New SqlClient.SqlDataAdapter(sqlstr, OleDbConnection1)
Dim DataSet11 As New DataSet
DataSet11.Clear()
myda.Fill(DataSet11, "KC ")
DataGrid1.DataSource = DataSet11.Tables( "KC ")