منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو

السلام عليكم

يوجد جدول للموردين حملت اسم المورد فى كومبوبوكس اريد اظهار بيانات معينه فى تكستبوكس من الجدول دون اظهاره فى داتاجريدفيو بعد اختيار اسم من الكومبو
كتبت

كود :

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

(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

يعني انت عايز لما تختار من
الكومبوبوكس يظهر في التيكس

نعم اريد ان يظهر رقم تليفونه و رصيده فى اللابل

هذا ملئ الكومبو بوكس

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

تمام كدا يا اخي
ولوعندك اي مشكلة انا سداد
وكل اعضاء هذا المنتدي الكريم

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

كتبت التالى و لا يحدث شىء

PHP كود :

Private Sub Cmbpurchasebillheader_supplier_id_TabIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles 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

اخي لو متصل بالاكسس جرب
الكود اللي في الصورة
ومعك ايضا المهندس RAbeeaea Qbah

شكر ل [b]Rabeea Qbaha [/b]

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

(26-11-18, 12:18 AM)vb2010 كتب : [ -> ]شكر ل [b]Rabeea Qbaha [/b]

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

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

ارسل لي مشروعك وساعدل عليه

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

vb2010

اسامه الهرماوي

vb2010

اسامه الهرماوي

Rabeea Qbaha

vb2010

اسامه الهرماوي

vb2010

Rabeea Qbaha