Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 168
  • Last Modified:

SQL and dbGrid

I use a sql statement in a command button to find records by
name.  However, after the query is run, the dbGrid and my
textbox fields are limited to the record found by the query.
How do I restore the 'default settings in order to see
all the records in the table?
The sql code is provided below.

Thanks.

Private Sub Command1_Click()
Dim prompt, name
Dim SQLSTR As String
Set dbsbiblio = OpenDatabase("\vb\biblio.mdb")
prompt = "Enter Name"
name = InputBox$(prompt)
SQLSTR = ("SELECT [last],[first],[dob],[nf_name],[cmhc] " _
        & "FROM client where first = '" & name & "';")
Set datPrimaryRS.Recordset = _
 dbsbiblio.OpenRecordset(SQLSTR, dbOpenDynaset)
End Sub
0
foxsage
Asked:
foxsage
1 Solution
 
mcixCommented:
You could define a constant that has the "default" SQL statement.

In a form it would be defined like this:

Private Const DEFAULT_SQL_STATEMENT As String = "SELECT * FROM SOMETABLE"

Private Sub RESTORE_Click()
Dim prompt, name
Dim SQLSTR As String
Set dbsbiblio = OpenDatabase("\vb\biblio.mdb")
Set datPrimaryRS.Recordset = _
 dbsbiblio.OpenRecordset(DEFAULT_SQL_STATEMENT, dbOpenDynaset)

End Sub

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

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