RE:Datacombos relacionados
Creo que no va ser posible, ya que los DataCombos Solo pueden tener un solo campo, en su lista, e inmagino que en l DataCombo de Estados solo mostroras el campo "Estado" y no "Id_Estado" que es el campo con el que relacionas en la tabla de municipios, Yo usaria el ComboBox, siempre y cuando el Campo "Id_Estado" sea de tipo entero. Aqui te pongo un ejemplo con dos ComboBox
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strQuery As String
Const strConexion = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=EnterpriseAdminDB;Data Source=SERVIDOR"
Private Sub cmbEstados_Click()
Screen.MousePointer = 11
Set cnn = Nothing
Set rst = Nothing
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
strQuery = "SELECT Estado, Ciudad, Descrip FROM SACIUDAD WHERE " & _
"Estado=" & CInt(cmbEstados.ItemData(cmbEstados.ListIndex)) & " ORDER BY Descrip ASC"
cmbCiudades.Clear
cnn.Open strConexion
With rst
.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText
If .RecordCount <> 0 Then
Do While Not .EOF
cmbCiudades.AddItem Trim(!Descrip)
cmbCiudades.ItemData(cmbCiudades.NewIndex) = CInt(!Ciudad)
.MoveNext
Loop
End If
.Close
End With
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Screen.MousePointer = 1
End Sub
Private Sub Form_Load()
Screen.MousePointer = 11
Set cnn = Nothing
Set rst = Nothing
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
strQuery = "SELECT Estado, Descrip FROM SAESTADO ORDER BY Descrip ASC"
cmbEstados.Clear
cnn.Open strConexion
With rst
.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText
If .RecordCount <> 0 Then
Do While Not .EOF
cmbEstados.AddItem Trim(!Descrip)
cmbEstados.ItemData(cmbEstados.NewIndex) = CInt(!Estado)
.MoveNext
Loop
End If
.Close
End With
cnn.Close
Set rst = Nothing
Set cnn = Nothing
Screen.MousePointer = 1
End Sub