منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول (/showthread.php?tid=27250)

الصفحات: 1 2

بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - السعيدي - 02-11-18

السلام عليكم


عندي سؤالين

االاول  

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

الثاني
 
عندي 7 جداول مختلفه  و مستقله من 1 الي 7 
 
اريد ان اعمل كمبوبوكس  فيه ارقام  من 1 الي 7 
 
اذا تخترت رقم 1 يبحث في رقم 1 و اذا تخترت رقم7 يبحث في رقم 7 

RE: ارجو المساعده - Eng27 - 02-11-18

السؤال الأول غير واضح
اما الثاني فاستخدم بنية شرط

RE: ارجو المساعده - السعيدي - 03-11-18

كيف بنيه الشرط

الاستتفسار الاول 
هو اجمع رقمين وبعد عمليه الجمع ا
جمع او اطرح الناتج من رقم اخر

RE: ارجو المساعده - حريف برمجة - 03-11-18

السؤال الأول :

كود :
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)

بالتوفيق للجميع

RE: ارجو المساعده - السعيدي - 03-11-18

هل هذا الكود صحيح
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)

RE: ارجو المساعده - حريف برمجة - 03-11-18

اخي العزيز وحدة وحدة . ركز في الشرح الآن :

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




كود :
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)


RE: بحاجة لمساعة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - elgokr - 03-11-18

وعليكم السلام ورحمة الله وبركاته

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

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

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

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

تحياتى لك
وتمنياتى لك التوفيق


RE: بحاجة لمساعة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - السعيدي - 03-11-18

عندي 7 جداول مستقله كل جدول له قاعده بيانات مستقله 
كل جدول له رقم مربوط به بالكمبوبكس 
لما استدعي الرقم الموجود بالمبوبكس يبحث بالقاعده المربوطه به فقط
تظهر لي رساله
COMMAND TEXT WAS NOT EST FOR THE COMMAND OBJECT

RE: بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - elgokr - 03-11-18

الى هنا جميل
وحتى تتمكن من فعل ذلك وتجنب تلك الرسالة ستحتاج الى اتمام التالى

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

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

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

تحياتى لك
وتمنياتى لك التوفيق


RE: بحاجة لمساعدة فى اتمام كود عملية حسابية وايضاً كود استعلام لاكثر من جدول - السعيدي - 22-11-18

بحثت وحاولت 
ولكن لم استطع الوصول للمطلوب 

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