مشكلة فى الإستعلام - نسخة قابلة للطباعة

مشكلة فى الإستعلام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : مايكرسوفت أكسيس Microsoft Access (http://vb4arb.com/vb/forumdisplay.php?fid=170)
+--- الموضوع : مشكلة فى الإستعلام (/showthread.php?tid=7247)

مشكلة فى الإستعلام - Mido9 - 05-12-12

السلام عليكم

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

و جربت هذا الكود

PHP كود :

Try
            Dim saveinto As New OleDb.OleDbCommand
            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn As New OleDb.OleDbConnection(constr)
            Dim DataSet1 As New DataSet
            Dim SQLstr As String
            SQLstr = "SELECT * FROM user Where pass=('" & TextBox2.Text & "')"
            conn.Open()
            Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
            dataadapter1.Fill(DataSet1, "user")

            If Me.BindingContext(DataSet1, "user").Count = 0 Then
                MsgBox("No")
            Else
                MsgBox("Yes")
            End If
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 

و لكن عند التنفيذ يظهر لي

PHP كود :

Syntax error in FROM clause 

ياريت لو تعرفوني اين المشكلة .؟

RE: مشكلة فى الإستعلام - معاند الحظ - 28-11-19

اتوقع ان الخطأ بسبب عدم كتابة الفاصلة المنقوطة في السطر التالي

كود :

SQLstr = "SELECT * FROM user Where pass=('" & TextBox2.Text & "')"

اضف الفاصلة الى نهاية جملة الاستعلام

كود :

SQLstr = "SELECT * FROM user Where pass=('" & TextBox2.Text & "');"

مجرد تخمين

RE: مشكلة فى الإستعلام - حريف برمجة - 28-11-19

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

اسم الجدول من الكلمات المحجوزة في الاكسس user

حاول الابتعاد قدر الإمكان عن الكلمات المحجوزة او ضع اسم الجدول بين [] ليصبح كالتالي :

[user]
أيضا يمكنك تطبيقها حتى على أسماء الحقول .

واحذف الاقواس التي بعد اسم الحقل :

pass = ('" & TextBox2.Text & "')

ليصبح كالتالي :

pass = '" & TextBox2.Text & "'