تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول
#1
السلام عليكم


عندي سؤالين

االاول  

 اريد كود اجمع نناتج عمليه   الجمع مع رقم جديد
مثال
8+2=12 - 2 =10 

الثاني
 
عندي 7 جداول مختلفه  و مستقله من 1 الي 7 
 
اريد ان اعمل كمبوبوكس  فيه ارقام  من 1 الي 7 
 
اذا تخترت رقم 1 يبحث في رقم 1 و اذا تخترت رقم7 يبحث في رقم 7 
الرد
تم الشكر بواسطة:
#2
السؤال الأول غير واضح
اما الثاني فاستخدم بنية شرط
الرد
تم الشكر بواسطة: elgokr
#3
كيف بنيه الشرط

الاستتفسار الاول 
هو اجمع رقمين وبعد عمليه الجمع ا
جمع او اطرح الناتج من رقم اخر
الرد
تم الشكر بواسطة: elgokr , elgokr
#4
السؤال الأول :

كود :
Dim calc As Double
       calc = 8 + 2
       calc = Val(calc) + 2

       TextBox1.Text = Val(calc)      '// OutPut 12


السؤال الثاني :

فقط تمسح اسم الجدول وتضع مكانه



كود :
" & ComboBox1.Text & " 

بمعنى تكون الجملة هكذا :


كود :
        Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " where …………………….", conn)

بالتوفيق للجميع
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة: elgokr , elgokr
#5
هل هذا الكود صحيح
Imports System.Data.OleDb

Public Class Form2


    Dim conn As New OleDbConnection


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


        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\h1.accdb", "\h2.accdb", "\h3.accdb", "\h4.accdb","\h5.accdb", "\h6.accdb", "\h7.accdb"

     End Sub

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


        conn.Open()


        Try


            Dim cmdselect As New OleDbCommand


            cmdselect.Connection = conn


            'cmdselect.CommandText = " select * from h4 where المسافة = " + TextBox1.Text + ""

           

Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " where …………………….", conn)
الرد
تم الشكر بواسطة:
#6
اخي العزيز وحدة وحدة . ركز في الشرح الآن :

أولا جملة الاتصال كالتالي حسب كودك ولكن اكفتي باسم القاعدة وحدة :




كود :
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\h1.accdb"




انت قمت بتعبئة الكومبو بوكس بأسماء الجداول .

كود تعبئة الكومبو كالتالي :

كود :
ComboBox1.Items.Add("1")

        ComboBox1.Items.Add("2")

        ComboBox1.Items.Add("3")

        ComboBox1.Items.Add("4")

        ComboBox1.Items.Add("5")

        ComboBox1.Items.Add("6")

        ComboBox1.Items.Add("7")



سيكون الكومبو وقت تشغيل البرنامج هكذا :
1
2
3
4
5
6
7

وجملة السيليكت تكون كالتالي :


كود :
Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " ", conn)

إذا الجملة تحتوي على شروط مثل Where
تضعها هنا


كود :

كود :
Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " هنا ", conn)
بسم الله الرحمن الرحيم > "اللَّهُ نُورُ السَّمَاوَاتِ وَالْأَرْضِ ۚ مَثَلُ نُورِهِ كَمِشْكَاةٍ فِيهَا مِصْبَاحٌ ۖ الْمِصْبَاحُ فِي زُجَاجَةٍ ۖ الزُّجَاجَةُ كَأَنَّهَا كَوْكَبٌ دُرِّيٌّ يُوقَدُ مِن شَجَرَةٍ مُّبَارَكَةٍ زَيْتُونَةٍ لَّا شَرْقِيَّةٍ وَلَا غَرْبِيَّةٍ يَكَادُ زَيْتُهَا يُضِيءُ وَلَوْ لَمْ تَمْسَسْهُ نَارٌ ۚ نُّورٌ عَلَىٰ نُورٍ ۗ يَهْدِي اللَّهُ لِنُورِهِ مَن يَشَاءُ ۚ وَيَضْرِبُ اللَّهُ الْأَمْثَالَ لِلنَّاسِ ۗ وَاللَّهُ بِكُلِّ شَيْءٍ عَلِيمٌ" < صدق الله العظيم
الرد
تم الشكر بواسطة: elgokr
#7
وعليكم السلام ورحمة الله وبركاته

