[RESOLVED]SQL statement in VB and databinding for FlexGrid

How do I use SQL statement inside VB? What's the syntex for that? I am trying to do the samething as in Access with query and then put the output data table inside a MSFlexGrid. I am using VB6, Access 2002, and MSFlexGrid 6.0.

Am I able to do a databind with the output table from the query? If so, how?

thank you in advance.

DataGrid should work fine in this case too. It doesn't have to be FlexGrid. The databind should work the same for both I think.

Data1.Database.Execute "select " & TableName & "." & CheckedColumns(1) & " from " & TableName & " where " & TableName & "." & CheckedColumns(1) & " = ""04TC0052"" "

when I run this, it gave me error message that can't excute select. Any ideas what is wrong with this?

:wave: Welcome, Raing!

You start making a connection to your database. May be that's already taken care of?

Code:

---

"select " & TableName & "." & CheckedColumns(1) & " from " & TableName & " where " & TableName & "." & CheckedColumns(1) & " = ""04TC0052"" "

---

In the above code CheckedColumns(1) must be identical with the field in database with table named what TableName is. This looks to be better like: "'04TC0052'".

The problem is solved.

Code:

---

Public Sub SearchDB() 
 Dim str As String
    str = "select " & TableName & "." & CheckedColumns(1) & " from " & TableName & " where " & TableName & "." & CheckedColumns(1) & " = ""04TC0052"" "
    'Data1.Database.CreateQueryDef "test", str
    'Data1.Database.Execute
    'Data1.Recordset = str
    Data1.RecordSource = str
    Data1.Refresh
   
End Sub

---

I used Data1.Recordset = str rather than Data1.RecordSouce.

Thank you Ember.

Merry Christmas!!!
:)

Raing

Edited!