[Easy4ever]

حاولت أخي أجرب البرنامج لاكن رفض تشغيله لا يريد الأتصال بالقاعدة البيانات :confused:

المهم بحثت في كود الإضافة الطريقة التي استخدمتها أظن انها فيها خطأ ما انت أستبدل هذا الكود

PHP كود :

Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values (?,?,?,?,?,?,?)", con)

cmd.Parameters.AddWithValue("@username", SqlDbType.Text).Value = Trim(TextBox1.Text)

cmd.Parameters.AddWithValue("@userpass", SqlDbType.Text).Value = Trim(TextBox2.Text)

cmd.Parameters.AddWithValue("@allow_insert", SqlDbType.Bit).Value = CheckBox2.Checked

cmd.Parameters.AddWithValue("@allow_edit", SqlDbType.Bit).Value = CheckBox3.Checked

cmd.Parameters.AddWithValue("@allow_delete", SqlDbType.Bit).Value = CheckBox4.Checked

cmd.Parameters.AddWithValue("@allow_select", SqlDbType.Bit).Value = CheckBox5.Checked

cmd.Parameters.AddWithValue("@allow_add_users", SqlDbType.Bit).Value = CheckBox6.Checked

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information) 


بهذا الكود

PHP كود :

Dim cmd As New SqlCommand("insert into users (username,userpass,allow_insert,allow_edit,allow_delete,allow_select,allow_add_users) values ('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "', " & CheckBox2.Checked & "', " & CheckBox3.Checked & "', " & CheckBox4.Checked & "', " & CheckBox5.Checked & "', " & CheckBox6.Checked & ")", con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information) 


وإعطنا النتيجة