圖書借閱系統
遺失功能和Borrow表如圖，
實作當輸入Borrow中已有的借書證號bor_number和書號b_number時，修改Borrow里的loss。
當前代碼可以執行但對表沒用作用。但換成sqlstr = "update Borrow set loss='" & Trim(TextBox3.Text) & "'where bor_time='" & Trim(DateTimePicker1.Value) & "'and bac_time='" & Trim(DateTimePicker2.Value) & "'"就可以執行。我發現只要是另一個表的主鍵就無法實作，但是去掉主鍵無法實作功能。求助！！！
代碼： Dim conn As SqlConnection
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Me.Validate()
Me.BorrBindingSource1.EndEdit()
Me.BorrowTableAdapter.Update(Me.YSDataSet1.Borrow)
conn = New SqlConnection()
conn.ConnectionString = "Data Source=DESKTOP-0VDRKDC;Initial Catalog=student1;Integrated Security=True"
conn.Open()
Dim sqlstr As String
sqlstr = "update Borrow set loss='" & Trim(TextBox3.Text) & "'where bor_number='" & Trim(TextBox1.Text) & "' and b_number='" & Trim(TextBox2.Text) & "' and bor_time='" & Trim(DateTimePicker1.Value) & "'and bac_time='" & Trim(DateTimePicker2.Value) & "'"
Dim comm As New SqlCommand(sqlstr, conn)
comm.ExecuteNonQuery()
conn.Close()
MsgBox("添加資訊成功")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
uj5u.com熱心網友回復：
SQL陳述句好似有2表處理的示例。uj5u.com熱心網友回復：
把sqlstr 列印出來然后放資料庫里去執行，看看有沒有成功，最好看看你的資料，你型別定的char(10),資料是不是沒滿10個，自動加了空格，你條件查的時候卻不要空格，肯定是匹配不上了uj5u.com熱心網友回復：
char(10)改varchar(10)或者nvarchar(10)吧，很顯然你并不了解cha這種資料型別。轉載請註明出處，本文鏈接：https://www.uj5u.com/net/21146.html
標籤：VB.NET
下一篇：讀取hdf5檔案