Solved

Finding records in a DGrid using parameters from access table

Posted on 2002-07-20
4
165 Views
Last Modified: 2010-05-02
I am a kenyan who is new in vb, and i have had this particular problem. I want to connect to an access table with parameters and allow the  user to find records by entering His/her paramerters from  a form.
Just how can I do that?
(SOME CODE MIGHT HELP)
NOTE: I AM USING ADO CODE.
0
Comment
Question by:sammyquest85
  • 2
4 Comments
 

Expert Comment

by:paulll
ID: 7168327
I'm not clear on the question but it sounds like you just need to know when criteria is specified.

Example:
A form that has searching on customer, city and state.

The form would have text boxes TxtCustomer, TxtCity and TxtState.

When user presses an OK button to do the search, use the following code.

Dim SqlString as String, ValType as String, temp as String

SqlString = "SELECT * FROM TableName WHERE Customer IS NOT NULL"
If Len(TxtCustomer) Then
    temp = TxtCustomer
    ValType = GetValType(temp)
    SqlString = SqlString & " AND Customer ValType '" & TxtCustomer & "'"
End If
If Len(TxtCity) Then
    temp = TxtCity
    ValType = GetValType(temp)
    SqlString = SqlString & " AND City ValType '" & TxtCity & "'"
End If
If Len(TxtState) Then
    temp = TxtState
    ValType = GetValType(temp)
    SqlString = SqlString & " AND State ValType '" & TxtState & "'"
End If

You could also do date ranges using the "BETWEEN" reserved word for 2 text boxes.

Function GetValType(ByVal temp As String) As String
'You could use a check box with a value of 1 to do searches of "LIKE" and
'put your own percent signs before and after the values in the text box criteria
If Instr(temp, "%") Then
    GetValType = "LIKE"
Else
    GetValType = "="
End If
End Function

0
 

Accepted Solution

by:
paulll earned 50 total points
ID: 7168331
A mistake in above code
It should be SqlString = SQLString & " AND FieldName " & ValType & "'" & temp & "'"
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 8031899
Hi sammyquest85,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will ask a Community Support Moderator to:

    Accept paulll's comment(s) as an answer.

sammyquest85, if you think your question was not answered at all or if you need help, just post a new comment here; Community Support will help you.  DO NOT accept this comment as an answer.
==========
DanRollins -- EE database cleanup volunteer
0
 

Expert Comment

by:SpideyMod
ID: 8095543
per recommendation

SpideyMod
Community Support Moderator @Experts Exchange
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

867 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now