29-09-14, 05:13 PM
[attachment=2490][attachment=2490]
مرحبا
عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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
مرحبا
عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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