Visual Basic para Aplicaciones - Base de Datos

Life is soft - evento anual de software empresarial
 
Vista:

Base de Datos

Publicado por Jorge Alonso (6 intervenciones) el 29/05/2001 22:59:03
Tengo una Aplicacion en Visual Basic con Acceso a base de datos en Microsoft Access. Necesito Realizar una consulta con parametros intoducidos por el usuario,

Tengo una Tabla Personales con los siguientes campos:
-Expediente, Nombre, Direccion, ...

Necedito Realizar una consulta con parametros que sean introducidos
por el usuario. Lo estoy realizando con ciertos controles enlazados como textbox a un control Data, para esto estoy utilizando la propiedad Recordsource para poder realizar una Clausula Sql.

El problema es el siguiente:

dim Expe as string

Expe = inputbox ( "Expediente":)

Data1.Recordsource = "Select * " & _
"From Personales " & _
"Where Personales.Expediente = Expe "
Data1.Refresh

En la Clausula Where manda un error por que el Criterio a encontrar en este caso (Expe) esta escrito sin apostrofos. ( ' Expe ' )

Como puedo realizar esta consulta sin necesidad de poner los Apostrofos a la consulta utilizando el control Data y su Propiedad Recordsource, es Decir:

" Where Personales.Expedinte = Expe "
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Base de Datos

Publicado por juan vicente (2 intervenciones) el 30/05/2001 16:07:00
Prueba con esto:
Data1.Recordsource = "Select * " & _
"From Personales " & _
"Where Personales.Expediente = " & Expe
Data1.Refresh
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Base de Datos

Publicado por Jacobo (2 intervenciones) el 12/07/2001 14:35:31
Prueba con esto:
Data1.Recordsource = "Select * " & _
"From Personales " & _
"Where Personales.Expediente = '" & Expe & "'" (El apostrofe va antes de las comillas y al final entre comillas)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar