[مخالف]مساعده في الاتصال بقاعده بيانات اكسس واسترجاع البيانات منها

السلام عليكم ورحمه الله وبركاته

اخي ايش المشكله يمكنك عملها بالمعالج او بالكود ان اردت .. بس لكن الكون اكثر مرونه من المعالج..

vb helper

شكرا للرد .....

المشكله اني كنت بدي الكود للاتصال بالداتا بيس

بس خلاص شكرا لك .....وجدته واستخدمته واشتغل

بس السؤال هوه كيف اتاكد من البيانات قبل عمل "اضافه " خصوصا البرايمري كي

بحيث ما اخلي صفحه خطا في السيرفر تظهر ؟؟

السلام عليكم ورحمه الله وبركاته

اخي يمكنك عمل المفتاح الاساسي اوتوماتيكا Identity طبعا اذا كان رقم والا قم بعمل شرط للتأكد من ادخال قيمته

شكرا مره ثانيه

بس انت فهمتني غلط

البرايمري كي ما بصير يتكرر كيف بدي اتاكد انه البرايمري كي اللي مدخله مو موجود من قبل

عشان ما تطلع الصفحه تبعت خطا بالسيرفر او الداتا بيز

السلام عليكم ورحمه الله وبركاته

اخي اذا كان نوع المفتاح الاساسي هو رقم يمكنك ضبط الخاصية IsIdentity الى true والا قم بعملية Select قبل الادخال للتأكد من وجوده ..

السلام عليكم

اخي sam jordan

ممكن استخدام هذا الكود للحفظ مع اختلاف نوع قاعدة البيانات التى يتم تمرير الاتصال بها من خلال البروفيدر كانت access,my sql,sql server,oracle

وللعلم يكون هناك حقل pk ويوجد كود البحث عن القيمه المدخله والتحقق من عدم وجودها فى الجدوال للسماح للستجيل

الطريقة الافضل هى ان pk يكون غير متاح للادخال من قبل المستخدم ويدخل بطريقه اوتوماتيكا Identity مثال ما وضوح اخى VB Helper

كود حدث تحميل الصفحة او الشاشة

        Try

            If Cn.State = ConnectionState.Closed Then
                Cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=DBE.mdb"
               Cn.Open()
            End If
            Cmd.Connection = Cn
            Cmd.CommandType = CommandType.Text

        Catch ex As Exception
            MsgBox(ex.Message & " # Load # ", MsgBoxStyle.Critical)

        End Try

======================================

كود مفتاح جديد

        Try

            Cmd.CommandText = "select * from tab"
            Dr = Cmd.ExecuteReader
            If Dr.HasRows = False Then : TextBox1.Text = 1 : Dr.Close() : TextBox3.Focus() : GoTo 1 : Exit Sub : End If

            Dr.Close()
            clear(Me)
            Cmd.CommandText = "select max(AppID) From tab"
            Dim n As Integer
            n = Cmd.ExecuteScalar
            TextBox1.Text = n + 1
            TextBox3.Focus()

1:
            Save2.Enabled = True
            Add2.Enabled = False
        Catch ex As Exception
            MsgBox(ex.Message & " # add # ", MsgBoxStyle.Critical)
        End Try

======================================

كود مفتاح حفظ وهو لتحقق من قيمة ادخال اسم ولنفترض اننا لا نريد تكرار ادخال اسم يقوم بعمل الاتى ولكن pk لا يتاح للمستخدام ادخاله لانه يدخل اوتوماتيك وايضا يتم الزياده على القيمة بالكود فى مفاتح جديد حتى يتضح للمستخدم ان القيمة تزيد بمقدار 1

        Try
            If Trim(TextBox3.Text) = "" Then
                MsgBox("فضلا ادخال الاسم", MsgBoxStyle.Exclamation Or MsgBoxStyle.MsgBoxRight, "تسجيل بيانات")
                TextBox3.Focus()
                TextBox3.BackColor = Color.Silver
                Exit Sub
            End If

            Cmd.CommandText = "select * from tab where AppName='" & TextBox3.Text & "'"
            Dr = Cmd.ExecuteReader
            If Dr.Read = True Then
                MsgBox("فضلا قم بتغير الاسم لانه مسجل من قبل", MsgBoxStyle.Exclamation Or MsgBoxStyle.MsgBoxRight, "تسجيل بيانات")
                TextBox3.Focus()
                TextBox3.BackColor = Color.Silver
                Dr.Close()

                Exit Sub
            Else
                Dr.Close()

            Dim f3, f4, f5, f6, f7, f8, f9, f10, f11, f12, f13 As String
            f3 = "'" & TextBox3.Text & "',".ToString
            f4 = "'" & TextBox4.Text & "',".ToString
            f5 = "'" & TextBox5.Text & "',".ToString
            f6 = "'" & Label16.Text & "',".ToString
            f7 = "'" & Label17.Text & "',".ToString
            f8 = "'" & Label18.Text & "',".ToString
            f9 = "'" & Label19.Text & "',".ToString
            f10 = "'" & TextBox6.Text & "',".ToString
            f11 = "'" & TextBox7.Text & "',".ToString
            f12 = "'" & TextBox8.Text & "',".ToString
            f13 = "'" & TextBox10.Text & "'".ToString
            S = "insert into tab"
            S = S & "(AppName,AppRotba,AppNum,AppBirthDate,AppspecificationDate,ApppromotionDate,AppworthDate,AppSpecial,Appaddition,AppError,AppCountry) values"
            S = S & "(" & f3 & f4 & f5 & f6 & f7 & f8 & f9 & f10 & f11 & f12 & f13 & ")"

                Cmd.CommandText = S
                Cmd.ExecuteNonQuery()
                MsgBox(" تم حفظ البيانات ", MsgBoxStyle.Information Or MsgBoxStyle.MsgBoxRight, "تسجيل بيانات")
                clear(Me)


                Save2.Enabled = False
                Add2.Enabled = True

            End If
        Catch ex As Exception
            MsgBox(ex.Message & " # save # ", MsgBoxStyle.Critical)
        End Try

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته

مرحباً بكم في منتدى الفريق العربي للبرمجة

تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات .

قواعد طرح المشاركات

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم

{username}