如何通過查詢按鈕可以查到我需要的條件，比如起始日期和終止日期之間的資料在datagridview中顯示，同時如何將資訊錄入，修改到資料庫中，求代碼，本人新手，謝謝！這分全給了
uj5u.com熱心網友回復：
先根據起始日期和終止日期查詢到DataTable中，然后你的datagridview1.DataSource = dt，就可以顯示了。如下代碼，用的是SQl Server資料庫。你修改后用Updata更新
Dim mySQL As String
mySQL = "SELECT SN AS 型號,StartTime AS 開始時間,EndTime as 結束時間,IsOK AS 狀態" & _
" FROM tb_Data_ChaXiaoU" & _
" WHERE StartTime>= '" & Format(DateTimePicker1.Value, "yyyy-MM-dd") & " 00:00:00.000' AND EndTime <= '" & Format(DateTimePicker2.Value, "yyyy-MM-dd") & " 23:59:59.000 '"
'DataAdapter執行SQL陳述句
Dim adapter As New SqlClient.SqlDataAdapter(mySQL, myCon)
Dim dt As New DataTable("myQuery")
adapter.Fill(dt)
dgv_DataQuery.DataSource = dt
修改
'往 資料庫里寫入資料
Dim mySQLstr As String
mySQLstr = "UPDATE tb_Data_ChaXiaoU_Model SET SAP= @_SAP, UCount=@_UCount WHERE Model=@_Model"
Dim cmd1 As New SqlClient.SqlCommand(mySQLstr, myCon)
cmd1.Parameters.Add(New SqlClient.SqlParameter("@_Model", txt_Model.Text))
cmd1.Parameters.Add(New SqlClient.SqlParameter("@_SAP", txt_SAP.Text))
cmd1.Parameters.Add(New SqlClient.SqlParameter("@_UCount", Val(txt_UCount.Text)))
Try
myCon.Open()
cmd1.ExecuteNonQuery()
myCon.Close()
Catch ex As Exception
myCon.Close()
End Try
uj5u.com熱心網友回復：
這好像沒什么難度吧。樓主建議你自己百度下VB.NET操作SQLuj5u.com熱心網友回復：
我用的是access 不知道有什么區別 能不能幫忙修改下。初學vb.net，只能靠代碼一點一點理解在套用。謝謝
uj5u.com熱心網友回復：
對于你們可能是不難，
uj5u.com熱心網友回復：
你那一步有難度啊
uj5u.com熱心網友回復：
能提供下完整的代碼嗎 謝謝 大神
uj5u.com熱心網友回復：
查詢
dim strFilePath As String = AppDomain.CurrentDomain.SetupInformation.ApplicationBase 'strFilePath
dim myCon As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Jet OLEDB:Database Password=sa123 ;Data Source=" & strFilePath & "DataBase\Common.mdb")
Dim mySQL As String
mySQL = "SELECT BarCodeItem AS Item條碼,BarCodeCTN AS CTN條碼, Destination AS 發往地 ,DistributeLine AS 分發線,Curdate as 分發日期 FROM ProductStock" & _
" WHERE CurDate>= '" & Format(DateTimePicker1.Value, "yyyy-MM-dd") & " 00:00:00' AND CurDate <= '" & Format(DateTimePicker2.Value, "yyyy-MM-dd") & "23:59:59'"
'DataAdapter執行SQL陳述句
Dim adapter As New OleDbDataAdapter(mySQL, myCon)
Dim dt As New DataTable("ProductStock")
adapter.Fill(dt)
dgv_DataQuery.DataSource = dt
'For i As Integer = 0 To dgv_DataQuery.ColumnCount - 1
' 'DGV1.Columns(6).Width = 300
'Next
Dim cmd As New OleDbCommand(mySQL, myCon)
myCon.Open()
Dim myreader As OleDbDataReader = cmd.ExecuteReader
myreader.Read()
myCon.Close()
If dgv_DataQuery.RowCount < 2 Then
MessageBox.Show("無查詢記錄", "提示")
End If
uj5u.com熱心網友回復：
給你的網址最后注釋掉的就是表格控制元件的使用,把查詢出來的資料表系結控制元件即可包括篩選資料轉載請註明出處，本文鏈接：https://www.uj5u.com/net/126052.html
標籤：VB.NET
上一篇：Dalsa工業相機時間戳