يظهر لي الخطا  مع العلم ان البرنامج  يعمل بالشكل الصحيح
كود الاتصال

الكود:




conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\h4.accdb"


كود الاستعلام


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

عليك فعل الاتي :

وضع اسم العامود المسافة بين قوسين مربع [المسافة] أو علامتى تنصيص أحادية 'المسافة'......ثم بقم بازالة علامة " الزائدة فى الجملة التالية :

الكود:

  " + TextBox1.Text + ""

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

أهلا بيك
استبدل الجزء التالى من الكود

الكود:

" + TextBox1.Text + "

بهذا الجزء

الكود:

'" & TextBox1.Text & "'

يرجى ملاحظة التغير ...وضع علامتى تنصيص احداية ...ثم علامتى تنصيص مزدوجة مع علامتى &

زهراء كتب:عليك فعل الاتي :

وضع اسم العامود المسافة بين قوسين مربع [المسافة] أو علامتى تنصيص أحادية 'المسافة'......ثم بقم بازالة علامة " الزائدة فى الجملة التالية :

الكود:

  " + TextBox1.Text + ""

اهلا بيك [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] علامتة التنصيص تلك ليس زائدة وانما نهاية جملة الاستعلام

تحياتى لكي

غيرت الي '" & TextBox1.Text & "'

تظهر رساله
نوع البيانات غير متطابق في تعبير المعايير

السعيدي كتب:غيرت الي '" & TextBox1.Text & "'

تظهر رساله
نوع البيانات غير متطابق في تعبير المعايير

أكيييد

دة خطأ ناتج لان الكود للبحث عن قيمة نصية لكن بيانات الحقل او العامود الذى نبحث فيه قيمة رقمية ربما ولم توضح ذلك فى سؤالك ....للحل

أما تغير نو بيانات الحقل الى قيمة نصية ثم استخدام الكود أعلاه .....أو الابقاء على نوع بيانات الحقل مع استبدال الكود السابق بالكود التالى :

الكود:

' & TextBox1.Text & '

غيرت زي ما قلت ونفس الخطا
تظهر رساله
نوع البيانات غير متطابق في تعبير المعايير

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

السعيدي كتب:غيرت زي ما قلت ونفس الخطا
تظهر رساله
نوع البيانات غير متطابق في تعبير المعايير

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

اهلا بيك

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

الكود:

" & TextBox1.Text & "

اما اذا كتن نوع البيانات نص يتم استخدام الشفرة التالية :

الكود:

'" & TextBox1.Text & "'

إن لم يتم حل المشكلة فعليك رفع المشروع للتعديل علية

[size=13][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][/size]








هذا رابط للمشروع فيه ثلاث جداول A1,A2,A3 اريد اختيار الجدول  من الكمبوبكس 
اذا اخترت A1 يقوم البرنامج بالبحث في جدول A1
[size=13]اذا اخترت A2 يقوم البرنامج بالبحث في جدول A2[/size]
[size=13]اذا اخترت A3 يقوم البرنامج بالبحث في جدول A3[/size]

السعيدي كتب:[size=13][ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط][/size]








هذا رابط للمشروع فيه ثلاث جداول A1,A2,A3 اريد اختيار الجدول  من الكمبوبكس
اذا اخترت A1 يقوم البرنامج بالبحث في جدول A1
[size=13]اذا اخترت A2 يقوم البرنامج بالبحث في جدول A2[/size]
[size=13]اذا اخترت A3 يقوم البرنامج بالبحث في جدول A3[/size]

بعد اذن اخى @أحمد مناع .....اشاركم المناقشة 

سبب رسالة الخطأ التى تظهر لك فى بداية تشغيل التطبيق هو عدم وجود قيمة الشرط فى text1.txt ...فى المرة التالية يعمل البرنامج بشكل صحيح لكون القيمة ظهرت txt لذلك تم التعديل على السؤال لما قلت مع مراة وضع كمبوبوكس اخر للحصول على بيانات الحقل A لتشغيل جملة الاستعلام التى تقارن بقيمة هذا الحقل

