Below is the code i am using to insert a record in msaccess database.
I am getting an error that bcmd must use an Updateable query.
Error screenshot is attached....
For better view of error message: http://www.mediafire.com/file/1zkt41ownli/Capture.JPG
I am getting an error that bcmd must use an Updateable query.
Error screenshot is attached....
Code:
Dim strsql as string, rGender as string
dim BCon As OleDbConnection
dim bcmd as OleDbCommand
if rbMale.checked = false then
rGender = "Female"
else
rGender = "Male"
end if
Bcon = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & server.mappath("/AN/db/data.mdb"))
'strsql = "INSERT INTO oApply VALUES ('" & txtUsername.text & "', '" & txtPassword.text & "', '" & txtName.text & "', '" & rGender & "', '" & txtNIC.text & "', '" & txtPassport.text & "', '" & txtPhone.text & "', '" & txtMobile.text & "', '" & txtAddress.text & "', '000')"
strsql = "INSERT INTO oApply VALUES (@Username, @Password, @Name, @Gender, @NIC, @Passport, @Phone, @Mobile, @Address, @Date)"
Bcon.open
bcmd = New OleDbCommand(strsql, bcon)
With bcmd.Parameters:
.Add(New OleDbParameter("@Username", txtUsername.text))
.Add(New OleDbParameter("@UPassword", txtPassword.text))
.Add(New OleDbParameter("@Name", txtName.text))
.Add(New OleDbParameter("@Gender", rGender))
.Add(New OleDbParameter("@NIC", txtNIC.text))
.Add(New OleDbParameter("@Passport", txtPassport.text))
.Add(New OleDbParameter("@Phone", txtPhone.text))
.Add(New OleDbParameter("@Mobile", txtMobile.text))
.Add(New OleDbParameter("@Address", txtAddress.text))
.Add(New OleDbParameter("@Date", "000"))
end with
bcmd.ExecuteNonQuery()
bcon.close
For better view of error message: http://www.mediafire.com/file/1zkt41ownli/Capture.JPG
Comment