base de datos en visual basic 6

[raveko]

hola a todos!
Quisiera que me ayudaran para saber como conectar un flexgrid a una base de datos y al mismo tiempo filtrar dicha informacion....
supongamos.... tengo un combo box y selecciono un nombre de algun cliente(de una tabla de clientes)... y que en la flexgrid aparezcan todas las facturas que ha hecho ese cliente (de la tabla facturas)...

como puedo conectar el comboBox a la base de datos (a un campo especifico) y que me despliegue dicho campo de todos los registros??.. lo hago con un data y me pone solo el que este seleccionado en data y no todos...

gracias a todos! =)

[jc_moty]

como puedo conectar el comboBox a la base de datos (a un campo especifico) y que me despliegue dicho campo de todos los registros??.. lo hago con un data y me pone solo el que este seleccionado en data y no todos...

Lo que podes hacer es esto:

Código:

RecordSet.MoveFirst
Do While Not RecordSet.EOF
	Combo1.AddItem RecordSet.Fields("campo")
	RecordSet.MoveNext
Loop

Saludos

[raveko]

disculpa jc moty, la verdad es que estoy muy imbecil para est aún...
mm ese código va en el comboBox?....

ya salen todos los datos de ese campo...de todos los registros... gracias...

ahora como podría hacer que el flexGrid se rellene con información del cliente seleccionado (por ejemplo)?

... por eso quería en msn , seria mas rapido

oye, de verdad gracias! =)

me estas ayudando mucho..jeje te debo una

[jc_moty]

disculpa jc moty, la verdad es que estoy muy imbecil para est aún...
mm ese código va en el comboBox?....

Esto va en el evento Activate del Form.

[raveko]

muchas gracias jc!
de verdad me estas ayudando mucho... son cosas que no habia podido encontrar como resolverlas y me estas resolviendo mis dudas!...

oye, otra pregunta mas, espero no molestarte...
para relacionar la eleccion que se hace en el comboBox y desplegar la informacion relacionada (de otra tabla) a un flexGrid...como puedo hacer?
supongamos:

tengo una tabla clientes con datos de muchos clientes...
tambien tengo una tabla de pedidos de clientes, con caracteristicas de cada pedido..., (un cliente puede hacer muchos pedidos).
al seleccionar un cliente de el comboBox quisiera desplegar en un flexGrid todos los pedidos que ha hecho ese cliente y controlar los anchos de columna.

Gracias!!!!!!!! pasaré esa materia gracias a ti!!!

[jc_moty]

Bueno, a decir verdad no utilizo mucho la FlexGrid, pero la he estado travesiando un poco y aqui esta la solucion de tu poblema:

Código:

' En la Parte General - Declaraciones; o sea por encima de todos los eventos pone esto
Dim db As Database

' En el Load del Form
Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "\nombre de la base de datos.mdb")
End Sub

' Y finalmente en el evento Click del Combo
Private Sub Combo1_Click()
Set Data2.Recordset = db.OpenRecordset("SELECT * FROM Pedidos WHERE campo LIKE '" & Combo1 & "'")
End Sub

Ojo: la propiedad DataSource del FlexGrid debe ser igual al nombre del Data que hace referencia a la tabla Pedidos.
Que en mi caso es Data2

controlar los anchos de columna.

Para hacer esto la Propiedad AllowUserResizing debe ser igual a 1 - flexResizeColumns

Espero te sirva

[raveko]

gracias por ayudarme...

soy nefasto en esto... que pena
me causa un error que dice así:
"pocos parámetros se esperba 1"

no sé a que se pueda deber esto
agradezco tu interés y ayuda...

p.d. tienes buen slogan

[jc_moty]

Porque no posteas el codigo que utilizas a ver en que te puedo ayudar; y señala la linea en la que te da ese error.

[raveko]

Dim db As Database

Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE campo LIKE '" & Combo1 & "'") <---- Aqui marca el error

End Sub

Private Sub Command1_Click()
perrita.Show