لكن لدى سؤال لماذا تنشيء ثلاث قواعد بيانات فى كل قاعدة جدول ....الافضل ان تنشيء ثلاث الجدوال فى قاعدة واحده فقط .....على اى حال تم التعديل على مثالك بالبحث فى ثلاث جدوال فى ثلاث قواعد بيانات مختلفة على الرابط التالى :

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

تظهر عند بدايه  التششغيل

السعيدي كتب:تظهر عند بدايه  التششغيل

اتباع الخطوات التالية :

1_غير الحالة المعالج من Any CPU" الى "x86"

2_انقر بزر الماوس الأيمن على المشروع في مستكشف الحلول كما فى الصورة

الله يبارك فيك ويعطيك العافيه والصحه
اشتغل معاي 
بس موهذا الطلوب 
يكون في المشروع كمبوبكس واحد تختار به الجدول المطلوب 
 وعمود A  في الجدول يتم استخراجه بعمليه حسابيه وهذه العمليه موجوده وهي حرف D 
فاذا كان الناتج 2000 ياخذ صف 2000 كامل ويعبي التكس بوكس

السعيدي كتب:الله يبارك فيك ويعطيك العافيه والصحه
اشتغل معاي 
بس موهذا الطلوب 
يكون في المشروع كمبوبكس واحد تختار به الجدول المطلوب 
 وعمود A  في الجدول يتم استخراجه بعمليه حسابيه وهذه العمليه موجوده وهي حرف D 
فاذا كان الناتج 2000 ياخذ صف 2000 كامل ويعبي التكس بوكس

على الرحب و السعة 

تم انشاء ثلاث جدوال فى قاعدة بيانات واحدة ....وليس فى ثلاث قواعد بيانات 

الله يجزاك خير 
سؤال بسيط  الربط يكون للجدول الرئيسي او للجداول التي بالداخل

السعيدي كتب:الله يجزاك خير 
سؤال بسيط  الربط يكون للجدول الرئيسي او للجداول التي بالداخل

اهلا بيك

السؤال غير واضخ لى ..... لكن الربط باى جدول تريد انت الذى تحدد ؟

بعد اذن اخى @أحمد مناع .....اشاركم المناقشة

اهلا بيك أخ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] يشرفنى وجود و مشاركتك بل نتمي ذلك من جميع الاعضاء ....فشكر لك على ما قدمته للاخ السائل

أخي [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] لو لم ترفع مشروعك لــ مالزلنا نبحث عن الخطا فى جملة الاستعلام ...لكن الخطأ كان موجود فى الشرط اللى حضرتك استخدمته فى الاستعلام ....فرفع المشروع سهل العثور على الخطأ

الكود:

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

الكود:

        If ComboBox1.Text = "" Then

الكود:

            MsgBox("يجب أن تختار الجدول الذى سيتم البحث فيه")
            Exit Sub
        Else
            Dim N11, N12, N13, N14, N20, N21, N22, k1 As Long
            Dim A, B, C, D, f, G As Integer
            Math.Atan(A)
            Math.Abs(A)
            Math.Sqrt(D)
            N11 = Val(TextBox11.Text)
            N12 = Val(TextBox12.Text)
            N13 = Val(TextBox13.Text)
            N14 = Val(TextBox14.Text)
            N20 = Val(TextBox20.Text)
            N21 = Val(TextBox21.Text)
            N22 = Val(TextBox22.Text)

الكود:

            k1 = 180 / 3.14159265358979 * 17.7777777777778
       Select Case ComboBox1.SelectedIndex
                Case 0
                    sqw = "select * from A1 where A = " & TextBox1.Text & ""
                    cas1()

الكود:

                Case 1
                    sqw = "select * from A2 where A = " & TextBox1.Text & ""
                    cas1()

الكود:

                Case 2
                    sqw = "select * from A3 where A = " & TextBox1.Text & ""
                    cas1()
                 
                Case 3
                    sqw = "select * from A4 where A = " & TextBox1.Text & ""
                    cas1()

الكود:

                Case 4
                    sqw = "select * from A5 where A = " & TextBox1.Text & ""
                    cas1()

الكود:

                Case 5
                    sqw = "select * from A6 where A = " & TextBox1.Text & ""
                    cas1()

