hi dears:) i'm new here, i'm doing a softwaer for my company and i have an adodc control attached to some text fields, one of the text fields(ex:location)may have more than one value with the same name and my company askd me to make it as follow:

when u type in the location field and press enter it should check if the value in the field exisit more than onece if it dose it should cralte a flexgrid to show the records of the search key location which they r more than one. but if it is one only its easy it come by it self.

my code is:

Private Sub Text3_KeyPress(KeyAscii As Integer)

Dim i
If KeyAscii = 13 Then
Dim SQL As String
''Adodc1.Recordset.Update
'This specifies the SQL to be executed
SQL = "select * from PPD where location='" & Text3.Text & "'"
'This specifies that the type of the ADODC is for SQL
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = SQL
Adodc1.refresh
If Adodc1.Recordset.RecordCount > 1 Then

''Adodc1.Recordset.MoveFirst

MsgBox "THIS LOCATION NO. CONTAINS MORE THAN ONE RECORD DO YOU WANT TO SEE ? "

''Adodc1.Recordset.MoveLast
Do Until Adodc1.Recordset.EOF
Set frmppdsame.grdvalues.DataSource = Adodc1

Adodc1.Recordset.MoveNext

Loop
End If
'This assigns the SQL result to the ADODC


End If
End Sub

i know its wrong..cos i dont know how to join the adodc with the flexgrid. and pls show how to it it in data grid to.
sorry for the long article.

hi there...

since you are using ado, your record count will never be > 1 ;) Recordcount is 0 or 1 depends if you have or not have records...

try taking out that and see what happend.. the code doesn't look bad (at least at the fly)....

HTH

Gonzalo

i removed it and also canged it to 1..nothing happens but when i removed it it gave me this error: error '91'! pls if u can just exlan for me how to do it.. and try to fix my code..

where did you receive the error 91???

unless I miss something, the do until can be removed, too...

this line
bind the grid to the recordset... also do a refresh in the grid...

also: do you have key preview in true?? to catch every key stroke, but it a bad idea to fill the grid that way, you will requery the table in every key stroke!

HTH

Gonzalo

thanx..for ur patients..

the error is in the same line Set frmppdsame.grdvalues.DataSource = Adodc1,what do u mean by key prewview in quarry!

ok.. breath.. let's go slow here..

are you using a datagrid?? or a flexgrid?? why not use the datagrid if you are binding it to a data control??
the key press event fires every time the user press a key but if the control doesn't have a key press event itself, if so you have to put in true the keypreview property of the form.

you are in VB 6, aren't you???




HTH

Gonzalo

no it dose have a keypress...! its a text field! and its ok for me to use the datsagird as long as satisfies my need but i dont know the coding..and how to bound i tried the same thing set formname.datagri1.datasource= adodc1 and it didnt worked:(