فى البداية ارجو الانتباه من وضع يناسب محتوى الموضوع بدلاً من التعميم
حتى يسهل على الاعضاء التواجد بموضوعك والمساعدة بشكل اكبر

ثانياً يبدو بان تم انشاء الموضوع بالقسم الخطاء حيث ما يظهر بالردود ان الموضوع
يخص قسم VB.NET وليس C# لذلك تم نقل الموضوع للقسم المناسب

ثالثاً بخصوص الرد رقم 5 وهو المشاركة الخاصة بك تحتوى على كود الاتصال
حيث ان كود الاتصال تحتوى على عدد 7 قواعد بيانات حيث ان السؤال ببداية الموضوع عن 7 جداول
فاتمنا التوضيح هل السؤال يتعلق بعدد 7 قواعد بيانات بحاجة بجلب نتائج جدول من كل قاعدة بيانات
ام انه قاعدة بيانات واحدة فقط وبحاجة بجلب نتائج عدد 7 جداول ليعرض ComboBox

الرجاء التوضيح مع توضيح ما تريد فعله او ما تفكر به تماماً
حتى يتم تسهيل الامور عليك اكثر وتوضيح كيفية عمل ما تريده مع وضع الاكواد والشرح التى تناسب ما تريده

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة: vb2010
#8
عندي 7 جداول مستقله كل جدول له قاعده بيانات مستقله 
كل جدول له رقم مربوط به بالكمبوبكس 
لما استدعي الرقم الموجود بالمبوبكس يبحث بالقاعده المربوطه به فقط

تظهر لي رساله
COMMAND TEXT WAS NOT EST FOR THE COMMAND OBJECT
الرد
تم الشكر بواسطة:
#9
الى هنا جميل
وحتى تتمكن من فعل ذلك وتجنب تلك الرسالة ستحتاج الى اتمام التالى

1- انشاء عدد 7 اكواد اتصال بقاعدة البيانات
2- انشاء عدد 7 DataTable
3- انشاء عدد 7 اكواد استعلام عن كل جدول بكل قاعدة بيانات وكل استعلام يرتبط بمعرف الاتصال بالجدول الخاص به
4- يتم ربط كل استعلام مع كل DataTable المخصص له

بالنهاية ستقوم باستخراج نتائج الاستعلام الـ 7 الى ComboBox وبكده تكون انهيت المطلوب
ويتم ذلك من خلال For بالربط مع DataTable 

اتمنى ان الشرح موضح الطريقة كاملاً وان الامور بسيطة لتنفيذ الامر

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#10
بحثت وحاولت 
ولكن لم استطع الوصول للمطلوب 

https://up.top4top.net/downloadf-10560tmg11-rar.html
هذا رابط للمشروع فيه ثلاث جداول A1,A2,A3 اريد اختيار الجدول  من الكمبوبكس 
اذا اخترت A1 يقوم البرنامج بالبحث في جدول A1
اذا اخترت A2 يقوم البرنامج بالبحث في جدول A2
اذا اخترت A3 يقوم البرنامج بالبحث في جدول A3
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تحويل اسم من جدول الى جدول اخر komar 1 34 منذ 6 ساعة مضت
آخر رد: عبد العزيز البسكري
  [VB.NET] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 38 14-12-18, 07:32 PM
آخر رد: محمد اسماعيل
  [VB.NET] اضافة سريال لكل عملية محمد اسماعيل 4 115 14-12-18, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] بعد عملية التطوير من فيرجن قديم الى جديد 0theghost0 1 52 10-12-18, 02:47 PM
آخر رد: elgokr
  [VB.NET] عمل رصيد تراكمى لاكثر من صنف فى نفس الجريد break 28 622 08-12-18, 11:20 AM
آخر رد: atefkhalf2004
  [سؤال] طلب عملية حسابية motazsaad94@gmail.com 2 77 04-12-18, 11:30 PM
آخر رد: motazsaad94@gmail.com
  [VB.NET] كيف يتم التأثير على المخزون عند عملية البيع 739906433 1 64 03-12-18, 05:05 PM
آخر رد: حريف برمجة
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 60 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  انقاص الكمية من جدول الاصناف العيدروس 7 166 01-12-18, 02:06 PM
آخر رد: حريف برمجة
Star سؤال بخصوص جدول فاتوره المشتريات ، vb2010 0 67 30-11-18, 08:57 PM
آخر رد: vb2010

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


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