Problema con DATAGRID
Publicado por Fernando (18 intervenciones) el 20/09/2002 19:33:48
Rectifico, el control es DATAGRID
Hola,
Después de haberme mirado todas las preguntas del foro relativas a mi tema en cuestión sigo sin poder solucionarlo, asi que lanzo la pregunta a ver si me puede ayudar alguien.
Tengo un formulario con unos textbox en los que introduzco unos parámetros de busqueda, y al pulsar al botón pretendo que esos parametros de busqueda me aparezcan en un datagrid. PROBLEMA: el datagrid no se rellena. NOTAS: no utilizo ADODC, sino que asigno el recordset al datasource por codigo, y luego le pongo el refresh correspondiente. ¿que ocurre aqui? Os adjunto codigo:
cons = "SELECT * FROM titulares where NIF like '" & txtNIF & "' or nif_ctrl like '" & txtNIF_ctrl & "' or Nombre like '" & txtNombre & "' or Nombre_via like '" & txtNombre_via & "'"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.CursorLocation = adUseClient
rst.Open cons, cnn, adOpenDynamic, adLockOptimistic
rst.MoveFirst
If Not rst.EOF Then
RejTitular.DataMember = cnn
Set RejTitular.DataSource = rst
RejTitular.Visible = True
RejTitular.Refresh
Else: MsgBox "No se han encontrado datos que cumplan tales criterios"
End If
Hola,
Después de haberme mirado todas las preguntas del foro relativas a mi tema en cuestión sigo sin poder solucionarlo, asi que lanzo la pregunta a ver si me puede ayudar alguien.
Tengo un formulario con unos textbox en los que introduzco unos parámetros de busqueda, y al pulsar al botón pretendo que esos parametros de busqueda me aparezcan en un datagrid. PROBLEMA: el datagrid no se rellena. NOTAS: no utilizo ADODC, sino que asigno el recordset al datasource por codigo, y luego le pongo el refresh correspondiente. ¿que ocurre aqui? Os adjunto codigo:
cons = "SELECT * FROM titulares where NIF like '" & txtNIF & "' or nif_ctrl like '" & txtNIF_ctrl & "' or Nombre like '" & txtNombre & "' or Nombre_via like '" & txtNombre_via & "'"
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.CursorLocation = adUseClient
rst.Open cons, cnn, adOpenDynamic, adLockOptimistic
rst.MoveFirst
If Not rst.EOF Then
RejTitular.DataMember = cnn
Set RejTitular.DataSource = rst
RejTitular.Visible = True
RejTitular.Refresh
Else: MsgBox "No se han encontrado datos que cumplan tales criterios"
End If
Valora esta pregunta


0