[أبو نوره]

مرحبا اخى

جرب هذا الاسلوب

PHP كود :

Dim cmd As New OleDbCommand(
    "Insert Into Sales(sCode,sCustomer,sDile,sCash,sPostpone,sVisa,Bar,Items,iNum,sTG,sDis,sTS,sUser) " & _ 
    "values(@sCode,@sCustomer,@sDile,@sCash,@sPostpone,@sVisa,@Bar,@Items,@iNum,@sTG,@sDis,@sTS,@sUser)", connAccess2010)
cmd.Parameters.AddWithValue("@sCode", Val(TextBox2.Text.Trim))
cmd.Parameters.AddWithValue("@sCustomer", Cn.Text)
cmd.Parameters.AddWithValue("@sDile", CheckBox5.Checked)
cmd.Parameters.AddWithValue("@sCash", CheckBox2.Checked)
cmd.Parameters.AddWithValue("@sPostpone", CheckBox1.Checked)
cmd.Parameters.AddWithValue("@sVisa", CheckBox3.Checked)
cmd.Parameters.AddWithValue("@Bar", TextBox9.Text)
cmd.Parameters.AddWithValue("@Items", TextBox3.Text)
cmd.Parameters.AddWithValue("@iNum", Val(TextBox5.Text))
cmd.Parameters.AddWithValue("@sTG", Val(TextBox4.Text))
cmd.Parameters.AddWithValue("@sDis", Val(TextBox7.Text))
cmd.Parameters.AddWithValue("@sTS", Val(TextBox8.Text))
cmd.Parameters.AddWithValue("@sUser", Val(TextBox1.Text))
If connAccess2010.State<>ConnectionState.Open Then connAccess2010.Open()
cmd.ExecuteNonQuery()
connAccess2010.Close()