-
المساهمات
3 -
تاريخ الانضمام
-
تاريخ آخر زيارة
نوع المحتوى
ريادة الأعمال
البرمجة
التصميم
DevOps
التسويق والمبيعات
العمل الحر
البرامج والتطبيقات
آخر التحديثات
قصص نجاح
أسئلة وأجوبة
كتب
دورات
أجوبة بواسطة دكتور محمد فاروق القطب
-
-
السلام عليكم
مفيس اي احد يدلني على الخطأ في كود الحفظ السابق
-
وهذا هو كود الحفظ ... لذا ارجو من الاخوة المبرمجين مساعدتنا واكون شاكرا ومقدرا Dim Str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123") Dim con As New OleDbConnection(str) Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'" Dim isds As New DataSet Dim isda As New OleDb.OleDbDataAdapter(issql, con) isda.Fill(isds, "b2") If Me.BindingContext(isds, "b2").Count > 0 Then MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا") Exit Sub End If 'PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP Try Dim Savecommand As New OleDb.OleDbCommand 'فتح الاتصال بمزود البيانات وهى قاعده البيانات Dim connectionstring As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Emp.mdb;user id=admin;jet oledb:database password=123" Dim newconnection As New OleDbConnection(connectionstring) Savecommand.Connection = newconnection Savecommand.CommandType = CommandType.Text 'اضافه المعلومات التى تكتبها الى الجدول كل سجل تكتبه بما يماثله فى الجدول Savecommand.CommandText = "insert into main ([W1],[W2],[W3],[W4],[W5],[W6],[W7],[W8],[W9],[W10],[W11],[W12],[W13],[W14],[W15]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & DateTimePicker1.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & DateTimePicker2.Text & "','" & TextBox8.Text & "','" & TextBox12.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox9.Text & "','" & PictureBox1.ImageLocation & "') " 'فتح الاتصال وتاكيد الاضافه وبعد ذلك اغلاق الاتصال newconnection.Open() Savecommand.ExecuteNonQuery() newconnection.Close() Catch ex As Exception MessageBox.Show(ex.Message) End Try MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")
كتبت كود برمجي للحفظ ولكنه لا يحفظ في قاعدة البيانات اكسس
في أسئلة البرامج والتطبيقات
نشر
كود الحفظ.docx