djamel2020

السلام عليكم ورحمة الله تعالى وبركاتهالأساتذة الكرام رجاءا ممكن شرح لهذا الإستعلام لأني أريد إضافة شروط أخرى فيه SELECT dbo.Facture_L.Num_Vent, dbo.Facture_L.Num_Fact_Vent, dbo.Facture_L.ID_Prod, dbo.Facture_L.UM, dbo.UM.Nom_UM, CAST(CASE WHEN (Facture_L.UM = 4) THEN (Facture_L.Qte_V * 0.02) ELSE (Facture_L.Qte_V) END AS FLOAT) AS Qte, dbo.Facture_L.Prix_VFROM dbo.Facture_L INNER JOINdbo.UM ON dbo.Facture_L.UM = dbo.UM.ID_UM فمثلا في هذا الإستعلام لو تغيرت قيمة Facture_L.UM إلى 3 النتيجة Facture_L.Qte_V * 0.1وهكذا إلى خمسة شروط ألف شكر لكم مسبقا

السلام عليكم ورحمة الله تعالى وبركاتهالأساتذة الكرام رجاءا لو سمحتمعندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيوقمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة الملف هو :medic.rarالكود  الذي كتبته هو :        Dim fichierALire As String = Application.StartupPath & "\" & "Forme.txt"        Dim champs() As String        Dim sr As New StreamReader(fichierALire)        While Not sr.EndOfStream            Dim ligne As String = sr.ReadLine()            champs = ligne.Split(CChar(vbTab))            dgv.Rows.Add(champs)        End Whileألف شكر لكم مسبقا

مرحبا من فضلكم أريد كود مسح القريد فيو من أجل إعادة ملإها كما في فورم فاتورة بيع أي كلما طلعت الفورم تطلع القريد فيو فارغة   شكرا لكم  

السلام عليكم ورحمة الله تعالى وبركاته عملت إجرا كي أحذف مورد بشرط ان لا يكون له فواتير باسمه في جدول الفواتير جدول الفواتير اسمه Achats الحقول هي : Numr, Société,Date, Montant جدول الموردين اسمه Fournisseurs الحقول هي : ID, Nom, Société كود ألإجراء الذي عملته هو :  Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click         'Supprimer un enregistrement         On Error Resume Next         If cnn.State = ConnectionState.Open Then             cnn.Close()         End If         Dim sql As String = "Select Fournisseurs From Achats"         If Me.BindingContext(ds, "Fournisseurs").Count > 0 Then             MsgBox("Vous Ne pouvez pas supprimer ce Fournisseurs!, car il y a des Achats a son Nom.", MsgBoxStyle.Exclamation)             Exit Sub         Else             If MsgBox("Voulez vous vraiment Supprimer ce Fournisseurs ?", MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then                 Exit Sub             End If             Dim r As Integer             Dim stqlDel1 As String             stqlDel1 = "Delete from Fournisseurs where ID =" & CInt(dgf.CurrentRow.Cells(0).Value)             Dim cmdDel1 As New OleDbCommand(stqlDel1, cnn)             cnn.Open()             r = cmdDel1.ExecuteNonQuery()             cnn.Close()         End If         BtnActualiser_Click(Nothing, Nothing)     End Sub لكن سواء هذا  المورد له فواتير في جدول الفواتير أم لا تطلع الرسالة المسج بوكس أرجوا التوضيح وشكرا لكم يا أساتذة

كلمة السر يا استاذ هي rar   أسف آسف آسف

السلام عليكم ورحمة الله تعالى وبركاته الأساتذة الكرم أرجوا تصويب خطا حصل لي في الفورم في المثال التالي لما أقوم بعملية الحفظ أجد أن مبلغ الفاتورة الذي هو ناتج مجموع عمود في القريد فيو يحفظ في قاعدة البيانات بمبلغ غير صحيح أرجوا الإطلاع على المثال المرفق وتصحيح الخطأ ولكم جزيل الشكر Facture.rar

مرحبا عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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 أرجوا أن أكون قد وضحت الفكرة والإشكال

مرحبا عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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 أرجوا أن أكون قد وضحت الفكرة والإشكال

السلام العليكم ورحمة الله تعالى وبركاته   رجاءا ممن عنده الخبر في قواعد البيانات   هذه صورة لقاعدة بيانات صممتها ما يهمنا فيها هو جدولين سأشرحهما حتى يتوضح سؤالي   جدول Facture: يحفظ فيه رقم الفاتورة واسم الزبون والتاريخ والمبلغ الإجمالي للفاتورة جدول FactureL: يحفظ اسم السلعة التي بيعت و الكمية والسعر الوحدوي للسلعة المباعة بمعنى آخر أن جدول FactureL هو بيان لتفاصيل كل فاتورة في جدول Facture   رأيت أن هذه الطريقة مناسبة ولهذا أطلب رأيكم وتوجيهكم

مرحبا السيرفر الشخصي ماهو ؟ هلى هو سيرفر عادي أم هو أمر آخر أرجو التوضيح  

رجاءا أما من رد

السلام عليكم ورحمة الله تعالى وبركاته تم بحمد الله تعالى وعونه حل هذا الإشكال ولتعميم الإستفادة أحببت أن أنشره SELECT Produits.CodeP, [Qté des Prod par Prix Achat].Achats, Sum(FactureL.Quantité) AS Vente, [Achats]-[Vente] AS Solde FROM (Produits INNER JOIN [Qté des Prod par Prix Achat] ON Produits.CodeP = [Qté des Prod par Prix Achat].CodeP) INNER JOIN FactureL ON Produits.CodeP = FactureL.CodeP GROUP BY Produits.CodeP, [Qté des Prod par Prix Achat].Achats ORDER BY Produits.CodeP;  

