تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو
#1
السلام عليكم                                                                                                                                                        

يوجد جدول للموردين حملت اسم المورد فى كومبوبوكس اريد اظهار بيانات معينه فى تكستبوكس من الجدول  دون اظهاره فى داتاجريدفيو بعد اختيار اسم من الكومبو
كتبت
كود :
Dim dt_Supplier_phone_currentbalance As New DataTable
              Dim da_Supplier_phone_currentbalance As New SqlDataAdapter
              dt_Supplier_phone_currentbalance.Clear()
              da_Supplier_phone_currentbalance = New SqlDataAdapter("select supplier_id,supplier_phone,supplier_currentbalance from supplier", Con)
              da_Supplier_phone_currentbalance.Fill(dt_Supplier_phone_currentbalance)
              Dgv_purchasebillheaderfooter.DataSource = dt_Supplier_phone_currentbalance
              LbltChoseSupplier_phone.Text = Dgv_purchasebillheaderfooter(1, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
              LbltChoseSupplier_currentbalance.Text = Dgv_purchasebillheaderfooter(2, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
الرد
تم الشكر بواسطة:
#2
(25-11-18, 09:57 PM)vb2010 كتب : السلام عليكم                                                                                                                                                        

يوجد جدول للموردين حملت اسم المورد فى كومبوبوكس اريد اظهار بيانات معينه فى تكستبوكس من الجدول  دون اظهاره فى داتاجريدفيو بعد اختيار اسم من الكومبو
كتبت
كود :
Dim dt_Supplier_phone_currentbalance As New DataTable
              Dim da_Supplier_phone_currentbalance As New SqlDataAdapter
              dt_Supplier_phone_currentbalance.Clear()
              da_Supplier_phone_currentbalance = New SqlDataAdapter("select supplier_id,supplier_phone,supplier_currentbalance from supplier", Con)
              da_Supplier_phone_currentbalance.Fill(dt_Supplier_phone_currentbalance)
              Dgv_purchasebillheaderfooter.DataSource = dt_Supplier_phone_currentbalance
              LbltChoseSupplier_phone.Text = Dgv_purchasebillheaderfooter(1, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value
              LbltChoseSupplier_currentbalance.Text = Dgv_purchasebillheaderfooter(2, Dgv_purchasebillheaderfooter.CurrentRow.Index).Value

يعني انت عايز لما تختار من 
الكومبوبوكس يظهر في التيكس
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#3
نعم اريد ان يظهر رقم تليفونه و رصيده  فى اللابل
الرد
#4
هذا ملئ الكومبو بوكس

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

تمام كدا يا اخي
ولوعندك اي مشكلة انا سداد
وكل اعضاء هذا المنتدي الكريم
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة: عبد العزيز البسكري , vb2010
#5
PHP كود :
Dim phone_number As string 0
    Dim currentbalance 
As Decimal 0

    Private Sub getdata
(ByVal name As String)
 
       If ConnectionState.Open Then
            Conn
.Close()
 
       End If

 
       Conn.Open()
 
       Dim cmd As OleDbCommand Conn.CreateCommand
        cmd
.CommandText "Select supplier_phone,supplier_currentbalance from supplier where supplier_name=@p1"
 
       cmd.Prepare()
 
       cmd.Parameters.AddWithValue("@p1"name)

 
       Dim dr As OleDbDataReader
        dr 
cmd.ExecuteReader
        With dr
.Read()
 
           phone_number dr.GetValue(0)
 
           currentbalance dr.GetValue(1)
 
       End With
        dr
.Close()
 
   End Sub 

تقوم باستدعائها كالاتي :
PHP كود :
getdata(combobox1.selecteditem)

textbox1.text=phone_number
textbox2
.text=currentbalance 
هذا لملئ ال combobox 
PHP كود :
Sub fill_comb()
 
       CSNF.Items.Clear()
 
       Dim query As String
        Dim command 
As OleDbCommand
        Dim reader 
As OleDbDataReader

        
'فحص الاتصال بقاعدة البيانات
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        query = "SELECT DISTINCT [supplier_name] FROM [supplier]"
        command = New OleDbCommand(query, Conn)
        reader = command.ExecuteReader()
        If reader.HasRows Then
            While reader.Read()
                combobox1.Items.Add(reader(0))
            End While
        End If
        reader.Close()
        Conn.Close()

    End Sub 

لكن دعني اعطيك ملاحظة :

ليس من الجيد استدعاء البيانات بالاسم لان هناك احتمالية كبيره جدا ان يتكرر الاسم لذلك ستظهر المعلومات خاظئه 
عليك دائما استدعاء المعلومات بقيمة لا تتكرر مثل العمود الخاص بال primary key
الرد
تم الشكر بواسطة: عبد العزيز البسكري , vb2010 , elgokr
#6
كتبت التالى و لا يحدث شىء 

PHP كود :
Private Sub Cmbpurchasebillheader_supplier_id_TabIndexChanged(ByVal sender As ObjectByVal e As System.EventArgsHandles Cmbpurchasebillheader_supplier_id.TabIndexChanged
        Dim dt_Supplier_phone 
As New DataTable
        Dim da_Supplier_phone 
As New SqlDataAdapter
        If Cmbpurchasebillheader_supplier_id
.Text <> Nothing Then 'اذا التكستبوكس لم يكن فاضى
            '
الحصول على تفاصيل المورد
            Try
                dt_Supplier_phone
.Clear()
 
               da_Supplier_phone = New SqlDataAdapter("select * from supplier where supplier_name=N'" Cmbpurchasebillheader_supplier_id.Text "'"Con)
 
               da_Supplier_phone.Fill(dt_Supplier_phone)
 
               LbltChoseSupplier_phone.DataBindings.Clear()
 
               LbltChoseSupplier_phone.DataBindings.Add("text"dt_Supplier_phone"supplier_phone")
 
               Cmbpurchasebillheader_supplier_id.Select()
 
           Catch ex As Exception

            End 
Try
 
       Else
            dt_Supplier_phone
.Clear()
 
           Dgv_purchasebillheaderfooter.DataSource Nothing
        End 
If
 
   End Sub 

و اضفت حرف n فى جمله select لنه sql server
الرد
تم الشكر بواسطة: اسامه الهرماوي , elgokr
#7
اخي لو متصل بالاكسس جرب
الكود اللي في الصورة 
ومعك ايضا المهندس RAbeeaea Qbah
 الذي يدعي ان لغته هي افضل لغة برمجة، فاعلم انه مستخدم وليس مبرمج.
الرد
تم الشكر بواسطة:
#8
شكر ل [b]Rabeea Qbaha [/b]

[b]انا اعمل بالاتصال المنفصل و لا اتذكر طريقه الاتصال المتصل ارجو ان تذكرنى لانه يضع خط تحت الكلام [/b]
الرد
تم الشكر بواسطة:
#9
(26-11-18, 12:18 AM)vb2010 كتب : شكر ل [b]Rabeea Qbaha [/b]

[b]انا اعمل بالاتصال المنفصل و لا اتذكر طريقه الاتصال المتصل ارجو ان تذكرنى لانه يضع خط تحت الكلام [/b]


الكود الموضوع للاتصال المنفصل

ارسل لي مشروعك وساعدل عليه
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 79 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  [سؤال] ما الفرق بين قاعدة بيانات الاكسس و sql server و my sql في البرمجه منه 3 223 02-06-20, 07:23 AM
آخر رد: منه
Lightbulb [VB.NET] اظهار نص عند تحرك النص على جزء معين من Picturebox Doctor GME 3 141 31-05-20, 04:13 AM
آخر رد: ابراهيم ايبو
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 7 200 29-05-20, 11:34 AM
آخر رد: معاند الحظ
  فورمة عرض بيانات atefkhalf2004 6 176 28-05-20, 08:59 PM
آخر رد: atefkhalf2004
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 155 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  مشكلة في الترقيم التلقائي في قاعدة بيانات سيكوال سيرفر momani33 3 157 27-05-20, 11:49 PM
آخر رد: momani33
  [سؤال] هل استطيع اسناد القيم التي في الداتا جريد في جدول في الذاكره بشكل مؤقت بسام محمدغانم 2 152 25-05-20, 03:39 PM
آخر رد: بسام محمدغانم
Brick [VB.NET] عايز طريقة اضافه رقم لحقل معين لمجموعة بيانات x4ahmad 2 196 23-05-20, 01:09 AM
آخر رد: x4ahmad
  كيف يمكن اظهار قيمة في TextBox بناءا على قيمة في ComboBox؟ adnan gharbi 1 157 17-05-20, 04:20 PM
آخر رد: ابراهيم ايبو

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


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