اذهب إلى المحتوى
  • 0

كتبت كود برمجي للحفظ ولكنه لا يحفظ في قاعدة البيانات اكسس

دكتور محمد فاروق القطب

السؤال

وهذا هو كود الحفظ ... لذا ارجو من الاخوة المبرمجين مساعدتنا واكون شاكرا ومقدرا 

  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, "حفظ الاضافة")

 

رابط هذا التعليق
شارك على الشبكات الإجتماعية

Recommended Posts

انضم إلى النقاش

يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.

زائر
أجب على هذا السؤال...

×   لقد أضفت محتوى بخط أو تنسيق مختلف.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   جرى استعادة المحتوى السابق..   امسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

  • إعلانات

  • تابعنا على



×
×
  • أضف...