border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

Cuenta Bancaria en EEUU

Retroceder   VB-MUNDO - Programacion Visual > Programacion - Lenguajes > Visual Basic 6.00
Registrarse FAQ Miembros Calendario Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
LinkBack Herramientas Desplegado
  #1 (permalink)  
Antiguo 28-05-2008, 06:18:19
Un Nuevo Amigo
 
Registrado: may 2008
Posts: 7
huschir Aun no valorado
Exclamation Programa ventas falla con listbox

que tal estoy haciendo un formulariod e ventas en el cual lo q quiero esq mande de la BD a una lista articulos con sus precios, pero esto si cumple la condicion de que sea de una seccion es especifico que viene en la misma tabla
asi esta mi tabla
nomart precio cvesecc
jabon --- ss01
xx ... ss02
asi como 49 articulos
lo quiero es que si es de la seccion ss01 ponga solo esos articulos con sus percios en una listbox. como puedo solucionar esto.
despues de esto pienso acer que al darle doble clic en la list box mande el articulo y el precio a una textbox ya para asi hacer los calculos requeridos
agradeceria mucho su ayuda
llevo varios dias intetnando solucionar esto
Responder Con Cita
  #2 (permalink)  
Antiguo 28-05-2008, 08:22:41
Buena Participación en el Foro
 
Registrado: mar 2007
Posts: 73
beñat Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Nose si e entiendido bien, pero si lo que quieres es que te muetre en una lista los de una seccion determinada, lo que tienes que hacer es recorrer la base de datoy poner la condicion, suponiendo que tengas asi la bd.

if recordset.field(2)='La que tu quieras' then
list1.additem = normat &vbtab & precio
end if
recorset.movenext

solo con eso ya tendrias en el listbox los articulos de la seccion que tu quieras, luego para mostrar en un textbox lo que acabas de seleccionar esta la propiedas list1.text.Espero habert ayudado.
Un saludo
Responder Con Cita
  #3 (permalink)  
Antiguo 28-05-2008, 09:43:40
Buena Participación en el Foro
 
Registrado: ene 2005
Posts: 77
khoby Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Cita:
Empezado por beñat Ver Mensaje
if recordset.field(2)='La que tu quieras' then
list1.additem = normat &vbtab & precio
end if
recorset.movenext

solo con eso ya tendrias en el listbox los articulos de la seccion que tu quieras, luego para mostrar en un textbox lo que acabas de seleccionar esta la propiedas list1.text.Espero habert ayudado.
Un saludo
Yo más que al texto del item, me referiría a su propiedad listindex, de modo que:

list1.additem campo o campos a insertar
list1.itemdata(list1.newindex) = codigo del producto por ejemplo

Luego lo rescataremos tal que así:

codigo=list1.selecteditem(list1.listindex)

Despues con el código pues ya recuperarías los datos y los mostrarías.

Ahora despues de escribir esto, creo que lo más recomendable para hacer esto sería usar una listview. Te da mucho más juego a la hora de insertar varios campos en una lista, y queda mucho más bonita.
Responder Con Cita
  #4 (permalink)  
Antiguo 29-05-2008, 00:11:14
Un Nuevo Amigo
 
Registrado: may 2008
Posts: 7
huschir Aun no valorado
Predeterminado Re: Programa ventas falla con listbox

q tal amigo pero aun sigo sin poder hacer pasar los articulos a la lista
o si se puede que solo pase una cosa solo nombres de articulos que sean de la seccion SS01, en otra lista de seccion SS02 asi sucesivamente
Responder Con Cita
  #5 (permalink)  
Antiguo 29-05-2008, 08:16:50
Buena Participación en el Foro
 
Registrado: mar 2007
Posts: 73
beñat Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Pues no se por que no te sale, seria mas facil si nos indicas el error o nos muestras el trozo de codigo que tengas echo, por que en principio si recorres el recordset y pones la condicion.

if recordset.field(x)=seccion1 then 'Añades a la lista

Con esa condicion ya estarian en la lista los productos de la seccion1, pero ya te digo si nos indicas el error o nos muestras el codigo seria muchisimo mas facil ayudarte.

Un saludo
Responder Con Cita
  #6 (permalink)  
