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


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 83 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 601 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 225 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 84 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 312 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

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


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