CARGA DE DATA DE DOS COMBOBOX

A continuacion les coloco el codigo y el formulario de como cargar dos combobox con la data contenida en una BD.

Imagen del formulario en vista de diseño

El codigo de este formulario es el siguiente:

PUBLIC Atencion AS Boolean

PUBLIC SUB Form_Open()

ME.Center()
LlenarCombo()
LaFecha()

END

PUBLIC SUB LaFecha()

DIM FechaActual AS Variant

FechaActual = Date(Day(Now) & «/» & Month(Now) & «/» & Year(Now))
Label9.Text = FechaActual

END

PUBLIC SUB LlenarCombo()

DIM query AS String
DIM resultado AS Result
DIM captura AS Integer
DIM i AS Integer

ModConexion.rs1 = ModConexion.db.Exec(«select codigo FROM laboratorio.datoslab»)
ModConexion.rs1.MoveFirst
captura = ModConexion.rs1.Count
i = 1
WHILE i <= captura
ComboBox1.Add(ModConexion.rs1!codigo)
ComboBox1.Refresh()
ModConexion.rs1.MoveNext
DEC (captura)
WEND
END

PUBLIC SUB Button4_Click()

ME.Close()

END

PUBLIC SUB ValidarVacios()

IF ComboBox1.Text = «» OR ComboBox2.Text = «» OR TextBox1.Text = «» OR TextBox2.Text = «» OR TextEdit1.Text = «» THEN
Message.Error(«Existen casillas vacias\n asegurese de llenarlas todas»)
Atencion = FALSE
TextBox1.Clear()
TextBox2.Clear()
TextEdit1.Clear()
ELSE
Atencion = TRUE
ENDIF

END

PUBLIC SUB ComboBox1_Change()

DIM Respuesta AS String
DIM query AS String
DIM resultado AS Result
DIM captura AS Integer
DIM i AS Integer

ComboBox2.Clear()
TextBox1.Clear()
TextBox2.Clear()

Respuesta = Trim(ComboBox1.Text)

query = «select * from laboratorio.datosequipo where codigo ='» & Respuesta & «‘»
ModConexion.consulta(query)

resultado = db.Exec(query)
ModConexion.rs1.MoveFirst
captura = ModConexion.rs1.Count
i = 1

WHILE i <= captura
ComboBox2.Add(ModConexion.rs1!codequipo)
ComboBox2.Refresh()
ModConexion.rs1.MoveNext
DEC (captura)
WEND

END

PUBLIC SUB ComboBox2_Change()

DIM Respuesta AS String
DIM query AS String
DIM resultado AS Result

Respuesta = Trim(ComboBox2.Text)

query = «select * from laboratorio.datosequipo where codequipo ='» & Respuesta & «‘»
ModConexion.consulta(query)

resultado = db.Exec(query)

IF resultado.Count > 0 THEN
TextBox1.Text = ModConexion.rs1!marca
TextBox2.Text = ModConexion.rs1!modelo

END IF

END

PUBLIC SUB Button1_Click()

DIM query AS String

ValidarVacios()
IF Atencion = TRUE THEN
query = «INSERT INTO laboratorio.mantenimiento set codlab='» & UCase(comboBox1.Text) & «‘, fecha='» & Trim(Label9.Text) & «‘, codequipo='» & UCase(ComboBox2.Text) & «‘, marca='» & UCase(TextBox1.Text) & «‘, modelo='» & UCase(textbox2.text) & «‘, falla='» & UCase(Trim(TextEdit1.text)) & «‘, entregado='» & UCase(TextBox3.Text) & «‘, dpto='» & UCase(ComboBox3.Text) & «‘»
ModConexion.consulta(query)
IF ModConexion.conexion() THEN
message.Info(«Los dato se insertaron satisfactoriamente»)
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextEdit1.Clear()
ComboBox2.Clear()

ELSE
message.Error(«Los datos no se pudieron insertar»)
ENDIF
ENDIF

END

PUBLIC SUB Button2_Click()

END