※ 引述《yankees35 (班杰米)》之铭言： : 请输入专案类型(网站专案或者应用程式专案)：Windows Form : 目前正用visual studio 2010写资料库程式 : 因为本身除了以前念书，已经两年多没碰程式了 : 有个问题想请教，资料库的日期区间查询我该怎麽写呢? : 我知道可以用ADO.NET的方式可以写 : 不过市面上的书几乎都没写到查询两个日期之间的资料 : 例如:我要显示2012年4月1日~2012年5月8日的资料 : 有甚麽方法可以解决吗? : 另外如果是ado的方式，我要怎麽设定他的元件呢?SQL Server要设定吗? : 再麻烦大家帮我解答 感谢！ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 我照着书上KEY的程式码 他是使用OleDbConnectionStringBuilder的方法 但我在VB2010的.net framwork 4.0上找不到这元件 不过程式码里用KEY的也可以出现元件 程式码如下 Imports System.Data.OleDb Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim selectCmd As String = "" selectCmd = "select 识别码 as 编号 , UhcDate as 日期 ," & _ "UhcTime as 时间 , Sun as 太阳能 , Temp1 as 温度1 , Temp2 as 温度2 " & _ "Inv1 as Inv1 , Inv2 as Inv2 , Inv3 as Inv3 , Total as 合计" & _ " from UHC Where UhcDate Between " & _ DateTimePicker1.Value.ToString("yyyy年MM月dd日") & "' And '" & _ DateTimePicker2.Value.ToString("yyyy年MM月dd日") & "' And " & _ "IS_DISPLAY=True And " selectCmd = selectCmd & "Total Like '%" & TextBox1.Text & _ "%' Order by UhcDate DESC" Dim ConnString As String Dim Builder As OleDbConnectionStringBuilder = New OleDbConnectionStringBuilder() Builder.Provider = "Microsoft.ACE.OLEDB.12.0" Builder.DataSource = Application.StartupPath & "\UHCSolar.mdb" ConnString = Builder.ConnectionString Dim Conn As OleDbConnection = New OleDbConnection(ConnString) Conn.Open() Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectCmd, Conn) Dim DT As DataTable = New DataTable() da.Fill(DT) If (DT.Rows.Count = 0) Then MessageBox.Show(Me, "搜寻条件并未找到任何福核资料", "搜寻结果") Else MessageBox.Show(Me, "共找到资料笔数" & DT.Rows.Count.ToString(), " 搜寻结果") End If Me.DataGridView1.RowsDefaultCellStyle.BackColor = Color.Ivory Me.DataGridView1.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure DataGridView1.DataSource = DT End Sub End Class 结果在 da.Fill(DT) 这边却出现错误 写说OleDbException未处理 请问我需要修改甚麽吗? 请板上大家帮忙一下!!! --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 114.33.27.9