أعتقد أن هناك أقواس ناقصة لديك
حاول تأخذالكود و تلصقه بدون تعديل و راجع نسخة الفريم ورك لديك
ان لم تنجح ارفق نموذج من المشروع للتعديل عليه
(28-05-18, 11:14 PM)atefkhalf2004 كتب : [ -> ]اطرح علي السادة الزملاء موضوع يهم كثير من الناس واولهم انا العبد الغلبان
هو
تاريخ الصنف كمية شراء كمية بيع رصيد
1/1/2018 شاي 14 0 14
2/1/2018 شاي 5 0 19
5/1/2018 شاي 0 6 13
كيف يمكن عمل الاستعلام الذي يوجد الرصيد عقب كل عملية
أخي
atefkhalf2004
هل تريد عرض البيانات على شكل كشف حساب ؟
مشابة لكشف الحساب البنكي
إطلع على هذا الموضوع
http://vb4arb.com/vb/showthread.php?tid=...#pid113749
إذا كنت تريد نفس الكشف الموجود في الموضوع , وأنا أعتقد أن هذا ما تطلبة
أما أنك ستقوم بنفس الطريقة بنفسك أو
أرفق لي قاعدة البيانات SQL SERVER ملف بإمتداد ( mdf ) , ويا ليت يكون فيه بيانات حتى أتمكن من إختبار جملة الإستعلام
وليس ملف أكسس
وسمي لي الأعمدة التي في الجدول حتى أفهم اسماء الحقول .
الاساتذة الافاضل
انا حاولت تعديل الكود باستبدال الاقواس او مواضعها ولم تنجح العملية
ثانيا انا ارغب فعلا يا ا عبدالله في عرض كارت الصنف مثل كشف الحساب ورجعت للموضوع اللي حضرتك اشرت اليه ولم اصل
مرفق قاعدة البيانات وهي 2008 واستخدم فيجوال 2008
شكرا
حضرتك مستواك عالي جدا
اقسم بالله انا تهت منك
لكن سوف اعلم والاخرين
المهم
تم انشاء الدالة
وبال copy وال paste تم العرض لكن توهان يا خال
بسط لنا يبسطها الله في وجهك
عايزين اول ما الفورم يحمل
بعدها نختار الصنف من الكمبو يظهر كارت الصنف
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SELECTCommand = New SqlCommand
SELECTCommand.Connection = Connction
SELECTCommand.CommandType = CommandType.Text
Me.SELECTCommand.CommandText = "SELECT [invsun], [Sale], [Purchase], [Balance] FROM [dbo].[F_TransactionStatement]() where itcod= " & ComboBox1.SelectedValue & " "
Me.SqlDataAdapter.Fill(Me.ItemTable)
Me.DataGridView1.DataSource = Me.ItemTable
End Sub
استخد الدا ست بدلا من datatable
lمثل
PHP كود :
Sub fillcombox1()
If conn.State = ConnectionState.Open Then conn.Close()
conn.Open()
Dim dscom As New DataSet
dscom = New DataSet
Dim dpdp As New SqlDataAdapter
dpdp = New SqlDataAdapter("SELECT * FROM items order by invsun ", conn)
dpdp.Fill(dscom, "items")
conn.Close()
ComboBox1.Items.Clear()
ComboBox1.DataSource = dscom.Tables("items")
ComboBox1.DisplayMember = "invsun"
ComboBox1.ValueMember = "itcod"
End Sub
يا ابني . هذة هي جملة الإستعلام :
كود :
SELECT [invsun], [Sale], [Purchase], [Balance] FROM [dbo].[F_TransactionStatement]()
إستخدمها كأي إستعلام عادي , وبطريقتك الخاصة , تعبي DataSet أو تعبي DataTable شي يرجع لك.
هذا الإستعلام يجلب كرت الصنف على شكل كشف حساب , وليس لتعبئة الـ Combobox بأسماء الأصناف
عبي الـCombobox بإستعلام عادي , وعندما تريد عرض كرت الصنف نفذ الإستعلام الذي عملتة لك.
والله انا وضعت تعبئة الكمبوبوكس كمثال ل داتا ست واستخدمت نفس استعلامك الهدف تبسيط الكوك وشكل انا عاؤفه. نتختار الصنف من الكمبو يعرض كارت الصنف الخاص به. وكيف يمكن وضع الدالةفي الفيجوال مش قي السكول لان تلسكول صغب وعايز حرفنه. احكي هدا المستقبل وخاصة هناك استخدامات كثيرة لنفس الكود ثم العميل والمورد وهكدا ونحن مبتدئين. وان شاء الله سوف تصل مش عارف اودي جمايلك واحسانك علي فين كثير علي ما تفعلوه معي ومع امثالي
أهلا بك أخي atefkhalf2004
الأمور بسيطة
لكن أنت مصعبها على تنفسك حبتين.
اشرح لي ما الذي تريد أن تقوم به. وما هو الي تحس انه صعب ,
بعض الجمل التي لم أفهمها ( الهدف تبسيط الكوك وشكل انا عاؤفه )
مذاذ تقصد ( هناك استخدامات كثيرة لنفس الكود ثم العميل والمورد وهكدا )
اولا : حضرتك الكود المستخدم يمكن تطويعه وااستخدامه في اماكن اخري مثل ايجاد كشف حساب غميل او مورد
بالتالي لا بد من الفهم
ثانيا : برمجيا ان تضع الكود داحل القاعدة محتاج احتراف واحنا بدري علينا قوي
المهم
حضرتك ان اعرض البيانات
1-عمل الدالة function بالكود داخل كود الفيجوال بيسك
2-كيف اعرض كارت الصنف من خلال اختيار اسم الصنف من الكمبوبوكس يتم عرض الكارت
وسوف استخدم الفكرة في عرض حاسب العميل والمورد
حتي هذه اللحظة لم استطع توظيف الكود بالشكل المطلوب
اتمني حضرتك تساعدني
فكرة عرض البيانات تتكون من خلال الداتا ست بنفس فكرة تعبئة الكمبوبوكس المعروضة اعلي
أخ عاطف
الأخ عبد الله مشكورا شرح لك الأمر بشكل مفصل
و كل ما عليك هو استدعاء الدالة مباشرة لتحصل على الجدول المطلوب
و اذا اردت التطبيق على جدول اخر
ستحتاج الى التعديل على كود الfunction
عموما فى المرفق مثال لثلاثة طرق مختلفة للحصول على ما تريد ( المثال على قاعدة بيانات أكسس لعدم وجود سيكوال سيرفر لدى حاليا )
لن تستطيع تطبيق Dsum على السيكوال
و لكن الطريقتين linq و َالاستعلام ستعمل معك على السيكوال ان شاء الله