الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو المساعدة فى كود الحفظ

مغلقمُجاب
بدأه shekojetli في 6 أبريل 2013 · 2 رد · 1,432 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عملت  مفتاح لحفظ سجل جديد لم يتم الضغط عليه


يفتح شاشة جديدة فيها textbox جديد لادخال البيانات واعمل اتصال جديد بقاعدة بيانات


 


وادخل البيانات


وواعمل حفظ مش بيعمل حفظ


والملف مرفق


وبالنسبة للتعديل والمسح هيكون ازاى


وشكراmy.rar


Imports System.Data

Imports System.Data.OleDb

Public Class Form2


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

        Try

            Dim save As New OleDb.OleDbCommand

            Dim star As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\mydata.mdb"

            Dim conn As New OleDbConnection(star)

            save.Connection = conn

            save.CommandType = CommandType.Text

            save.CommandText = "insert into table1([id],[name],[city][,mobile])" & "values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"

            conn.Open()

            save.ExecuteNonQuery()

            conn.Close()

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

            Me.Close()

            form1.Show()


        Catch ex As Exception


        End Try

    End Sub


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

        Me.Close()

        Form1.Show()

    End Sub

End Class

 


#2 أفضل إجابة

تم تعديل كود الحفظ

 

1- لا يمكن حفظ بيانات في حقل نوع بياناتة Autonumber لذلك قمت بازالة TextBox1 من الكود

2- قمت بازالة الاقواس [ ] من مسميات الحقول

 

بالتوفيق

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim save As New OleDb.OleDbCommand
            Dim star As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\mydata.mdb"
            Dim conn As New OleDbConnection(star)

            conn.Open()

            save.Connection = conn
            save.CommandType = CommandType.Text
            save.CommandText = "insert into table1(name,city,mobile)" & "values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"


            save.ExecuteNonQuery()
            conn.Close()
            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة")
            Me.Close()
            Form1.Show()


        Catch ex As Exception

        End Try

تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 6 أبريل 2013 في 08:29

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

السلام عليكم

 

كانت المشكلة الوحيدة هي في عبارة الإستعلام:

وتحديداً عند كلمة mobile يجب أن تكون الفاصلة خارج الأقواس

into table1([id],[name],[city][,mobile])

 

كما يمكن الإستفادة من عبارة catch لتحديد الخطأ بدقة عند تنفيذ البرنامج وذلك بوضع رسالة للتنبيه عن الخطأ كما يلي:

 

   Catch ex As Exception
            MsgBox("حصل خطأ" & ex.Message)
        End Try

 

وأتفق مع الأخ محمد فؤاد تركي بأنه لا يمكن الإضافة على حقل من نوع ترقيم تلقائي ولكنني تفاجأت بأن البرنامج عمل بشكل جيد ولم تحصل أي أخطاء:

post-252722-0-31276500-1365231933_thumb.

 

my.rar

 

ولكنني لا أوافقك بعملية حذف الأقواس [] من أسماء الحقول في عبارة الإستعلام, لأنه في حال كان اسم الحقل مكون من أكثر من كلمة ولم تضع الأقواس فستواجه بعض المشاكل.

 

 

أما بالنسبة لعملية التعديل والمسح فيمكنك حلها بنفس طريقة الإضافة وبنفس النموذج الأول, مثلاً في حدث الضغط على زر التعديل أنشئ متغير لأخذ مفتاح السجل وطبق عملية استعلام من نوع UPDATE على السجل الموافق للمفتاح.

وعملية الحذف مثل عملية التعديل, حاول وسنساعدك بإذن الله.

1

هذا الموضوع مغلق.

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

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

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…