• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 263
  • Last Modified:

VB SQL

I am familiar with SQL in Visual Foxpro. Obviously SQL in VB is a little different!   Where do I put a SQL statement (other than the recordsource property of a data control)that will return results to a flex grid? (I would rather not use debug.print to show the results). I would also like to allow the user, I guess through seek, to determine the search variable.

Thanks!
0
foxsage
Asked:
foxsage
1 Solution
 
wfordCommented:
You can set the sql statment thru the openrecordset method and assign to a recordset, then assign this recordset to the flexigrids bound data control and there you go...

Dim Sqlstr As String, userInput As String
Dim yourRS As Recordset
Dim yourDB As Database
Dim ws As Workspace

Set ws = Workspaces(0)
Set yourDB = ws.OpenDatabase(Data1.DatabaseName)
 
userInput = "VW"

Sqlstr = "SELECT * FROM yourtable Where YourCriteria = '" & Trim$(userImput) & "*'"
Set yourRS = yourDB.OpenRecordset(Sqlstr, dbOpenDynaset)

'now set your data control to this rs then voila!

Set Data1.Recordset = yourRS
0
 
coggieCommented:
Hi there,

Is this any help:-

Set qry = CurrentDB.CreateQueryDef("", "Select * from <TableName>")

rather than use seek use find first after the previous line like this:-

Set rst = qry.OpenRecordset()
With rst
 .FindFirst ("UserName = '" & sUserNameEntered & "' AND UserPWD = '" & sPasswordEntered & "'")

hope this helps

Regards,

Coggie
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now