منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2

ما هو كود وضع اخر رقم من قاعده البيانات من جدول الاصناف في text Box وزياده رقم 1
مثلا لو كان اخر رقم صنف 50 في قاعدة البيانات يظهر في text Box 51

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

كود :

Public Sub pp0()

        Try

            con.Open()

            Dim sql As String = "SELECT ISNULL(MAX(ID3)+1, 1) FROM PD_T "

            Dim cmd As SqlCommand = New SqlCommand(sql, con)

            Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)

            Dim dt As DataTable = New DataTable

            da.Fill(dt)

            Form1.TextBox3.Text = dt.Rows(0)(0).ToString

        Catch ex As Exception

            MsgBox(ex.Message)

            con.Close()

        End Try

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

بارك الله فيك اخي الكريم .. ممكن شرح الكود ماذا تعني ISNULL و (MAX(ID3)+1, 1) و PD_T

(28-08-16, 05:18 PM)khodor1985 كتب : [ -> ]السلام ليكم أخي العزيز ورحمة الله وبركاته
أولا ما هي نوع قاعدة البيانات هل هي SQL أم Access ؟

أخي جميل علي تابع المشاركة الكود الذي طرحته يتخلله خطأ، تابع وسوف تدرك مكمن الخطأ، أعود وأكرر إفهموا الأساسيات والمبادئ وسوف تصنعون المعجزات.

أستاذي العزيز تم تجربة الكود وهو يعمل بشكل سليم!
أعيد لك ماذكرته سابقاً
مازلت قطره في بحر علمكم الغزير
زاك الله من علمه

من تواضع الله رفعه

ارجو منك بعد أن تجيب على سؤال الاخ معتز
ان توضح لي اين الخطاء في الكود
وشكراً

(28-08-16, 05:03 PM)معتز الجازوي كتب : [ -> ]بارك الله فيك اخي الكريم .. ممكن شرح الكود ماذا تعني ISNULL و (MAX(ID3)+1, 1) و PD_T

ISNULL = إذا كان الحقل فارغ
PD_T= اسم الجدول الموجود في القاعدة
MAX(ID3)+1, 1 = يجلب اكبر رقم موجود في الحقل ID3 ويضيف علية 1واذا كان الحقل فارغ يجعل قيمة 1

استاذي العزيز قمت بتجربه من أجلك اكثرمن مره

أنا أضافة الحقل ID3 من نوع int ولم أجعله ترقيم تلقائي ولم أجعله معرف
وأستخدمة الكود ونجحت العملية

الكود بهذا الشكل
أوكد لك أستاذي الكريم بأني أفهم الأساسيات
وإن شاء الله صأصل إلى المعجزات

[attachment=11496]تفضـــــــــــــــــــــــل

الصفحات : 1 2