[RESOLVED]SQL statement in VB and databinding for FlexGrid

[Raing]

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.

[Raing]

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.

[Raing]

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?

[Ember]

Welcome, Raing!

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

"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'".

[Raing]

The problem is solved.

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

[Ember]

Edited!