"Syntax error in FROM clause"

[Richard Alvarez]

good day guys, please help me with this code that i have. i'm having a "Syntax error in FROM clause" error. Here is my code, any help is much appreciated. Thank you in advance.

 Dim strSQL As String = "Select * from " & Trim(cboID.Text)
Dim rsData as ADODB.Recordset
 
If rsData.State = ConnectionState.Open Then rsData.Close()
rsData.Open(strSQL, DBConn, ADODB.CursorTypeEnum.adOpenKeyset, _
ADODB.LockTypeEnum.adLockPessimistic)

[Rabbit]

I have no idea what cboID.Text is. Did you output the string to make sure it's correct? If your table has spaces, you need to use the square bracket qualifiers.

[Richard Alvarez]

thank you so much for the quick reply sir, you've proven yourself a great help even on the first time that I ask question on this forum. cboID.text gives users the previledge to select what table he/she would use.

[Rabbit]

Did you output the query string to see if it's correct? What are these table names?

[Richard Alvarez]

yes i did and i did also try to assign a variable to hold the query string but still no luck.

[Rabbit]

What are these table names?

[Richard Alvarez]

table names are created by the user at runtime.

Dim sql As String = "CREATE TABLE " & txtTabelName.text & "
    (StudentId INTEGER CONSTRAINT PkeyMyId PRIMARY KEY,"
    + "Name CHAR(50), Address CHAR(255), Contact INTEGER)"
 
    cmd = New OdbcCommand(sql, conn)
 
    cmd.ExecuteNonQuery()

[Rabbit]

Read this and post the results: http://bytes.com/topic/access/insigh...bug-sql-string

Also, I noticed you have DBConn in your code but it's not defined anywhere.

[Richard Alvarez]

That was my mistake, the code that I posted was just a part of the private sub. Here's the whole code:

Private Sub cboID_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboID.Click
        Try
            Dim rsData As New ADODB.Recordset
            Dim ListUsers As New ListViewItem
 
            If rsData.State = ConnectionState.Open Then rsData.Close()
            rsData.Open("Select * from '" & cboID.Text & "'", DBConn, _
                        ADODB.CursorTypeEnum.adOpenKeyset, _
                        ADODB.LockTypeEnum.adLockPessimistic)
 
            lvExmView.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
            lvExmView.Items.Clear()
 
            Do Until rsData.EOF
                ListUsers = lvExmView.Items.Add(rsData.Fields("ID").Value)
                ListUsers.SubItems.Add(rsData.Fields("Question").Value)
                ListUsers.SubItems.Add(rsData.Fields("A").Value)
                ListUsers.SubItems.Add(rsData.Fields("B").Value)
                ListUsers.SubItems.Add(rsData.Fields("C").Value)
                ListUsers.SubItems.Add(rsData.Fields("D").Value)
                ListUsers.SubItems.Add(rsData.Fields("Ans").Value)
                rsData.MoveNext()
            Loop
            'lvExmView.AutoResizeColumns(ColumnHeaderAutoResizeStyle.ColumnContent)
 
        Catch ex As Exception
            MsgBox(Err.Description & vbNewLine & vbNewLine & _
                Err.Number & " " & Err.Source, MsgBoxStyle.Critical, "Error")
            Err.Clear()
        End Try
    End Sub

[Richard Alvarez]

DBConn is a public declared variable (Public DBConn as ADODB.Recordset )

I same thing that I first use to debug my code is to use a messagebox to dispplay the real value of the string. I even tried this

Dim strSQL as string
 
strSQL= Chr(34) & "Select * from " & cboID.text & Chr(34)
msgbox(strSQL)

and got this output "Select * from TableName" with the quotes but still the same error goes in.