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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استدعاء بيانات من اكثر من جدول المتألق9 0 10 منذ 1 ساعه مضت
آخر رد: المتألق9
  اظهار رسالة فحص الاخطاء nooralcown 3 99 أمس, 11:46 AM
آخر رد: سعود
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 192 15-05-19, 06:08 PM
آخر رد: makky
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 50 03-05-19, 11:03 AM
آخر رد: DK-x
  [مثال] قاعدة بيانات SQL DK-x 2 119 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 94 27-04-19, 10:32 PM
آخر رد: saoud2
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 3 134 25-04-19, 04:21 PM
آخر رد: elgokr
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 314 25-04-19, 09:26 AM
آخر رد: elgokr
  [VB.NET] تصدير جدول html إلى ملف أكسل صالح حمادي 5 122 25-04-19, 09:18 AM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 74 24-04-19, 12:19 PM
آخر رد: ahmedfa71

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


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