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

+- منتدى فيجوال بيسك لكل العرب (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(SQLstrconn)
            
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 & "'