• Martes 16 de Julio de 2024, 01:43

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - zlroses

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Re: A Ver Si Miran Esto?
« en: Sábado 17 de Junio de 2006, 11:53 »
nuchas gracias igualmente el problema mio pasa por otro lado, es que yo tengo mi base de datos en la cual voy agregando planos y con el tiempo hay algunos que se borran entonces yo necesito agregar un plano en el lugar que haya libre por tanto necesito tener un orden y no se como hacerlo.

por ej. en mi base de datos tengo.

AUTO-H701-04-01
AUTO-H701-04-02
AUTO-H701-04-03
AUTO-H701-04-04
AUTO-H701-04-06
AUTO-H701-04-07
AUTO-H701-04-05

ENTONCES ASI ESTA EN LA BASE DE DATOS ORDENADOS POR QUE EL PLANO CON ESE CODIGO FUE EL ULTIMO QUE AGREGUE AHORA BIEN COMO HAGO YO PARA QUE CUANDO VOY AGREGANDO ESTO QUE TOMO DE LA BASE DE DATOS ME LO HAGA EN ORDEN CORRELATIVO Y NO ASI COMO ESTA DESORDENADO.
YO QUISIERA ALGO ASI:

AUTO-H701-04-01
AUTO-H701-04-02
AUTO-H701-04-03
AUTO-H701-04-04
AUTO-H701-04-05
AUTO-H701-04-06
AUTO-H701-04-07

COMO PUEDO HACER QUE SE ME ORDENE EN ESTE ORDEN AUNQUE EL NUMERO 5 SE SITUE EN EL ULTIMO LUGAR DE LA BASE DE DATOS.

DESDE MUCHAS GRACIAS A TODOS...
SALUDOS..

2
Visual Basic 6.0 e inferiores / A Ver Si Miran Esto?
« en: Viernes 16 de Junio de 2006, 11:21 »
Buenas Colegas.. Necesito una mano en esto..

Yo tengo una base de datos en Excel 8.0 y lo que hago aqui es recorrerla y por ej ver si
lo que tengo en el el text relacionado a la base es igual a lo que presento en el combo1
y a su vez otro text relacionado con el combo2 y asi comparando relaciones y en caso de ser iguales me agrega lo que aqui presento en el listbox1 y otras cosas en el listbox2

por ej seria asi

AUTO-H701-04-01
AUTO-H701-04-02
AUTO-H701-04-03
AUTO-H701-04-04
AUTO-H701-04-06
AUTO-H701-04-07
AUTO-H701-04-08
AUTO-H701-04-05
AUTO-H701-04-09

OSEA LOS DATOS A COINCIDIR EN PRIMER LUGAR SERIA QUE ME AGREGUE TODOS LOS QUE CONTENGAN EN AUTO QUE A SU VEZ CONTENGAN H701 Y QUE A SU VEZ CONTENGA 04 Y QUE ME LOS AGREGUE TODOS LOS QUE CUMPLAN CON ESA CONDICION. EL PROBLEMA ES QUE EN LA BASE POR EJ 05 ES EL ULTIMO QUE AGREGUE Y ME LOS AGREGA RECORRIENDO TODA AL BASE DE DATOS PERO COMO POR EJ EL N°9 ESTA EN LA POSICION 3400 Y EL N°5 ESTA EN LA POSICION 3701 OBVIAMENTE COMO CUANDO RECORRE LA BASE DE DATOS Y COMPARA SI ES AUTO, SI ES H701 Y SI ES 04 ENTONCES LO AGREGA POR TANTO NO PUEDO LOGRAR QUE ME ORDENE ESOS ULTIMO NUMEROS COMO VAN.

AHORA PREGUNTO COMO PUEDO HACER YO ESTO, PUEDEN DARME UNA MANO.?

gRACIAS Y SALUDOS...

..
.

Y ASI
ListBox1.Clear
ListBox2.Clear

A = 0
B = 0
inicio1:
data1.Recordset.MoveFirst
comenzar1:
If data1.Recordset.EOF = True Then GoTo FIN1:
If Combo1.Text = (Text1.Text & " " & " - " & Text5.Text) Then
If Combo2.Text = (Text2.Text & " " & " - " & Text6.Text) Then
If Combo3.Text = (Text3.Text & " " & " - " & Text7.Text) Then GoTo agrega:
End If
End If

GoTo avanzar1:

agrega:

Z = ListBox1.ListCount - 1
x = ListBox2.ListCount - 1
For W = 0 To Z
If ListBox1.List(W) = (Text4.Text & " " & "-" & Text19.Text) Then GoTo avanzar1:
Next W

ListBox1.AddItem (Text4.Text & " " & "-" & Text19.Text), A
ListBox2.AddItem (Text1.Text & "-" & Text2.Text & "-" & Text3.Text & "-" & Text4.Text), B
A = A + 1
B = B + 1
GoTo avanzar1:


GoTo avanzar1:

avanzar1:
data1.Recordset.MoveNext
GoTo comenzar1:

FIN1:
End Sub

3
Visual Basic 6.0 e inferiores / Ayuda Con Vb Y Autocad
« en: Lunes 8 de Mayo de 2006, 20:47 »
Hola, Estoy necesitando una ayuda por favor para ver archivos hechos en autocad ( Dwg ) desde vb.

Osea tengo un programa el cual tiene una base de datos con un listado de planos, hasta ahi bien ahora lo que quiero es tener un Picturebox que me permita previsualizar o visualizar la imagen que yo quiera. Necesito ayuda por que no se como hacerlo, hasta el momento solo he podido visualizar archivos de foto como jpg o bmp pero no archivos de autocad, Agradeceria cualquier ayuda que puedan darme.
Gracias.

Páginas: [1]