Dim th = New System.Globalization.CultureInfo("th-TH") 'ค่าเป็น พ.ศ.
Dim dateBorrow As Date = Date.Today 'สร้างวันที่ปัจจุบัน
Dim dateReturn As Date = DateAdd(DateInterval.Day, 14, Date.Today)
Dim strDateBorrow As String = dateBorrow.ToString("dd-MM-yyyy", th)
Dim strDateReturn As String = dateReturn.ToString("dd-MM-yyy", th)
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/dbLibrary.mdb") & ";Jet OLEDB:Database Password=;"
strSQL = "INSERT INTO tblBorrowInfo (barcode) SELECT barcode FROM tblBookInfo WHERE title = '" & Request.QueryString("title") & "' "
strSQL = "INSERT INTO tblBorrowInfo (id_borrower) SELECT id_borrower FROM tblPersonInfo WHERE username = '" & Session("UserAuthentication") & "' "
strSQL = "INSERT INTO tblBorrowInfo (date_borrowing,due_date) VALUES ('strDateBorrow','strDateReturn') "
มัน error (Index or primary key cannot contain a Null value.) ครับ
ผมเป็นมือใหม่เลยยังงงๆอยู่ ขอคำแนะนำหน่อยครับ