الكود:

                Case 6
                    sqw = "select * from A7 where A = " & TextBox1.Text & ""
                    cas1()

الكود:


            End Select

الكود:

        End If

الكود:

 
    End Sub
    Private Sub cas1()

الكود:

        conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\A1.accdb"
        conn.Open()
        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText = sqw
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
                TextBox1.Text = re(0).ToString
                TextBox2.Text = re(1).ToString
                TextBox3.Text = re(2).ToString
                TextBox4.Text = re(3).ToString
                TextBox5.Text = re(4).ToString
                TextBox6.Text = re(5).ToString
                TextBox7.Text = re(6).ToString
                TextBox8.Text = re(7).ToString
                TextBox9.Text = re(8).ToString
                TextBox10.Text = re(9).ToString

الكود:

            Else
                MsgBox(" غير موجود")

الكود:

            End If

الكود:

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

الكود:

        conn.Close()

الكود:


    End Sub

هل كتابه الكود صحيحه 
عندي اسم قاعدة البيانات A1
وتحتوي علي A1.A2.A3.A4.A5.A6.A7
انا عملت ربط DATA SUORCES للجدول الرئيسي A1
وعند التشغيل يخرج هذا الخطا

اشكرك اخ [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] مناع
وشكر خاص للاستاذ @المبرمج الطموح

السعيدي كتب:

عادة يظهر هذا الخط عند كتابة أحد الأعمدة في جدول قاعدة البيانات او جملة الاستعلام بشكل غير صحيح كان يتم كتابة اسم العامود فى جدول البيانات A1 و مكتوب فى جملة الاستعلام A11 أو العكس .....أو يكون اسم الجدول في قاعدة البيانات مخالف لاسم الجدول فى جملة الاستعلام

لذلك الحل :
هو التدقيق فى أسماء الحقول فى قاعدة البيانات و جملة الاستعلام مرة أخرى وتأكد من أنها مطابقة بشكل صحيح.

عندي اسم قاعدة البيانات A1
وتحتوي علي A1.A2.A3.A4.A5.A6.A7

هل الجداول A1.A2.A3.A4.A5.A6.A7 لا بد من عمل ارتباط لكل واحد علي حده او يكفي الارتباط الحاصل في الجدول الام A1

السعيدي كتب:عندي اسم قاعدة البيانات A1
وتحتوي علي A1.A2.A3.A4.A5.A6.A7

هل الجداول A1.A2.A3.A4.A5.A6.A7 لا بد من عمل ارتباط لكل واحد علي حده او يكفي الارتباط الحاصل في الجدول الام A1

ان كان بالامكان تصوير الجدوال تلك من داخل قاعدة البيانات؟ وحدد لى ماذا تقصد بالجدوال الام ؟

تحياتى

طيب حاول تغير اسم قاعدة البيانات A1 باسم مخالف لاي اسم للجدوال الذى تحتويها ....لاني شايف اسم قاعدة البيانات A1 و تحتوي على جدول بنفس الاسم A1 او غير اسم الجدول ....جرب و اخبرني

السعيدي كتب:

اراتيك لم يتم العثور على جدول باسم B1 انت كاتب كود للبحث فى جدول B1 وهو غير موجود بقاعدة البيانات

السعيدي كتب:

اذا كنت تستخدم الشفرة التالية كما قلت

الكود:


conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\A1.accdb"
        conn.Open()

فى حين قاعدة البيانات تسمي B1 كما فى الصورة



فاكيد لازم يظهر الخطأ ...لانك لو قرات الكود ستاجد أنه للاتصال بقاعدة بيانات تسمي A1.accdb فى حين ان قاعدة بيانات مشروعك B1 ....لذلك غير الكود

لما غيرت اسم الجدول غيرت اسم منA1.accdb الي B1.accdb في قاعد البياات

لما غيرت اسم الجدول غيرت اسم منA1.accdb الي B1.accdb في قاعد البياات

أهلا بيك [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] ...ز الافضل رفع المثال للتعديل و التعرف على سبب الخطأ بسهولة 

تحياتى

لقيت الخطا وانحلت المشكلة
اشكر كل  من ساعدني 
والله لايحرمكم  الاجر 
و الله يعلي شانكم