تقييم الموضوع :
  • 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]


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اظهار النص في الفور الاول ومطابقته في الفورم الاخر اباذر 3 82 14-02-19, 06:36 AM
آخر رد: princelovelorn
  عرض صورة في الكريستال ريبورت ولكنها موجوده في جدول منفصل Emam emam 8 179 07-02-19, 04:34 PM
آخر رد: عبد العزيز البسكري
  عرض بيانات في الليست فيو Emam emam 5 141 01-02-19, 11:13 PM
آخر رد: asemshahen5
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 263 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تصدير بيانات الى إكسيل محمد بوقزاحة 3 126 26-01-19, 11:29 PM
آخر رد: محمد بوقزاحة
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 88 24-01-19, 03:52 PM
آخر رد: sendbad100
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 12 1,933 23-01-19, 07:21 PM
آخر رد: elgokr
Exclamation [VB.NET] طباعة DataGridViewer في جدول التقارير sniperjawadino 2 170 21-01-19, 04:28 PM
آخر رد: sniperjawadino
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 260 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  محتاج كود اظهار ايقونه للبرنامج بجوار الساعة ... التفاصيل في الداخل . PeterGhattas082460 0 85 15-01-19, 06:05 PM
آخر رد: PeterGhattas082460

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


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