Question Query About this Access statement

[crystaluz]

I used coding below to insert two data into two tables. But, the data only succesfully inserted into table "pelanggan". Please help me. Below is the code :




Private Sub btnsetuju_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsetuju.Click
Dim dbcomm As OleDbCommand
Dim dbconn As OleDbConnection
Dim insertcommand1 As String
Dim insertcommand2 As String


dbconn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Server.MapPath("creativefix.mdb"))

insertcommand1 = "INSERT INTO pelanggan (nama, email, telefon, fax, alamat) VALUES (trim(txtnama.Text), trim(txtemail.Text), trim(txttel.Text), trim(txtfax.Text), trim(txtalamat.Text))"
dbcomm = New OleDbCommand(insertcommand1, dbconn)

dbcomm.Parameters.Add(New OleDbParameter("@nama", OleDbType.VarChar, 50))
dbcomm.Parameters("@nama").Value = txtnama.Text
dbcomm.Parameters.Add(New OleDbParameter("@email", OleDbType.VarChar, 50))
dbcomm.Parameters("@email").Value = txtemail.Text
dbcomm.Parameters.Add(New OleDbParameter("@telefon", OleDbType.VarChar, 50))
dbcomm.Parameters("@telefon").Value = txttel.Text
dbcomm.Parameters.Add(New OleDbParameter("@fax", OleDbType.VarChar, 50))
dbcomm.Parameters("@fax").Value = txtfax.Text
dbcomm.Parameters.Add(New OleDbParameter("@alamat", OleDbType.VarChar, 50))
dbcomm.Parameters("@alamat").Value = txtalamat.Text

dbcomm.Connection.Open()
dbcomm.ExecuteNonQuery()


insertcommand2 = "INSERT INTO tempahan (pilihankad, koditem1, kuantiti1, koditem2, kuantiti2, jenis kad, jenis sampul, tarikhtempah, tarikhkaddiperlukan) VALUES (trim(txtpilihkad.Text), trim(txtitem1.Text), trim(txtkuantiti1.Text), trim(txtitem2.Text), trim(txtkuantiti2.Text), trim(txtjeniskad.Text), trim(txtsampul.Text), trim(txttarikhtempah.Text), trim(txttarikhperlu.Text))"
dbcomm = New OleDbCommand(insertcommand2, dbconn)

dbcomm.Parameters.Add(New OleDbParameter("@pilihankad", OleDbType.VarChar, 50))
dbcomm.Parameters("@pilihankad").Value = txtpilihkad.Text
dbcomm.Parameters.Add(New OleDbParameter("@koditem1", OleDbType.VarChar, 50))
dbcomm.Parameters("@koditem1").Value = txtitem1.Text
dbcomm.Parameters.Add(New OleDbParameter("@kuantiti1", OleDbType.VarChar, 50))
dbcomm.Parameters("@kuantiti1").Value = txtkuantiti1.Text
dbcomm.Parameters.Add(New OleDbParameter("@koditem2", OleDbType.VarChar, 50))
dbcomm.Parameters("@koditem2").Value = txtitem2.Text
dbcomm.Parameters.Add(New OleDbParameter("@kuantiti2", OleDbType.VarChar, 50))
dbcomm.Parameters("@kuantiti2").Value = txtkuantiti2.Text
dbcomm.Parameters.Add(New OleDbParameter("@jenis kad", OleDbType.VarChar, 50))
dbcomm.Parameters("@jenis kad").Value = txtjeniskad.Text
dbcomm.Parameters.Add(New OleDbParameter("@jenis sampul", OleDbType.VarChar, 50))
dbcomm.Parameters("@jenis sampul").Value = txtsampul.Text
dbcomm.Parameters.Add(New OleDbParameter("@tarikhtempah", OleDbType.VarChar, 50))
dbcomm.Parameters("@tarikhtempah").Value = txttarikhtempah.Text
dbcomm.Parameters.Add(New OleDbParameter("@tarikhkaddiperlukan", OleDbType.VarChar, 50))
dbcomm.Parameters("@tarikhkaddiperlukan").Value = txttarikhperlu.Text



dbcomm.Connection.Close()