السلام عليكم ورحمة الله تعالى وبركاته في هذا الإستعلام قمت بحساب الكمية المشتراة والكمية المباعة لكل سلعة لكن لما أطلع النتيجة أجد أن ناتج الكميات قد تضاعف لا أدري لما الإستعلام هو : SELECT Produits.CodeP, Sum(AchatsL.Quantité) AS Achats, Sum(FactureL.Quantité) AS Vente FROM (Produits INNER JOIN AchatsL ON Produits.CodeP = AchatsL.Désignations) INNER JOIN FactureL ON Produits.CodeP = FactureL.CodeP GROUP BY Produits.CodeP; لما أحسب كل كمية على حدى يطلع الناتج صحيح لكن لما أحسبهم مع بعض يتلخبط كل شيئ أرجوا إفادتي ولكم جزيل الشكر  

الموضوع هام جدا ومشوق أخي الكريم لكن لابد من وجود حل لما لا يعتمد في رأي الشخصي ولست ممن يقترح لعدم خبرتي ، لما للا يعتمد على التحديث المباشر للداتاسيت بعد كل عملية أو القيام بجرد كل التحديثات فيحين يتم قفل الحقول إعادة فتحها نباشرة بعد الإنتهاء من كل عملية تحديث والله أعلم

أستاذ أحمد رجاءا

السلام عليكم ورحمة الله تعالى وبركاته رجاءا من الإخوة الكرام تصحيح الإستعلام التالي :  Dim SqlSelectAchatL2 As String = "Select Désignation, Quantité, Prix_Achat From AchatsL Where N = DataGridView1.Rows(0)"   إذ في الصورة الموضحة أدناه وضعت 2 من قريد فيو 1 و2 المبدأ أنه كلما حددت سطر من القريد فيو 1 يتغير محتوى القريد فيو 2 حسب رقم الفاتورة استخدمت الإستعلام الموضح أعلاه لكنه لم يعمل فأرجوا الإفادة من الأساتذة الكرام   شكرا

بعد ما جربت طلعت رسالة الخطأ التالية : Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index   المثال على الرابط : http://www.4shared.com/rar/NkZcyTQkba/Test.html   علما أن DataGridView1 هي Master و DataGridView2 هيى Détail شكرا

أستاذ فؤاد لا أدري إن كنت على النت أم لا أريد أن أستعلم إن كان بالإمكان استبدال الداتاسيت بالداتا تابل شكرا

شكرا لك جزيل الشكر أخي الكرم هذا هو المطلوب رح أجرب أعملها بعد ما أفهم جيدا الطريقة والأكواد ثم راح اعلمك بالنتيجة المبدأ يظهر أنه غير معقد شكرا

مرحبا خلاص حليتها ولمن يريد الكود هو :  Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress         If e.KeyChar = Chr(13) Then             For i As Integer = 0 To DataGridView1.Rows.Count - 1                 If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then                     DataGridView1.Rows(i).Selected = False                     'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect                     DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue                 Else                     DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White                 End If             Next         End If     End Sub

Private Sub txtSerch_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSerch.TextChanged If cnn.State = ConnectionState.Open Then cnn.Close() End If 'On Error Resume Next Dim Ask As String cnn.Open() AchatsBS.Filter = "N + Société + Dates + Montant like '%" + txtSerch.Text + "%'" If DataGridView1.RowCount = 0 Then Ask = MsgBox("Ce Fournisseur N'existe Pas, Voulez vous ajouter un?", MsgBoxStyle.YesNo) If Ask = MsgBoxResult.Yes Then txtSerch.Text = "" frmsaisiedesfour.Show() End If End If cnn.Close() End Sub   لكود يشتغل لكن ليس عن طريق رقم الفاتورة إذ لو كتبت رقم الفاتورة في الـ txtSerch لا يعمل أما الباقي Société + Dates + Montant فيشتغل جيدا أود أن اعرف لماذا ممكن ؟

مرحبا خلاص حليتها ولمن يريد الكود هو :  Private Sub txtSerch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSerch.KeyPress         If e.KeyChar = Chr(13) Then             For i As Integer = 0 To DataGridView1.Rows.Count - 1                 If txtSerch.Text = DataGridView1.Rows(i).Cells(0).Value Then                     DataGridView1.Rows(i).Selected = False                     'DataGridView1.SelectionMode = DataGridViewSelectionMode.CellSelect                     DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.DodgerBlue                 Else                     DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.White                 End If             Next         End If     End Sub

طيب بدل الفلترة كيف أجعل كلما كتبت رقم الفاتورة في txtserch يتحدد السطر الموجدة فيه هذه الفاتورة شكرا

رجاءا من يصحح لي هذا الكود هو كود حذف من قاعدة البيانات الكود هو: Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click 'Supprimer un enregistrement Dim r As Integer Dim stqlDel, deltext As String deltext = txtSerch.Text stqlDel = "Delete from Achats where N = " & deltext & "" Dim cmdDel As New OleDbCommand(stqlDel, cnn) cnn.Open() r = cmdDel.ExecuteNonQuery() cnn.Close() End Sub هذا الكود يشتغل والحمد لله لكن ما أريده هو أنني أريد أن أحذف السطر بمجرد تحديده داخل القريد فيو وليس بكتابة رقم N داخل textSerch كما هو مبين أعلاه القريد فغيو اسمها datagridView1 وهي تابعة لنفس الفورم   شكرا لكم  

ممكن تعيد صياغة سؤالكأنا مثلك مبتدأ لكن يمكن أن أساعدك