User-1806542732 posted
Hi, I hv the following OLEDB query to insert into the access 2007 database.
there are no error but there is no record in the Access Database
Dim cmd As New OleDbCommand _
("INSERT INTO MEMBER([title],[nameofmember],[nric],[cardid],[address],[dateofbirth],[monthofbirth],[yearofbirth],[gender],[occupationtype]," & _
"[occupation],[race],[religion],[education],[marital],[nokname],[nokrelation],[nokcontact],[datejoined],[nameofpsy]," & _
"[locofpsy],[reasonforpsy],[hasnewletter],[remarks],[photo]) VALUES(@title,@membername,@nric,@cardID,@strAaddress,@dob,@mob,@yob,@gender,@occtype,@occp,@race,@religion,@edu,@marital," & _"@nokname,@nokrelation,@nokcontact,@datejoined,@nameofpsy,@locofpsy,@reason,@newsletter,@remarks,@photo)",
conn)
... cmd.parameters.addwithvalue("@..", XX)
conn.open()
cmd.ExecuteNonQuery()
conn.Close()
Dim cmd As New OleDbCommand _
("INSERT INTO MEMBER([title],[nameofmember],[nric],[cardid],[address],[dateofbirth],[monthofbirth],[yearofbirth],[gender],[occupationtype]," & _
"[occupation],[race],[religion],[education],[marital],[nokname],[nokrelation],[nokcontact],[datejoined],[nameofpsy]," & _
"[locofpsy],[reasonforpsy],[hasnewletter],[remarks],[photo]) VALUES(@title,@membername,@nric,@cardID,@strAaddress,@dob,@mob,@yob,@gender,@occtype,@occp,@race,@religion,@edu,@marital," & _
"@nokname,@nokrelation,@nokcontact,@datejoined,@nameofpsy,@locofpsy,@reason,@newsletter,@remarks,@photo)", conn)
cmd.Parameters.AddWithValue("@title", strtitle)
cmd.Parameters.AddWithValue("@membername", strnameofmember)
cmd.Parameters.AddWithValue("@nric", strnric)
cmd.Parameters.AddWithValue("@cardID", strcardid)
cmd.Parameters.AddWithValue("@strAaddress", strAddress)
cmd.Parameters.AddWithValue("@dob", dateofbirth)
cmd.Parameters.AddWithValue("@mob", mthofBirth)
cmd.Parameters.AddWithValue("@yob", yrofbirth)
cmd.Parameters.AddWithValue("@gender", strgender)
cmd.Parameters.AddWithValue("@occtype", occupationtype)
cmd.Parameters.AddWithValue("@occp", stroccupation)
cmd.Parameters.AddWithValue("@race", race)
cmd.Parameters.AddWithValue("@religion", religion)
cmd.Parameters.AddWithValue("@edu", education)
cmd.Parameters.AddWithValue("@marital", marital)
cmd.Parameters.AddWithValue("@nokname", nokname)
cmd.Parameters.AddWithValue("@nokrelation", nokrelation)
cmd.Parameters.AddWithValue("@nokcontact", nokcontact)
cmd.Parameters.AddWithValue("@datejoined", datejoined)
cmd.Parameters.AddWithValue("@nameofpsy", nameofpsy)
cmd.Parameters.AddWithValue("@locofpsy", locofpsy)
cmd.Parameters.AddWithValue("@reason", reasonforpsy)
cmd.Parameters.AddWithValue("@newsletter", hasnewletter)
cmd.Parameters.AddWithValue("@remarks", remarks)
cmd.Parameters.AddWithValue("@photo", photo)
'cmd.Parameters.Add(New OleDbParameter("@ReturnValue", OleDbType.Integer)).Direction = ParameterDirection.ReturnValue
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