Antiguo 29-05-2008, 09:26:41
Avatar de J.M.Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 5.490
J.M.Movilla Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Pienso que debieras empezar por generar el recordset con sólo los registros que te interesen:
Código:
"SELECT * FROM TuTabla WHERE cvesecc = 'ss01'"
De esa forma ya no tienes que preocuparte de si se cumple esa condición.
__________________
José María Movilla Cuadrado
______________________
www.foro.vb-mundo.com
www.vb-mundo.com

Responder Con Cita
  #7 (permalink)  
Antiguo 30-05-2008, 11:19:36
Buena Participación en el Foro
 
Registrado: ene 2005
Posts: 77
khoby Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Cita:
Empezado por beñat Ver Mensaje
if recordset.field(2)='La que tu quieras' then
list1.additem = normat &vbtab & precio
end if
recorset.movenext
Un saludo
A mi la verdad de referirte a un campo mediante su índice no me parece muy buena ídea, porque cualquier día se hace un cambio en el modelo lógico de datos y si se tiene la mala suerte que ese indice varía, pumm, tienes colaterales que te llegan hasta el media player, jejje. Esto te lo digo por experiencia, no en visual basic, pero si en java(swing).
Responder Con Cita
  #8 (permalink)  
Antiguo 30-05-2008, 21:12:07
Un Nuevo Amigo
 
Registrado: may 2008
Posts: 7
huschir Aun no valorado
Predeterminado Re: Programa ventas falla con listbox

la verdad lo he estado haciendop con el de if ya q aun no se ocupar bien el sql
me poner un error q dice"no se encontro el elemento ene sta coleccion
Option Explicit
Dim strCveArticulo As String, strresp As String
Dim intposicion As Integer
Dim base As Database
Dim TablaArticulos As Recordset
Dim strCveSecc As String

Private Sub cboNom_Click()
lstNom.AddItem cboNom.Text
End Sub
Private Sub Form_Load()
'Abre la base de datos
Set base = OpenDatabase("C:\ElAlbaDelMundo\basededatos\Abarro tes.mdb")
'Abre la tabla de ARTICULOS
Set TablaArticulos = base.OpenRecordset("Articulos", dbOpenTable)

TablaArticulos.Index = "CveArticulo"
strCveSecc = TablaArticulos!CveSecc
'Rellena la lista con los Nombres de ARTICULOS que ya estan en la tabla
If TablaArticulos.Fields(strCveSecc) = "seccion1" Then 'Añades a la lista(aqui aparece el error)
lstNom.Text = TablaArticulos!NomArt
Else
lstNom.Text = "nada"
End If



End Sub

Private Sub lstNom_DblClick()
lstNom.RemoveItem
End Sub

bien no se si lo aya escrito mal o como deberia ir
por que field no me lo pone solo fields
este programita ya me esta fastidiadno jeje!
tiene como dos semanas los ultimos dias aqui es donde e estado batallandop
Responder Con Cita
  #9 (permalink)  
Antiguo 30-05-2008, 22:50:07
Avatar de J.M.Movilla
Administrador
 
Registrado: dic 2002
Ubicación: BURGOS - ESPAÑA
Posts: 5.490
J.M.Movilla Valoración +2
Predeterminado Re: Programa ventas falla con listbox

Código:
 strCveSecc = TablaArticulos!CveSecc

 If TablaArticulos.Fields(strCveSecc) = "seccion1" Then
¿En qué quedamos? strCveSecc es una variable que aloja el contenido de TablaArticulos!CveSecc o es el nombre de otro campo de TablaArticulos?

Ya sé que "todo es posible en Granada", pero no entiendo, no...
__________________
José María Movilla Cuadrado
______________________
www.foro.vb-mundo.com
www.vb-mundo.com

Responder Con Cita
  #10 (permalink)  
Antiguo 31-05-2008, 14:18:41
Un Nuevo Amigo
 
Registrado: may 2008
Posts: 7
huschir Aun no valorado
Predeterminado Re: Programa ventas falla con listbox

lo puse como variable que aloja las secciones de la tabla
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado



La franja horaria es GMT. Ahora son las 05:23:09.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2009, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right