19-11-19, 06:08 AM
(آخر تعديل لهذه المشاركة : 19-11-19, 06:13 AM {2} بواسطة حريف برمجة.)
كود :
Sub add1()
sql = "INSERT INTO DB_SIGN VALUES(@FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
cmd1 = New SqlCommand(sql, conn)
With cmd1.Parameters
.AddWithValue("@FRIST_NUM", frsttx.Text)
.AddWithValue("@LAST_NUM", lsttx.Text)
.AddWithValue("@EMAIL_NUM", emltx.Text)
.AddWithValue("@PASSWORD_NUM", pastx.Text)
.AddWithValue("@PHONE_NUM", phontx.Text)
.AddWithValue("@USER_NUM", usrtx.Text)
.AddWithValue("@SER_NUM", TextBox5.Text)
.AddWithValue("@POINT_NUM", TextBox1.Text)
.AddWithValue("@DATE_NUM", TextBox4.Text)
End With
conn.Open()
cmd1.ExecuteNonQuery()
conn.Close()
End Sub
يا رحمن الدنيا والآخرة ورحيمهما

