AllExperts > Experts 
Search      

Visual Basic

Volunteer
Answers to thousands of questions
 Home · More Questions · Answer Library  · Encyclopedia ·
More Visual Basic Answers
Question Library

Ask a question about Visual Basic
Volunteer
Experts of the Month
Expert Login

Awards

About Us
Tell friends
Link to Us
Disclaimer

 
 
 
 
About Ravindra
Expertise
visual basic application programming from design to access information, sql, engineering and commercial applications. access databases, excel. Optional: 1)a large number of people want me to do work which takes some time and effort. Pl.note that i would like to be paid for such work. 2) if you want me to spend quality time and do special work, i expect to be paid a reasonable price for my time. 3) if you are pleased with my reply you could consider a donation of 1$. 4) you can visit my website http://ravindra.coolpage.biz (under constrn)

Experience

Past/Present clients
project work for a Norway company, and a Canadian company completed. Freelance Project work and Teaching
teaching vb

 
   

You are here:  Experts > Computing/Technology > Basic > Visual Basic > visual basic+ms access

Topic: Visual Basic



Expert: Ravindra
Date: 7/16/2008
Subject: visual basic+ms access

Question
hello sir..i am using vb6 and ms access..i have created a parameterized query including single parameter..the connection is through the odbc driver..but when i enter the parameter in the attached textbox no result is shown..and on giving the required parameter in its value, then the records are shown..the code written in the command button's click event is:
With DataEnvironment1
   If .rsCommand19.State = adStateOpen Then
       .rsCommand19.Close
   End If
        .command19 (Param1=text1.text)
   If .rsCommand19.RecordCount > 0 Then
       MsgBox "Found " & .rsCommand19.Fields("emp_div").Value
          
   Else
       MsgBox "No record found"
   End If
End With
Set DataGrid1.DataSource = DataEnvironment1
plz help me out..

Answer
for command of dataenvironment use this:

Select * from testable where FieldName=?

and with the form add this to a command1 clcik
if text1="" then exit sub
With DataEnvironment1
.Command1 Text1
End With
datagrid.
'the text1 should pass the value to the variable
Ravindra M.G.

Add to this Answer    Ask a Question



  Rate this Answer
   Was this answer helpful?
Not at allDefinitely              
   12345  

     
About Us | Advertise on This Site | User Agreement | Privacy Policy | Help
Copyright  © 2008 About, Inc. About and About.com are registered trademarks of About, Inc. The About logo is a trademark of About, Inc. All rights reserved.