مشكلة عند ربط قاعدة بيانات الاكسس بالفيجوال بيسك.نت 2005

بدأه demoooooo في 4 أبريل 2010 · 11 رد · 2,305 مشاهدة · في Microsoft Visual Basic.NET

مشاركة: واتساب X فيسبوك تيليجرام

#14 أبريل 2010 في 19:43 صاحب الموضوع

السلام عليكم

أنا ربط قاعدة بيانات الاكسس مع الفيجوال بيسك . نت 2005 عند طريق الكود بس الاضافة و التعديل و الحذف ما زبطت

هذا كود الفورم الرئيسي تم فيه استرجاع المعلومات

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\db1.mdb"

Dim conn As New OleDbConnection(constr)

Dim dataset1 As New DataSet

Dim Sqlstr As String = " select * from شامل"

Public Sub changepostion()

' هذه الدالة لعرض رقم السجل الحالي من كافة السجلات

Label12.Text = Me.BindingContext(dataset1, "شامل").Position + 1

' رقم السجل الحالي حيث يبدأ من 1 بدلا من الصفر

Label14.Text = Me.BindingContext(dataset1, "شامل").Count

' عدد السجلات الكلي

End Sub

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

conn.Open()

Dim dataadapter1 As New OleDbDataAdapter(Sqlstr, conn)

dataadapter1.Fill(dataset1, "شامل")

conn.Close()

TextBox1.DataBindings.Add("text", dataset1, "شامل.القسم")

TextBox2.DataBindings.Add("text", dataset1, "شامل.عدد أعضاء هيئة التدريس")

TextBox3.DataBindings.Add("text", dataset1, "شامل.عدد اللاتي على رأس العمل")

TextBox5.DataBindings.Add("text", dataset1, "شامل.عدد المحاضرات")

TextBox6.DataBindings.Add("text", dataset1, "شامل.عدد الدكتورات")

TextBox7.DataBindings.Add("text", dataset1, "شامل.عدد المتعاونات")

TextBox8.DataBindings.Add("text", dataset1, "شامل.عدد الاداريات")

TextBox9.DataBindings.Add("text", dataset1, "شامل.عدد المتعاونات")

changepostion()

End Sub

'السجل الاول

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.BindingContext(dataset1, "شامل").Position = 0

changepostion()

End Sub

'السجل السابق

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Me.BindingContext(dataset1, "شامل").Position -= 1

changepostion()

End Sub

'السجل التالي

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Me.BindingContext(dataset1, "شامل").Position += 1

changepostion()

End Sub

' السجل الاخير

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Me.BindingContext(dataset1, "شامل").Position = Me.BindingContext(dataset1, "شامل").Count - 1

changepostion()

End Sub

' فتح فورم اضافة سجل

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Form3.Show()

Me.Hide()

End Sub

