تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية و غير عشرية Necro PC 7 238 20-11-20, 12:43 AM
آخر رد: Necro PC
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية Necro PC 7 245 20-11-20, 12:43 AM
آخر رد: Necro PC
  [VB.NET] طلب عمل جدول حصص مدرسي سيد درويش 2 198 10-11-20, 01:27 AM
آخر رد: سيد درويش
  [VB.NET] جلب جدول مباريات بالكامل ميدو الفنان 1 160 31-10-20, 10:41 PM
آخر رد: ميدو الفنان
  عملية جمع قيمة التكست ZaerAllail 10 534 15-09-20, 09:24 PM
آخر رد: ZaerAllail
  المساعدة بكود استعلام khaled Mohammed 3 294 15-09-20, 08:42 AM
آخر رد: Anas Mahmoud
  [VB.NET] تعديل في عملية البحث abu7shihab 4 456 11-09-20, 08:20 PM
آخر رد: T 1
  [VB.NET] محتاج كود عرض اكثر من جدول فى داتا جرد فيو واحدة عن طريق اختيار الجدول من كومبوكس mohammed1994 1 430 01-09-20, 04:56 PM
آخر رد: اسامه الهرماوي
  كيف ادمج استعلامين استعلام يخص الاعمده و الاخر يخص الصفوف بسام محمدغانم 4 411 27-08-20, 05:40 PM
آخر رد: بسام محمدغانم
  [سؤال] تحويل نص يحتوي عملية الى عملية حسابية عبد الهادي بهاب 4 374 09-08-20, 02:29 AM
آخر رد: عبد الهادي بهاب

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


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