Visual Basic - ing electricista

Life is soft - evento anual de software empresarial
   
Vista:

ing electricista

Publicado por Jhon edison (1 intervención) el 16/01/2009 17:36:04
Necesito realizar una consulta a una base de datos de acces y lo estoy haciendo desde visual para verla en una list view pero toma los campos de la bd como variables no definida

este es el codigo que estoy utilizando.

Private Sub cmdLiquidacion_Click()
Dim fliquidacion As String, consulta As String, It As ListItem, I As Byte
Set Dt = OpenDatabase("D:mksoftd1.mdb")

listMedidor.ListItems.Clear


fliquidacion = InputBox("Introduzca la fech en el formato dd/mm/año")

consulta = "select * from Medidor where Fecha = fliquidacion"
Set Rc = Dt.OpenRecordset(consulta)

Rc.MoveFirst

Do While Not Rc.EOF
Set It = listMedidor.ListItems.Add
It.Text = !Num
It.SubItems(1) = !TiPodeEvento
It.SubItems(2) = !Fecha
It.SubItems(3) = !Hora
It.SubItems(4) = !Potencia
It.SubItems(5) = !EnergiaActiva
It.SubItems(6) = !EnergiaReactiva



Rc.MoveNext

Loop


End Sub
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:ing electricista

Publicado por P3L30N2009 (701 intervenciones) el 16/01/2009 18:13:03
¿Y qué tiene que ver el asunto del tema con lo que preguntas?

consulta = "select * from Medidor where Fecha = #" fliquidacion & "#"
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