• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

djamel2020

اعضاء
  • عدد المشاركات

    56
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن djamel2020

  • الرتبة
    عضو

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : الجزائر
  • اهتمامات البرمجة
  1. السلام عليكم ورحمة الله تعالى وبركاتهالأساتذة الكرام رجاءا ممكن شرح لهذا الإستعلام لأني أريد إضافة شروط أخرى فيه 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وهكذا إلى خمسة شروط ألف شكر لكم مسبقا
  2. السلام عليكم ورحمة الله تعالى وبركاتهالأساتذة الكرام رجاءا لو سمحتمعندي ملف تكست به قائمة من البيانات أريد تحميلها على قريد فيوقمت بكاتبة هذا الكود لكن البيانات طلعت كلها في عمود واجد وبقية الأعمدة طلعت فارغة الملف هو :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ألف شكر لكم مسبقا
  3. السلام عليكم ورحمة الله تعالى وبركاته عملت إجرا كي أحذف مورد بشرط ان لا يكون له فواتير باسمه في جدول الفواتير جدول الفواتير اسمه 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 لكن سواء هذا  المورد له فواتير في جدول الفواتير أم لا تطلع الرسالة المسج بوكس أرجوا التوضيح وشكرا لكم يا أساتذة
  4. كلمة السر يا استاذ هي rar   أسف آسف آسف
  5. السلام عليكم ورحمة الله تعالى وبركاته الأساتذة الكرم أرجوا تصويب خطا حصل لي في الفورم في المثال التالي لما أقوم بعملية الحفظ أجد أن مبلغ الفاتورة الذي هو ناتج مجموع عمود في القريد فيو يحفظ في قاعدة البيانات بمبلغ غير صحيح أرجوا الإطلاع على المثال المرفق وتصحيح الخطأ ولكم جزيل الشكر Facture.rar
  6. السلام العليكم ورحمة الله تعالى وبركاته   رجاءا ممن عنده الخبر في قواعد البيانات   هذه صورة لقاعدة بيانات صممتها ما يهمنا فيها هو جدولين سأشرحهما حتى يتوضح سؤالي   جدول Facture: يحفظ فيه رقم الفاتورة واسم الزبون والتاريخ والمبلغ الإجمالي للفاتورة جدول FactureL: يحفظ اسم السلعة التي بيعت و الكمية والسعر الوحدوي للسلعة المباعة بمعنى آخر أن جدول FactureL هو بيان لتفاصيل كل فاتورة في جدول Facture   رأيت أن هذه الطريقة مناسبة ولهذا أطلب رأيكم وتوجيهكم
  7. مرحبا السيرفر الشخصي ماهو ؟ هلى هو سيرفر عادي أم هو أمر آخر أرجو التوضيح  
  8. رجاءا عاجل

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

    رجاءا أما من رد
  10. إظهار النتيجة في ليبل

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

    مرحبا عندي قاعدة بيانات مربوطة بمشروع فيجوال بيزك 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 أرجوا أن أكون قد وضحت الفكرة والإشكال
  12. السلام عليكم ورحمة الله تعالى وبركاته تم بحمد الله تعالى وعونه حل هذا الإشكال ولتعميم الإستفادة أحببت أن أنشره 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;  
  13. الشموع الموقَدات لكشف تضارب البيانات

    الموضوع هام جدا ومشوق أخي الكريم لكن لابد من وجود حل لما لا يعتمد في رأي الشخصي ولست ممن يقترح لعدم خبرتي ، لما للا يعتمد على التحديث المباشر للداتاسيت بعد كل عملية أو القيام بجرد كل التحديثات فيحين يتم قفل الحقول إعادة فتحها نباشرة بعد الإنتهاء من كل عملية تحديث والله أعلم
  14. السلام عليكم ورحمة الله تعالى وبركاته في هذا الإستعلام قمت بحساب الكمية المشتراة والكمية المباعة لكل سلعة لكن لما أطلع النتيجة أجد أن ناتج الكميات قد تضاعف لا أدري لما الإستعلام هو : 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; لما أحسب كل كمية على حدى يطلع الناتج صحيح لكن لما أحسبهم مع بعض يتلخبط كل شيئ أرجوا إفادتي ولكم جزيل الشكر  
  15. تصحيح استعلام ملأ DataGridView

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