End Sub

Private Sub Command2_Click()
End
End Sub



Private Sub Form_Activate()
Data1.Recordset.MoveFirst

Do While Not Data1.Recordset.EOF
Combo1.AddItem Data1.Recordset.Fields("descripcion")
Data1.Recordset.MoveNext
Loop
End Sub


Private Sub Form_Load()
Set db = OpenDatabase(App.Path & "Jugueteria.mdb")

End Sub

[jc_moty]

Código:

Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE campo LIKE '" & Combo1 & "'") '<-- Aqui marca el error
End Sub

Bien, es mas facil de lo que crees. El error esta en la palabra campo, esta la tenes que sustituir por el nombre del campo que vas a comparar, es decir que si el campo con el que queres comparar el Combo se llama nombre, tenes que poner esto:

Código:

Private Sub Combo1_Click()
Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Juguete WHERE nombre LIKE '" & Combo1 & "'")
End Sub

Esta demas mencionar que el campo "nombre" tiene que estar en la tabla "Jugete".
Otra cosa:
cambia esta linea:

Código:

Set db = OpenDatabase(App.Path & "Jugueteria.mdb")

por:

Código:

Set db = OpenDatabase(App.Path & "\Jugueteria.mdb")

Tenes que agregar la barra invertida (\) ¿Porque?, porque App.Path devuelve el directorio del proyecto, es decir que si tu proyecto esta guardado en C:\VB; App.Path devolvera la siguiente cadena: "C:\VB" y si lo concatenas con "Jugeteria.mdb", el resultado seria: "C:\VBJugeteria.mdb", este archivo (VBJugeteria.mdb) evidentemente no existe. Ahora bien, si concatenas App.Path con "\Jugeteria.mdb", el resultado seria: "C:\VB\Jugeteria.mdb" ¿Ves la diferencia?.

[raveko]

muchas gracias jc ya quedó!!!!!!!

de verdad te agradezco que compartas tus conocimientos...
en realidad espero poder ayudarte en lo que pueda si algun dia necesitas algo de ayuda... (bueno aunque solo conozco c, pero sé usar programas de diseño gráfico como photoshop, illustrador o corel...de verdad en lo que pueda ayudarte sera un placer! =) ).

vale.... a que hora te conectas usualmente?... por si me surge alguna duda??
mi msn es: [email protected]

no solo me salvas el pellejo a mi sino tambien a mi novia, jeje estamos en la clase juntos...
gacias de nuevo! =)

[jc_moty]

vale.... a que hora te conectas usualmente?...

Pues, no tengo una hora establecida, pero si no me encontras deja tu post por aqui, casi siempre, me doy una vuelta en las noches...o bien me mandas un mensaje privado.

Saludos

[XG1O5]

alguno de utedes me puede ayudar porfavor

[XG1O5]

como se pasa una base de datos a DAO plz msg

[XG1O5]

Jc Moty Plz Ayuda Raveko Ayuda

[jc_moty]

Que paso XG105?, porque no creas un nuevo tema detallando mas a fondo tus dudas, para que sea mas facil ayudarte.

Saludos

[LuisLuther]

Hola jc_moty me es grato saludarte y confieso que estoy admirado por tus conocimientos de programacion en visual basic me encantaria, si no es mucha molestia claro q en un futuro me puedas dar algunos consejos sobre visual basic la verdad es q soy muy nuevo en esto pero tengo muchas ganas de aprender si puedes agrega mi correo soy de Peru [email protected] y mi correo en este foro es LuisLuther, espero tu respuesta con ansias

[AndreaBelen]

Hola Jc - moty...

quisiera saber si hay una forma de que en visual basic 6.0 se ponga dos combo box(pais - ciudad) jalados de una base de datos access 2000

y que en el momento de seleccionar un pais de un combobox en el otro solo aparezcan ciudades de ese pais....

pd: las tablas ciudades y paises se encuentran en tablas separadas...

te agradeeria mucho tu ayude ya que no se que hacer