تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] هذا كود للكمبو بوكس يقوم بعرض البيانات داخل التيكست بوكس حسب الرقم
#1
بسم الله الرحمن الرحيم السلام عليكم شباب
هذا كود يقوم بجلب البيانات من قاعدة البيانات داخل التيكست بوكس حسب رقم التسلسلى
PHP كود :
Dim cmd As New OleDbCommand("SELECT * FROM malem WHERE malemID LIKE '" ComboBox2.Text.Trim "'"Con)

        If 
Con.State ConnectionState.Open Then
            Con
.Close()
        
End If
        
Con.Open()
        
Dim dr As OleDbDataReader cmd.ExecuteReader()
        While 
dr.Read()
            
Dim malemName As String dr("malemName").ToString()
            
Dim nakeName As String dr("nakeName").ToString()
            
Dim malemAddress As String dr("malemAddress").ToString()
            
Dim malemPhone As String dr("malemPhone").ToString()
            
txtNam.Text malemName
            txtnName
.Text nakeName
            txtAddr
.Text malemAddress
            txtPhon
.Text malemPhone
        End 
While
        
Con.Close()
        
dr.Close() 
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}
تم الشكر بواسطة:
#2
كيف حالك اخي لو سمحت ممكن تشرح لي هذا الكود شرح مبسط
الرد }}}
تم الشكر بواسطة:
#3
السلام عليكم

شكرا جزيلا على الكود

ولكن هل تستطيع شرح الكود؟
الرد }}}
تم الشكر بواسطة:
#4
مشكورورورورورورور على الموضوع الرائئئععع

مشكورورورورورورور على الموضوع الرائئئعععععع
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}
تم الشكر بواسطة:
#5
PHP كود :
Try
 
           Dim da As New OleDbDataAdapter("SELECT * FROM malem WHERE malemID LIKE '" ComboBox2.Text.Trim "'"Con)
 
           Dim dt As New DataTable
            da
.Fill(dt)
 
           txtNam.Text dt.Rows(0)("malemName").ToString
            txtnName
.Text dt.Rows(0)("nakeName").ToString
            txtAddr
.Text dt.Rows(0)("malemAddress").ToString
            txtPhon
.Text dt.Rows(0)("malemPhone").ToString
        Catch ex 
As Exception
            Exit Sub
        End 
Try 
هاته طريقة أخرى أبسط و أنفع و أسهل في الفهم
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#6
روعهههههههههه
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 1 559 06-01-24, 02:32 AM
آخر رد: HALIM ELEULMA
  [VB.NET] كود جلب اخر اسم في قاعدة البيانات عن طريق button4 suliman01 2 714 05-01-24, 01:19 AM
آخر رد: HALIM ELEULMA
  [سؤال] كود لاظهار الاسماء بدالالة الرقم عبدالرحمن الأصبحي 1 535 27-03-23, 02:38 PM
آخر رد: sanyor77
  كيف يمكن مشاركة وتقسيم قاعدة البيانات اكسس لأكثر من مستخدم للشبكة بالفيجول بيسك Lathe1 1 1,996 14-02-21, 12:22 AM
آخر رد: sendbad100
  [كود] هو في كود يخليني افتح ورقه دخل تكست بوكس وشكران محمد ايمن 3 2,560 19-04-20, 03:07 PM
آخر رد: asemshahen5
  [كود] حفظ ما يتغير في التيكست بعد اغلاقه محمد ايمن 0 1,486 21-03-20, 09:13 PM
آخر رد: محمد ايمن
  [كود] طريقة ملئ COMBOBOX بقواعد البيانات الموجودة على السيرفر galas 1 3,571 03-08-19, 08:20 PM
آخر رد: count4love
Lightbulb [VB.NET] ازالة الصوت عند الضغظ على الانتر للانتقال بين التكست بوكس EYADISMAIL 3 3,231 29-07-19, 03:59 AM
آخر رد: EYADISMAIL
  [كود] خاص بقواعد البيانات ابو يوسف 6 5,599 02-06-19, 08:32 PM
آخر رد: Abdalazim19
  كود يسمح لك بكتابة احرف فقط في التيكست بوكس honest 17 10,583 25-05-19, 04:12 PM
آخر رد: bakhcha

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم