Error de compilación.
Publicado por marcos (8 intervenciones) el 18/06/2004 15:54:04
Buenos días.
Tengo el siquiente código con el que pretendo, mostrar los resultados de una búsqueda en una base de datos usando un control adodc. De forma que muestre los resultados en un flexgrid. Pero me genera el siguiente error."Error de compilación. No se encontro el origen o miembro de datos". Y es algo de esperar ya que, anteriormente estaba usando un Control data, en donde con la propiedad database uno puede seleccionar la base de datos vinculada. Pero en este caso no existe tal propiedad. COmo puedo hacer para eliminar este error ?
Adodc1.Recordset.FindFirst "Nombre='" & Text4.Text & "'" 'Busca el primer registro del campo nombre con el nombre que indiquemos en la caja de texto text4
Adodc1.Recordset.NoMatch Then 'si no encuentra ningún registro coincidente
MsgBox ("No se encuentra el nombre:" & Text4.Text)
Else
'Set DBGrid1 = Data1.Recordset
Text5.Text = adodc1.Recordset!Nombre 'Coloca el registro del campo apellido que se corresponda con el legajo indicado en la caja de texto text5
Mshflexgrid.DataSource = Data1.Recordset!Nombre
End If ' Cierra el If indicado en NoMatch
Gracias, a cualquier sugerencia
Tengo el siquiente código con el que pretendo, mostrar los resultados de una búsqueda en una base de datos usando un control adodc. De forma que muestre los resultados en un flexgrid. Pero me genera el siguiente error."Error de compilación. No se encontro el origen o miembro de datos". Y es algo de esperar ya que, anteriormente estaba usando un Control data, en donde con la propiedad database uno puede seleccionar la base de datos vinculada. Pero en este caso no existe tal propiedad. COmo puedo hacer para eliminar este error ?
Adodc1.Recordset.FindFirst "Nombre='" & Text4.Text & "'" 'Busca el primer registro del campo nombre con el nombre que indiquemos en la caja de texto text4
Adodc1.Recordset.NoMatch Then 'si no encuentra ningún registro coincidente
MsgBox ("No se encuentra el nombre:" & Text4.Text)
Else
'Set DBGrid1 = Data1.Recordset
Text5.Text = adodc1.Recordset!Nombre 'Coloca el registro del campo apellido que se corresponda con el legajo indicado en la caja de texto text5
Mshflexgrid.DataSource = Data1.Recordset!Nombre
End If ' Cierra el If indicado en NoMatch
Gracias, a cualquier sugerencia
Valora esta pregunta
0