• 0
djamel2020

إظهار النتيجة في ليبل

سؤال

مرحبا

عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 2010 عن طريق سلسلة الإتصال cnn

بالمشروع به فورم اسمه Facture به combobox اسمه cmbProd وليبل اسمه Qte

ربطت الكل مع قاعدة البيانات GestionCom.accdb عن طريق الاتا أدابتر والبادينق سورس

قاعدة البيانات بها كيوري اسمهSold   هذه الكيوري تحسب لي كميات السلعة لمستراة والمباعة والر صيد المتبقي

معلت في اللكومبوبوكس (CmbProd) كلما اخترت منه سلعة يضظر الرصيد في الليبل

المشكلة كيف أربط اليلبل مع الكيوري Sold

الأكواد التي استنعملتها هي :

Imports System.Data
Imports System.Data.OleDb
Public Class Facture
    Private cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|GestionCom.accdb")
    Dim ClientsDataAdpter As New OleDbDataAdapter("Select * From Clients Order by Société", cnn)
    Dim FactureDataAdpter As New OleDbDataAdapter("Select * From Facture", cnn)
    Dim ProduitsDataAdpter As New OleDbDataAdapter("SELECT * FROM Produits ORDER BY Produits.Désignations", cnn)
    Dim SoldDataAdapter As New OleDbDataAdapter("Select * FROM Sold", cnn)
    Dim Ds As New DataSet
    Dim ClientBS As New BindingSource
    Dim FactureBS As New BindingSource
    Dim ProduitsBS As New BindingSource
    Dim soldBS As New BindingSource
    Dim Dsview As New DataView
    Sub View()
        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If
        cnn.Open()
        ClientsDataAdpter.Fill(Ds, "Clients")
        FactureDataAdpter.Fill(Ds, "Facture")
        ProduitsDataAdpter.Fill(Ds, "Produits")
        SoldDataAdapter.Fill(Ds, "Sold")
        cnn.Close()
        Dsview = Ds.Tables(0).DefaultView
        'ClientBS.DataSource = Dsview
        'FactureBS.DataSource = Dsview
        soldBS.DataSource = Dsview

        'Fill Tous les ComboBox
        CmbClients.DataSource = Ds.Tables("Clients")
        CmbClients.DisplayMember = "Société"
        CmbClients.ValueMember = "ID"

        CmbProd.DataSource = Ds.Tables("Produits")
        CmbProd.DisplayMember = "Désignations"
        CmbProd.ValueMember = "CodeP"

        'Vidage des ComboBoxs
        CmbClients.Text = ""
        CmbModeP.Text = ""
        CmbProd.Text = ""

        txtNFact.Focus()

   

 Private Sub Facture_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.View()
    End SubEnd Sub

 

 Private Sub CmbProd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbProd.SelectedIndexChanged
        If CmbProd.SelectedText = "" Then
            Exit Sub
        End If
        If cnn.State = ConnectionState.Open Then
            cnn.Close()
        End If

        cnn.Open()
        SoldDataAdapter.Fill(Ds, "Sold", CmbProd.SelectedValue)
        cnn.Close()
    End Sub

أرجوا أن أكون قد وضحت الفكرة والإشكال

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

الموضوع مكرر فى نفس القسم ... رجاء الرجوع لموضوعك السابق فهناك رد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .