ayuda con consulta
Publicado por viqui (1 intervención) el 21/11/2005 01:12:58
alguien podria decirme donde tengo el error, porque me tira que se necesita un objeto,
este codigo es de una caja de texto, y lo unico que me deja mostrar en los labes es el nombre y el apellido,la tabla ventas esta relacionada con clientes y articulos
elcero = Len(txtid.Text)
If elcero = 1 And txtid.Text = "0" Then
txtid.Text = ""
End If
If Not txtid.Text = "" Then
Set rscargar = db.Execute("SELECT ventas.idventa, ventas.fecha, articulos.Tipo, articulos.Talle, articulos.Marca, articulos.sexo, articulos.cantidad, articulos.pcosto, articulos.pventa, clientes.Apellido, clientes.Nombre, clientes.direccion, clientes.dni, clientes.debe FROM (ventas INNER JOIN articulos ON ventas.idarticulo = articulos.idarticulo) INNER JOIN clientes ON ventas.idcliente = clientes.idcliente where idventa = " & txtid.Text & " ")
If txtid.Text = rscargar.EOF Then
rscargar.Close
Else
Llbid.Caption = rscargar!idventa
Llbdni.Caption = rscargar!dni
lblnombre1.Caption = rscargar!apellido & ", " & rscargar!nombre
'Llbtipo.Caption = rscargar!Tipo
'Llbprecio.Caption = rscargar!pventa
rscargar.Close
End If
End If
este codigo es de una caja de texto, y lo unico que me deja mostrar en los labes es el nombre y el apellido,la tabla ventas esta relacionada con clientes y articulos
elcero = Len(txtid.Text)
If elcero = 1 And txtid.Text = "0" Then
txtid.Text = ""
End If
If Not txtid.Text = "" Then
Set rscargar = db.Execute("SELECT ventas.idventa, ventas.fecha, articulos.Tipo, articulos.Talle, articulos.Marca, articulos.sexo, articulos.cantidad, articulos.pcosto, articulos.pventa, clientes.Apellido, clientes.Nombre, clientes.direccion, clientes.dni, clientes.debe FROM (ventas INNER JOIN articulos ON ventas.idarticulo = articulos.idarticulo) INNER JOIN clientes ON ventas.idcliente = clientes.idcliente where idventa = " & txtid.Text & " ")
If txtid.Text = rscargar.EOF Then
rscargar.Close
Else
Llbid.Caption = rscargar!idventa
Llbdni.Caption = rscargar!dni
lblnombre1.Caption = rscargar!apellido & ", " & rscargar!nombre
'Llbtipo.Caption = rscargar!Tipo
'Llbprecio.Caption = rscargar!pventa
rscargar.Close
End If
End If
Valora esta pregunta


0