تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إظهار النتيجة في ليبل
#1

.rar   Facture.rar (الحجم : 166.91 ك ب / التحميلات : 82)
.rar   Facture.rar (الحجم : 166.91 ك ب / التحميلات : 82)
مرحبا

عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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
أرجوا أن أكون قد وضحت الفكرة والإشكال
المشروع على الرابط : http://www.4shared.com/rar/3mSqldkNba/Facture.htm
الرد }}}
تم الشكر بواسطة:
#2
.....

كود :
Private Sub btnajout_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnajout.Click
    Dt.Clear()
    SoldDataAdapter.SelectCommand.Parameters.Clear()
    SoldDataAdapter.SelectCommand.Parameters.AddWithValue("@CodeP", Me.CmbProd.Text)
    If SoldDataAdapter.Fill(Dt) > 0 Then Me.Qte.Text = Dt.Rows(0).Item("Solde")
End Sub

.....
الرد }}}
تم الشكر بواسطة: kslawy
#3
شكرا لك أخي الكريم أشتغلت فقط مع السطر الأول للcmbProd
الرد }}}
تم الشكر بواسطة:
#4
.....

يجب تعبئة cmbProd بالبيانات لتختار منها،
إذا أرت أن تظهر النتيجة فوراً بمجرد الاختيار بدون الضغط على الزر يمكنك وضع الكود السابق في الحدث SelectedIndexChanged لـ cmbProd

.....
الرد }}}
تم الشكر بواسطة: kslawy
#5
كتبته كما قلت والكومبوبوكس عبأته بالبيانات ورغم ذلك ما اشتغلت
تحب أبعثلك الفورم ؟
الرد }}}
تم الشكر بواسطة:
#6
ما فيه مشكلة أنت تأمر موبس تعدل
ممكن تعيد تبعث لي المشروع كي أشوف وأفهم
الرد }}}
تم الشكر بواسطة:
#7
.....

فقط استبدل هذا الكود بكامل كود الفورم بالذي لديك ثم جرب البرنامج
كود :
Imports System.Data.OleDb
Public Class Facture

    Private cnn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|GestionCom.accdb")
    'Dim FactureDataAdpter As New OleDbDataAdapter("Select * From Facture", cnn)


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

        ' تعبئة صناديق السرد مرة واحدة فقط
        comboBoxFill(CmbClients, "Clients", "Société", "ID", "Société")
        comboBoxFill(CmbProd, "Produits", "Désignations", "CodeP", "Désignations")

        txtNFact.Focus()

    End Sub

    ' إظهار الرصيد المتبقي
    Private Sub CmbProd_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmbProd.SelectionChangeCommitted
        Using da As New OleDbDataAdapter("Select * FROM Sold", cnn)
            Using Dt As New DataTable
                da.SelectCommand.Parameters.Clear()
                da.SelectCommand.Parameters.AddWithValue("@CodeP", CmbProd.SelectedValue)
                If da.Fill(Dt) > 0 Then Me.Qte.Text = Dt.Rows(0).Item("Solde")
            End Using
        End Using
    End Sub

    ' ComboBox إجراء عام لتعبئة صندوق السرد
    Private Sub comboBoxFill(ByVal comboBox As ComboBox, ByVal tableName As String _
                        , ByVal displayMember As String, ByVal valueMember As String _
                        , Optional ByVal orderBy As String = "")

        Dim sql As String = " SELECT [" & displayMember & "], [" & valueMember & "] " & _
                            " FROM [" & tableName & "] " & _
                            If(orderBy.Trim <> "", " ORDER BY [" & orderBy & "]", "")

        Using da As New OleDbDataAdapter(sql, cnn)
            Dim dt As New DataTable
            da.Fill(dt)
            comboBox.DataSource = dt
            comboBox.DisplayMember = displayMember
            comboBox.ValueMember = valueMember
            comboBox.SelectedIndex = -1
        End Using

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Close()
    End Sub

End Class

.....
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة : طريقة إظهار مسار المستند و فتحه أبووسم 2 457 29-07-23, 04:20 AM
آخر رد: أبووسم
  [VB.NET] اريد كود البحث او الفلترة عن طريق تيكست بوكس و عرض النتيجة في داتا جريد فيو الحسين احمد 6 10,610 10-06-23, 01:01 PM
آخر رد: mahmoud mostafa 2023
  [VB.NET] إظهار التسمية التوضيحية للأزرار vb.net paypalet 2 368 08-10-22, 08:01 PM
آخر رد: paypalet
  [كود] إظهار رقم الطالب بمجرد كتابة اسمة ali bajmmal 3 668 24-09-22, 10:43 PM
آخر رد: alfaiz678
  [سؤال] عندي سؤال في ليبل حسن الجلب 1 1,227 05-10-21, 11:59 PM
آخر رد: asmarsou
  مساعدة في إظهار القيم من جداول مرتبطة nssj 1 964 11-09-21, 12:07 PM
آخر رد: nssj
Lightbulb ارجوا المساعدة في طباعة الكاشير بدون إظهار التقرير abo.alaa315 6 2,022 02-05-21, 05:56 PM
آخر رد: alfaiz678
  [سؤال] ممكن كود إظهار سريال الجهاز حسن الجلب 1 1,173 16-03-21, 10:27 AM
آخر رد: asmarsou
  [سؤال] ممكن كود إظهار سريال الجهاز حسن الجلب 0 1,103 16-03-21, 03:06 AM
آخر رد: حسن الجلب
  السلام عليكم ممكن سؤال في اضافه اكثر من ليبل اليوم السابع 4 1,790 31-12-20, 02:33 PM
آخر رد: اليوم السابع

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


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