السلام عليكم
عندي سؤالين
االاول
اريد كود اجمع نناتج عمليه الجمع مع رقم جديد
مثال
8+2=12 - 2 =10
الثاني
عندي 7 جداول مختلفه و مستقله من 1 الي 7
اريد ان اعمل كمبوبوكس فيه ارقام من 1 الي 7
اذا تخترت رقم 1 يبحث في رقم 1 و اذا تخترت رقم7 يبحث في رقم 7
السؤال الأول غير واضح
اما الثاني فاستخدم بنية شرط
كيف بنيه الشرط
الاستتفسار الاول
هو اجمع رقمين وبعد عمليه الجمع ا
جمع او اطرح الناتج من رقم اخر
السؤال الأول :
كود :
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)
بالتوفيق للجميع
هل هذا الكود صحيح
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)
اخي العزيز وحدة وحدة . ركز في الشرح الآن :
أولا جملة الاتصال كالتالي حسب كودك ولكن اكفتي باسم القاعدة وحدة :
كود :
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)
كود :
Dim cmd As New OleDbCommand("select * from" & ComboBox1.Text & " هنا ", conn)
وعليكم السلام ورحمة الله وبركاته
فى البداية ارجو الانتباه من وضع يناسب محتوى الموضوع بدلاً من التعميم
حتى يسهل على الاعضاء التواجد بموضوعك والمساعدة بشكل اكبر
ثانياً يبدو بان تم انشاء الموضوع بالقسم الخطاء حيث ما يظهر بالردود ان الموضوع
يخص قسم VB.NET وليس C# لذلك تم نقل الموضوع للقسم المناسب
ثالثاً بخصوص الرد رقم
5 وهو المشاركة الخاصة بك تحتوى على كود الاتصال
حيث ان كود الاتصال تحتوى على عدد 7 قواعد بيانات حيث ان السؤال ببداية الموضوع عن 7 جداول
فاتمنا التوضيح هل السؤال يتعلق بعدد 7 قواعد بيانات بحاجة بجلب نتائج جدول من كل قاعدة بيانات
ام انه قاعدة بيانات واحدة فقط وبحاجة بجلب نتائج عدد 7 جداول ليعرض ComboBox
الرجاء التوضيح مع توضيح ما تريد فعله او ما تفكر به تماماً
حتى يتم تسهيل الامور عليك اكثر وتوضيح كيفية عمل ما تريده مع وضع الاكواد والشرح التى تناسب ما تريده
تحياتى لك
وتمنياتى لك التوفيق
عندي 7 جداول مستقله كل جدول له قاعده بيانات مستقله
كل جدول له رقم مربوط به بالكمبوبكس
لما استدعي الرقم الموجود بالمبوبكس يبحث بالقاعده المربوطه به فقط
تظهر لي رساله
COMMAND TEXT WAS NOT EST FOR THE COMMAND OBJECT
الى هنا جميل
وحتى تتمكن من فعل ذلك وتجنب تلك الرسالة ستحتاج الى اتمام التالى
1- انشاء عدد
7 اكواد اتصال بقاعدة البيانات
2- انشاء عدد
7 DataTable
3- انشاء عدد
7 اكواد استعلام عن كل جدول بكل قاعدة بيانات وكل استعلام يرتبط بمعرف الاتصال بالجدول الخاص به
4- يتم ربط كل استعلام مع كل
DataTable المخصص له
بالنهاية ستقوم باستخراج نتائج الاستعلام الـ 7 الى ComboBox وبكده تكون انهيت المطلوب
ويتم ذلك من خلال For بالربط مع DataTable
اتمنى ان الشرح موضح الطريقة كاملاً وان الامور بسيطة لتنفيذ الامر
تحياتى لك
وتمنياتى لك التوفيق
بحثت وحاولت
ولكن لم استطع الوصول للمطلوب
https://up.top4top.net/downloadf-10560tmg11-rar.html
هذا رابط للمشروع فيه ثلاث جداول A1,A2,A3 اريد اختيار الجدول من الكمبوبكس
اذا اخترت A1 يقوم البرنامج بالبحث في جدول A1
اذا اخترت A2 يقوم البرنامج بالبحث في جدول A2
اذا اخترت A3 يقوم البرنامج بالبحث في جدول A3