26-12-14, 08:51 PM
السلام عليكم
لا أعرف هل يمكن تنفيذ هذه الفكرة أم لا ،،،
وضعت صورة مرفقة للموضوع لتوضيح أكثر
في حدث CheckBox1 وضعت الكود التالي
وفي زر الحفظ وضعت الكود التالي
الإختلاف بين الشرط الأول والثاني فقط في بيانات ComboBox2 وبيانات ComboBox3
عند تنفيذ البرنامج تظهر رسالة خطأ " Data type mismatch in criteria expression "
وعند تتبع تنفيذ البرنامج F11 وجدت أنه لما يصل إلى
ينتقل بعدها مباشرة إلى
لا أعرف هل يمكن تنفيذ هذه الفكرة أم لا ،،،
وضعت صورة مرفقة للموضوع لتوضيح أكثر
في حدث CheckBox1 وضعت الكود التالي
PHP كود :
If CheckBox1.Checked = True Then
ComboBox2.Visible = True
ComboBox3.Visible = False
ElseIf CheckBox1.Checked = False Then
ComboBox2.Visible = False
ComboBox3.Visible = True
End If
وفي زر الحفظ وضعت الكود التالي
PHP كود :
Try
Dim Savecommand As New OleDb.OleDbCommand
Dim connectionstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source =" & Application.StartupPath & "\db8.accdb;user id=admin;jet oledb:database password=momiana"
Dim newconnection As New OleDbConnection(connectionstring)
Savecommand.Connection = newconnection
Savecommand.CommandType = CommandType.Text
If CheckBox1.Checked = True Then
Savecommand.CommandText = "insert into mate ([ID],[PID],[po2],[it2],[qu2],[un2],[pr2],[mda2],[note2]) values ('" & _
TextBox2.Text & "','" & TextBox4.Text & _
"','" & CheckBox1.Checked & "','" & ComboBox2.Text & "','" & _
TextBox1.Text & "','" & ComboBox1.Text & "','" & _
TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox5.Text & "')"
ElseIf CheckBox1.Checked = False Then
Savecommand.CommandText = "insert into mate ([ID],[PID],[po2],[it2],[qu2],[un2],[pr2],[mda2],[note2]) values ('" & _
TextBox2.Text & "','" & TextBox4.Text & _
"','" & CheckBox1.Checked & "','" & ComboBox3.Text & "','" & _
TextBox1.Text & "','" & ComboBox1.Text & "','" & _
TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox5.Text & "')"
End If
newconnection.Open()
Savecommand.ExecuteNonQuery()
newconnection.Close()
MsgBox("تمت عملية الإضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الإضافة")
Catch ex As Exception
MsgBox(ex.Message, 16, "خطأ")
End Try
الإختلاف بين الشرط الأول والثاني فقط في بيانات ComboBox2 وبيانات ComboBox3
عند تنفيذ البرنامج تظهر رسالة خطأ " Data type mismatch in criteria expression "
وعند تتبع تنفيذ البرنامج F11 وجدت أنه لما يصل إلى
PHP كود :
Savecommand.ExecuteNonQuery()
PHP كود :
Catch ex As Exception
MsgBox(ex.Message, 16, "خطأ")