HOLA
MI TABLA MUNICIPIOS TIENE 5 CAMPOS
ESTADO MUNICIPIO CLAVE CLAVE1 CLAVE2
MI FORM TIENE EL DATACOMBO Y 5 TEXTBOX
LO QUE NO ME SALE ES QUE SEGUN LA SELECCION QUE HAGA EN EL DATACOMBO ME LA MUESTRE EN LOS TEXTBOX, YA ASIGNE LA PROPIEDAD DATASOURCE Y DATAFIELD A CADA UNO DE LOS TEXTBOX
PERO NO ME MUESTRA LOS CAMBIOS.
TIENEN ALGUNA IDEA PORQUE ?
PODRIAN CHECAR QUE TENGO MAL EN ESTE CODIGO O QUE ME HACE FALTA?
Private Sub DataCombo2_Click(Area As Integer)
Text23.Text = DataCombo2.Text
Dim SQL As String
Dim RS As Recordset
Dim Conexion As Connection
Set RS = New Recordset
Set Conexion = New Connection
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Japan Airlines\My Documents\ESTADOS_Y_MUNICIPIOS.mdb;Persist Security Info=False"
RS.ActiveConnection = Conexion
RS.Open ("select * from MUNICIPIOS where Estado = '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc2.RecordSource = ("SELECT * FROM ESTADOS")
Adodc1.RecordSource = ("select * from MUNICIPIOS where Estado = '" & DataCombo2.Text & "'")
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
End Sub
TIENEN ALGUNA IDEA PORQUE ?
MUCHAS GRACIAS !!!
