Consulta a MySQL por medio de boton

[ana_gloria]

Buenas tardes, se que es algo antiguito lo q voy a preguntar pero esq qiero empezar un proyecto en vb6 con mysql, pero aqui en el foro no encuentro nada sobre visual basic, asi que me atrevbi a ponerlo aqui, ok basicamente es esto lo q qiero hacer o si me pueden recomendar alguna lectura se los agradezco de antemano, aqui les va:

Tengo en mi formulario 2 combobox en los cuales dependiendo de lo q seleccionen al oprimir el boton de buscar quiero q los datos me los refleje en una especi de data grid segun las variables q seleccionó anteriormente en los 2 combobox y aparte insertar en mi data grid en la primer columna un checkbox, para que aquellos que esten seleccionados sean los q se guarden con otros datos que me daria el usuario en unas cajas de texto q tambien pienso poner en el formulario, yo se q en informatica nada esta fumado, todo se puede y de antemano disculpen mi sobrada ignorancia pero soy nueva en esto.

P.D.: Este proyecto es uno que ya tengo corriendo en php desde hace ya casi 3 años pero lo qiero hacer en esta version, les agradezco infinitamente cualqier tipo de ayuda, porq la vdd ya he leido bastante y nose ni x donde empezar ...

[pcid]

Pues a ver...

Te lo digo por pasos a ver si consigo darme a entender.

1. Descarga de drivers ODBC de MySQL si aún no se tienen.
Link: http://dev.mysql.com/downloads/connector/odbc/

1.1 Instalarlo

2. Crear ODBC hacia la base de datos MySQL sin olvidar el nombre que se la ponga.

3. En el proyecto de Visual Basic:
Agregar la referencia a "Microsoft Activex Data Objects 8.0 Library" a través del menú Project/References.

4. Vale... ahora, como usarlo.

Para hacer una prueba he creado dos tablas en MySQL que obedecen a este script:

Código MySQL:

CREATE TABLE  fdw_example5_pais (
  Id_Pais int(10) unsigned NOT NULL AUTO_INCREMENT,
  Nombre varchar(100) NOT NULL,
  PRIMARY KEY (Id_Pais)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
 
 
CREATE TABLE  fdw_example5_ciudad (
  Id_Ciudad int(10) unsigned NOT NULL AUTO_INCREMENT,
  Nombre varchar(100) NOT NULL,
  Id_Pais int(10) NOT NULL,
  PRIMARY KEY (Id_Ciudad)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
 
insert into fdw_example5_pais (Nombre) values ('Estados Unidos'), ('España');
insert into fdw_example5_ciudad (Id_Pais, Nombre) values (1, 'Washington'), (1, 'Nueva York'), (2, 'Madrid'), (2, 'Barcelona'), (2, 'Teruel');
commit;
 

He creado un ODBC que conecta a la base de datos que se llama "MYSQL_FOROSDELWEB".

En un formulario vacío de VB, he agregado un combobox que se llama "Combo1".

Y he puesto este código:

Código vb:

Option Explicit
 
Private Const C_ODBC = "MYSQL_FOROSDELWEB"
 
 
Private Sub Init_Values()
Dim Cn As ADODB.Connection
Dim RS As ADODB.Recordset
Dim Qry As String
 
    Set Cn = New ADODB.Connection
    Cn.ConnectionString = C_ODBC
    Cn.Open
    
    Qry = "select Id_Pais, Nombre from fdw_example5_pais order by Nombre"
    Set RS = Cn.Execute(Qry)
    Combo1.Clear
    Do While Not RS.EOF
        Combo1.AddItem RS.Fields(1).Value
        Combo1.ItemData(Combo1.ListCount - 1) = RS.Fields(0).Value
        RS.MoveNext
    Loop
    RS.Close
    Set RS = Nothing
    
    Cn.Close
    Set Cn = Nothing
End Sub
 
Private Sub Form_Load()
    Init_Values
End Sub
 

Con esto he conseguido conectar a la base de datos MySQL, hacer una consulta a la tabla de países de este ejemplo y meterlos dentro de un combobox.

Con lo que mencionas de agregar un data grid con un checkbox en la primera columna, no recuerdo si los OCX que vienen con Visual Basic 6 te dan chance a hacerlo. Yo lo hacía pero con un OCX de pago.

Talvez te puede vale utilizar un listbox. Los listbox tienen una propiedad llamada "Style" que si la pones en valor "1" se convierte en una lista de selección.

Para saber si un item está seleccionado o no utilizas "[LISTA].selected([indice]]" para conseguir un valor falso o verdadero para saber si esta o no está seleccionado.

Para cargar, modificar, limpiar, etc. items de un listbox, se utilizan los mismos metódos que con un combobox.


Lo que mencionas de que cuando den click en un combobox se desplieguen datos en un grid, pues lo haces con el evento Click del combobox. Para saber que item es el "clickado" utilizas algo como Combo1.ListIndex. Si esto es igual a "-1" entonces no hay item seleccionado. No pierdas de vista que el índice del ítem en el combobox no tiene por qué coincidir siempre con el ID de la tabla de la base de datos. En el ejemplo utilicé una propiedad del item llamada "itemdata". Para conocer -en mi ejemplo- el ID de la base de datos del país seleccionado en el combobox podrías poner una función como esta:

Código vb:

Function getSelectedCountryId()
    If Combo1.ListIndex > -1 Then getSelectedCountryId = -1: Exit Function
    getSelectedCountryId = Combo1.ItemData(Combo1.ListIndex)
End Function
 

Y bueno... siempre me acusan de dar explicaciones muy largas...

Espero haberte ayudado en algo.

Si tienes más dudas, o dudas sobre mi respuesta, pues por aquí estaré.

¡Saludos!

[ana_gloria]

Sip si me ayudo y mucho! pero me sale el siguiente error

" no se ha definido el tipo definido por el usuario"

en el modulo de private sub init_values()... y me señala la delcaracion del dim cn as adodb.connection

[pcid]

Ese error debe ser porque no has agregado la referencia a "Microsoft Activex Data Objects 8.0 Library" a través del menú Project/References.