'حذف سجل

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If MsgBox("هل تريد حذف السجل الحالي", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then

Exit Sub

End If

Dim saveInto As New OleDb.OleDbCommand

Dim dataadapter1 As New OleDbDataAdapter(Sqlstr, conn)

saveInto.Connection = conn

saveInto.CommandType = CommandType.Text

saveInto.CommandText = "delet from شامل where القسم='" & Trim(TextBox1.Text) & " ' "

conn.Open()

saveInto.ExecuteNonQuery()

dataset1.Clear()

dataadapter1.Fill(dataset1, "شامل")

conn.Close()

MsgBox("تمت عملية الحذف بقاعدة البيانات بنجاح")

changepostion()

End Sub

' فتح فورم التعديل

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim edit As New Form4

Form4.TextBox1.Text = Me.TextBox1.Text

Form4.TextBox2.Text = Me.TextBox2.Text

Form4.TextBox3.Text = Me.TextBox3.Text

Form4.TextBox7.Text = Me.TextBox7.Text

Form4.TextBox6.Text = Me.TextBox6.Text

Form4.TextBox5.Text = Me.TextBox5.Text

Form4.TextBox9.Text = Me.TextBox9.Text

Form4.TextBox8.Text = Me.TextBox8.Text

Form4.Label1.Text = Me.TextBox1.Text

' يأخذ الفورم محتويات مربعات النص للسجل الحالي

' عرض فورم التعديل

Form4.Show()

Me.Hide()

End Sub

' اغلاق الصفحة

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim a As String

a = MessageBox.Show("هل تريد الاغلاق؟ ", "", MessageBoxButtons.YesNo)

If a = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

Me.Show()

End If

End Sub

' x اللي فوق

Private Sub cancel_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

If MessageBox.Show("هل تريد الاغلاق؟", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

e.Cancel = True

End If

End Sub

' الرجوع للصفحة السابقة

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Form1.Show()

Me.Hide()

End Sub

End Class

--------------------

هذا طود اضافة بس ما زبط

Imports system.data

Imports System.Data.OleDb

Public Class Form3

Dim main As New Form2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

' زر الحفظ

Try

Dim saveInto As New OleDb.OleDbCommand

Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\db1.mdb"

Dim conn As New OleDbConnection(constr)

saveInto.Connection = conn

saveInto.CommandType = CommandType.Text

saveInto.CommandText = " Insert Into القسم ,عدد أعضاء هيئة التدريس,عدد اللاتي على رأس العمل,عدد المتعاونات,عدد الدكتورات,عدد المحاضرات,عدد المعيدات,عدد الاداريات) شامل)" & -"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "' ,'" & TextBox5.Text & "', ','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"

conn.Open()

saveInto.ExecuteNonQuery()

conn.Close()

MsgBox("تمت عملية الاضافة و الحفظ بقاعدة البيانات بنجاح")

Me.Close()

Form2.Show()

Catch ex As Exception

Exit Sub

End Try

End Sub

' زر الغاء

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Hide()

Form2.Show()

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim a As String

a = MessageBox.Show("هل تريد الاغلاق؟ ", "", MessageBoxButtons.YesNo)

If a = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

Me.Show()

End If

End Sub

' x اللي فوق

Private Sub cancel_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

If MessageBox.Show("هل تريد الاغلاق؟", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

e.Cancel = True

End If

End Sub

End Class

---------------------------

هذا كود التعديل

Imports System.Data

Imports System.Data.OleDb

Public Class Form4

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim n As String = Label1.Text

Dim Savecommand As New OleDb.OleDbCommand

Dim Connectionstring As String = _

"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _

Application.StartupPath & "\db1.mdb"

Dim newconnection As New OleDbConnection(Connectionstring)

Savecommand.Connection = newconnection

Savecommand.CommandType = CommandType.Text

Savecommand.CommandText = "UPDATE شامل SET القسم = '" & Trim(TextBox1.Text) & "' , عدد أعضاء هيئة التدريس = '" & Trim(TextBox2.Text) & "' , عدد اللاتي على رأس العمل = '" & Trim(TextBox3.Text) & "' , عدد المتعاونات = '" & Trim(TextBox7.Text) & "' , عدد الدكتورات= '" & Trim(TextBox6.Text) & "' , عدد المحاضرات = '" & Trim(TextBox5.Text) & "' , عدد المعيدات = '" & Trim(TextBox9.Text) & "' , عدد أعضاء هيئة التدريس = '" & Trim(TextBox2.Text) & "' , عدد الاداريات = '" & Trim(TextBox8.Text) & "' WHERE القسم ='" & n & "'"

newconnection.Open()

Savecommand.ExecuteNonQuery()

newconnection.Close()

MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")

Me.Close()

Form2.Show()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Close()

Form2.Show()

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Dim a As String

a = MessageBox.Show("هل تريد الاغلاق؟ ", "", MessageBoxButtons.YesNo)

If a = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

Me.Show()

End If

End Sub

' x اللي فوق

Private Sub cancel_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

If MessageBox.Show("هل تريد الاغلاق؟", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

Me.Hide()

Else

e.Cancel = True

End If

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Form2.Show()

Me.Hide()

End Sub

End Class

-------------------

يطلع خطأ في جملة

saveInto.executenovquery()

وهو invaild sql statment

أرجو المساعدة بسرعة

شكرا

#25 أبريل 2010 في 12:47

لو سمحتوا أنا عندي مشكلة في اضافة و التعديل

في هذه الجمل البرنامج ما يطلع خطأ بس عند التنفيذ

saveInto.CommandText = "Insert INTO القسم) شامل)" & " values ('" & TextBox1.Text & "')"

saveInto.CommandText = "Insert INTO عدد أعضاء هيئة التدريس) شامل)" & "values ('" & TextBox2.Text & "')"

saveInto.CommandText = "Insert INTO عدد اللاتي علر رأس العمل) شامل)" & "values ('" & TextBox3.Text & "')"

saveInto.CommandText = "Insert INTO عدد المتعاونات) شامل)" & "values ('" & TextBox7.Text & "')"

saveInto.CommandText = "Insert INTO عدد الدكتورات) شامل)" & "values ('" & TextBox6.Text & "')"

saveInto.CommandText = "Insert INTO عدد المحاضرات) شامل)" & "values ('" & TextBox5.Text & "')"

saveInto.CommandText = "Insert INTO عدد المعيدات) شامل)" & "values ('" & TextBox4.Text & "')"

saveInto.CommandText = "Insert INTO عدد الاداريات) شامل)" & "values ('" & TextBox8.Text & "')"

------------

Savecommand.CommandText = "UPDATE شامل SET القسم = '" & Trim(TextBox1.Text) & "' , عدد أعضاء هيئة التدريس = '" & Trim(TextBox2.Text) & "' , عدد اللاتي على رأس العمل = '" & Trim(TextBox3.Text) & "' , عدد المتعاونات = '" & Trim(TextBox7.Text) & "' , عدد الدكتورات= '" & Trim(TextBox6.Text) & "' , عدد المحاضرات = '" & Trim(TextBox5.Text) & "' , عدد المعيدات = '" & Trim(TextBox4.Text) & "' , عدد الاداريات = '" & Trim(TextBox8.Text) & "' WHERE القسم ='" & n & "'"

أرجو المساعدة

#35 أبريل 2010 في 14:15

اخى بصراحه مش قادر أعرف الخطأ فين بالضبط

ولو ممكن ترفع المشروع

وأنصحك باستخدام ال Stored Procedures

تم تعديل هذه المشاركة بواسطة amr.alsaidy في 5 أبريل 2010 في 14:16

وممّا زادنـــي شرفــاً وتيهــاً ** وكدت بأخمصي أطأ الثريّا

دخولي تحت قولك يا عبادي ** وأن صيّرت أحمد لي نبيّـاً

#45 أبريل 2010 في 16:51

كيف أرفع المشروع

؟؟

#55 أبريل 2010 في 17:23

/index.php?showtopic=126887

وممّا زادنـــي شرفــاً وتيهــاً ** وكدت بأخمصي أطأ الثريّا

دخولي تحت قولك يا عبادي ** وأن صيّرت أحمد لي نبيّـاً

#65 أبريل 2010 في 18:01

أرجو المساعدة في كود اضافة و تعديل و بحث

شكرا

اسم المستخدم:dimah

كلمة المرور : 123

WindowsApplication1.rar

تم تعديل هذه المشاركة بواسطة demoooooo في 5 أبريل 2010 في 19:30

#75 أبريل 2010 في 20:35

أنا سويت بس هذا القسم

أعضاء هيئة التدريس

شمل جميع الاقسام

"لتجربة البرنامج"

أرجو المساعدة بسرعة للضرورة

#86 أبريل 2010 في 02:10

أخى استبدل الكود فى Button1_Click فى Form3

بالكود التالى

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Try
            Dim saveInto As New OleDb.OleDbCommand
            Dim constr As String = "provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\db1.mdb"
            Dim conn As New OleDbConnection(constr)
            saveInto.Connection = conn
            saveInto.CommandType = CommandType.Text

            saveInto.CommandText = "Insert INTO شامل values ('" & TextBox1.Text & "'," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & ")"

            conn.Open()
            saveInto.ExecuteNonQuery()
            conn.Close()
            MsgBox("تمت عملية الاضافة و الحفظ بقاعدة البيانات بنجاح")
            Me.Close()
            Form2.Show()

        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

مع ملاحظة تغيير أنواع بيانات الجدول من الحقل 2 حتى 8 الى Number

تم تعديل هذه المشاركة بواسطة amr.alsaidy في 6 أبريل 2010 في 02:11

وممّا زادنـــي شرفــاً وتيهــاً ** وكدت بأخمصي أطأ الثريّا

دخولي تحت قولك يا عبادي ** وأن صيّرت أحمد لي نبيّـاً

#96 أبريل 2010 في 08:48

شكرا لك يا أخي زبطت عملية الاضافة بس لازم أضيف كل الحقول بس أنا في برنامج عادي لو خليت حقول فارغة

و ما تطلع البيانات في فورم 2 الا لما أسكر البرنامج و أرجع افتحه مرة ثانية

لو سمحت لا تنسى عملية التعديل و البحث

في هذا الملف المرفق أريد برنامجي أن يشتغل مثله

شكرا

FirstDataBase1.rar FirstDataBase1.rar FirstDataBase1.rar

demoooooo كتب:
شكرا

demoooooo كتب:
شكرا لك يا أخي زبطت عملية الاضافة بس لازم أضيف كل الحقول بس أنا في برنامج عادي لو خليت حقول فارغة
و ما تطلع البيانات في فورم 2 الا لما أسكر البرنامج و أرجع افتحه مرة ثانية
لو سمحت لا تنسى عملية التعديل و البحث
في هذا الملف المرفق أريد برنامجي أن يشتغل مثله
شكرا
FirstDataBase1.rar

تم تعديل هذه المشاركة بواسطة demoooooo في 6 أبريل 2010 في 08:45

#106 أبريل 2010 في 13:35

لو سمحتوا ايش الخطأ في هذه جملة الاضافة لقسم الثاني

[/            saveInto.CommandText = "Insert INTO admin values ('" & TextBox1.Text & "'," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & " , " & TextBox9.Text & " , " & TextBox10.Text & " )"

code]

#116 أبريل 2010 في 18:28

لو سمحت ممكن ايميلك

شكرا

#129 أبريل 2010 في 19:38

أرجو المساعدة خاصة في عملية التعديل في جملةupdate

مواضيع مشابهة

ارجوكم مشكله فى ادارج قاعدة بيانات اكسس فى الفيجوال بيسك11 رد · 28 أغسطس 2007
البحث فى قاعدة بيانات الاكسس بالفيجوال بيسك 20080 رد · 9 أغسطس 2014
مشكلة اثناء تنفيذي لبرنامج بسيط (ربط قاعدة بيانات اكسس مع فيجوال 2005)3 رد · 30 يونيو 2013
طريقة ربط قاعدة بيانات اكسس في الفجوال بيسك 20052 رد · 4 أكتوبر 2008
تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك4 رد · 7 يناير 2007
مشكلة ربط قاعدة بيانات ب asp عن طريق الفيجوال بيسك 20083 رد · 6 ديسمبر 2013

مشكلة عند ربط قاعدة بيانات الاكسس بالفيجوال بيسك.نت 2005

مواضيع مشابهة

عدد الزوار حالياً