Programación General > Visual Basic 6.0 e inferiores

 Re: Rellenar un datagrid con los resultados de una consulta

<< < (2/3) > >>

mluqero:
Muchas gracias por contestarme tan pronto pero, angelescj, tengo una pregunta
Que componente se supone que es dteDatos?

Gracias por todo:ayuda:

angelescj:
Perdona es que hice "corta y pega" de un código mío y no me di cuenta. El elemento dteDatos es de tipo DataEnvironment.
Te envío dos ejemplos, la carpeta "Datagrid1" enlaza por código el datagrid a un control Adodc, y "datagrid2" lo hace a través de un Dataenvironment.
Los dos son válidos, pero es mejor y más recomendable el del Dataenvironment.
Si tienes alguna duda avisa.
La base de datos está en el directorio por defecto, así que abre los proyectos haciendo doble click en el *.vbp

:suerte:

mluqero:
Sigo sin conseguirlo. El codigo que tengo puesto es el siguiente:
MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO = " '& Me.txtRegistro.Text
'ENTRADAS es la tabla de la BD que quiero consultar

RSAux.RecordSource = MICAD
RSAux.Refresh
Set dtgResultados.DataSource = RSAux
dtgResultados.Refresh

Me da un error en la clausula FROM

Necesito ayuda!!!!!:ayuda:

angelescj:
Si "registro" no es numérico en la BD la cláusula sería:
MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO='" & Me.txtRegistro.Text & "'"
(Entre comillas simples y sin ningún espacio enblanco en el "=" del where).
Si es numérico:

MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO=" & Me.txtRegistro.Text
(Sin comillas simples y sin ningún espacio enblanco en el "=" del where.
Si es numérico:
Espero que te sirva.
Por cierto el refresh del datagrid no es necesario.
:suerte:

mluqero:
Me sigue dando el error de sintaxis en la clausula FROM. El codigo exacto del bloque donde se incluye es el siguiente. Os lo pongo para ver si veis algo raro.
If Me.txtRegistro.Text = BUSCAR Then
   BUSCADO = Adodc1.Recordset.Bookmark
   Text4.Text = Adodc1.Recordset.Bookmark
   RSAux.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Mis documentosControl de cartasEntrada2003EntradaCOEBA2003.mdb;Persist Security Info=False"
   MICAD = "SELECT * FROM ENTRADAS WHERE REGISTRO='" & Me.txtRegistro.Text & "'"
   RSAux.RecordSource = MICAD
   Set dtgResultados.DataSource = RSAux
End If

En la BD el campo REGISTRO no es numerico, es texto. ENTRADAS es la unica tabla que tiene la BD.

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior