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

السلام عليكم

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

وهذا الكود يقوم بالذي تريده

   Imports System.Data.OleDb
Public Class Form1
    Dim con As New OleDbConnection("هنا ضع مسار قاعدة البيانات تبعك")
    Dim cmd As New OleDbCommand()
    Dim dr As OleDbDataReader
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "SELECT id , namme_product from products where id = @id"
            With cmd
                .Parameters.AddWithValue("id", TextBox1.Text)
            End With
            con.Open()
            dr = cmd.ExecuteReader()
            If dr.HasRows() Then
                con.Close()
                If MsgBox("هذا الرقم التسلسلي موجود من قبل هل تريد تحديث بياناته") = MsgBoxResult.Yes Then
                    cmd.CommandText = "update products set namme_product =@namme_product  where id = @id"
                    With cmd
                        .Parameters.AddWithValue("namme_product", TextBox2.Text)
                        con.Open()
                        .ExecuteNonQuery()
                        MsgBox("ok")
                        con.Close()
                    End With
                End If
            Else
                cmd.CommandText = "insert into products(id , name_product) values(@id , @name_product)"
                With cmd
                    .Parameters.AddWithValue("id", TextBox1.Text)
                    .Parameters.AddWithValue("namme_product", TextBox2.Text)
                    con.Open()
                    .ExecuteNonQuery()
                    MsgBox("ok")
                    con.Close()
                End With
            End If
           Catch ex As Exception
                 MsgBox(ex.Message)
             End Try

        End Sub
End Class

ADD.rar

السلام عليكم قد يكون الكود الموجود في الصفحة عير منسق بالشكل المطلوب..... الملف المرفق سيوضح لك الكود

مشكور يااخي

مشكور يا اخ حسام على التنسيق وجزاك الله خير .

......................................................................

طلب بسيط وهو اني ماعرفت كيف يتم تنسيق الكود عندما اظيفه الى المنتدى كما فعلت يا اخ حسام ياليت لو تشرحوا او توضحوا لي كيف اسوي ذلك من اجل تفادي الاخطاء

بمعنى اخر هل المحرر الموجود بالمنتدى هو من يقوم بذلك او كاتب الموضوع هو الذي ينسق الكود؟

ارجو الافادة جزاكم الله خيراً.

وضعت الكود   بس تطلعي لي مشكلة                ExecuteReader: Connection property has not been initialized.

thepast كتب:

وضعت الكود   بس تطلعي لي مشكلة                ExecuteReader: Connection property has not been initialized.

السلام عليكم

العفو يا اخي الكود كان ناقص الاتصال بقواعد البيانات لذلك اظيف بعد كلمة Try الكود التالي

cmd.connection=con

ون شاء الله تحتل المشكلة .

وضعت     cmd.connenction=con

وشغلت الكود  تأتي   رسالة خطأ اخرى   

 Attempted to read or write protected memory. This is often an indication that other memory is corrupt Attempted to read or write protected memory. This is often an indication that other memory is corrupt

ويأتي الخطأ في    .ExecuteNonQuery()

اللي تحت جملة  الابديت

ماهي المشكلة

السلام عليكم

الكود كاملاً مرفق وجربته وماشي بشكل تمام..... لكن بالsql فما عليك الا ان تستبدل اوامر sql بأوامر ال OlebDB

مجلد جديد ‫‬.rar