error 13 AYUDA!!!!!!!!!!!!!!!!!

gavafra · #1 (**permalink**) 10/06/2005, 09:16

Por que demonios me sale este error "No coinciden los tipos" ya me harte !!!
eh aqui mi codigo: a ver si ustedes encuentran el error.

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 Municipio, Clave0, Clave1, Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc1.RecordSource = ("select Municipio, Clave0 ,Clave1 , Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Set Text23.DataSource = Adodc2.Recordset.Fields("ESTADO")
Set Text24.DataSource = Adodc2.Recordset.Fields("CLAVE")
Set Text25.DataSource = Adodc2.Recordset.Fields("CLAVE1")
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Rs.Close
Set Rs = Nothing
End Sub

Hago notar que los campos en la tabla de access son de tipo texto.

GeoAvila · #2 (**permalink**) 10/06/2005, 10:24

talvez sean los tipos de al base de datos, o bien tu datacombo esta generando te unos problemas, porque no lo lo estas seteando.. es decir..

echale un ojo a esta declaración de un data combo y me decis..

http://www.forosdelweb.com/showpost....8&postcount=69

nos vemos..

gavafra · #3 (**permalink**) 10/06/2005, 11:34

Gracias Geo, Ya Lo Intente Con Tu Codigo Pero Me Sigue Dando El Mismo Error

"no Coinciden Los Tipos"

Seguire Buscando Informacion O Alguna Alma Caritativa Que Pueda Ayudarme Jejeje :-d

gavafra · #4 (**permalink**) 10/06/2005, 11:37

GRACIAS GEOAVILA, YA SETEE EL DATACOMBO PERO NI ASI, SIGUE DANDO EL MISMO ERROR "NO COINCIDEN LOS TIPOS"

ESTE ES MI CODIGO

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 Municipio,Estado,Clave0,Clave1,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc2.RecordSource = ("select ESTADO,CLAVE,CLAVE1 from ESTADOS")
Adodc1.RecordSource = ("select Municipio,Estado,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Set Text23.DataSource = Adodc2.Recordset.Fields("ESTADO")
Set Text24.DataSource = Adodc2.Recordset.Fields("CLAVE")
Set Text25.DataSource = Adodc2.Recordset.Fields("CLAVE1")
Set DataCombo2.RowSource = Adodc2
Set DataCombo2.DataSource = Adodc2
DataCombo2.BoundColumn = "ESTADO"
DataCombo2.ListField = "ESTADO"
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Adodc2.Refresh
Rs.Close
Set Rs = Nothing
End Sub

EN FIN SEGUIRE BUSCANDO LA SOLUCION Y/O ESPERANDO LA AYUDA DIVINA
JEJEJE

David · #5 (**permalink**) 10/06/2005, 15:11

Cita:

Iniciado por gavafra

GRACIAS GEOAVILA, YA SETEE EL DATACOMBO PERO NI ASI, SIGUE DANDO EL MISMO ERROR "NO COINCIDEN LOS TIPOS"

ESTE ES MI CODIGO

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 Municipio,Estado,Clave0,Clave1,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc2.RecordSource = ("select ESTADO,CLAVE,CLAVE1 from ESTADOS")
Adodc1.RecordSource = ("select Municipio,Estado,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Set Text23.DataSource = Adodc2.Recordset.Fields("ESTADO")
Set Text24.DataSource = Adodc2.Recordset.Fields("CLAVE")
Set Text25.DataSource = Adodc2.Recordset.Fields("CLAVE1")
Set DataCombo2.RowSource = Adodc2
Set DataCombo2.DataSource = Adodc2
DataCombo2.BoundColumn = "ESTADO"
DataCombo2.ListField = "ESTADO"
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Adodc2.Refresh
Rs.Close
Set Rs = Nothing
End Sub

EN FIN SEGUIRE BUSCANDO LA SOLUCION Y/O ESPERANDO LA AYUDA DIVINA
JEJEJE

Dime en cual de las líneas te da el Error

gavafra · #6 (**permalink**) 13/06/2005, 16:37

YA REVISE TODO DE NUEVO
LA CONSULTA ME DEVUELVE LOS MUNICIPIOS DE ACUERDO AL ESTADO QUE SELECCIONE, LOS TEXT ESTAN ENLAZADOS EN TIEMPO DE DISENO A CADA CAMPO DE CADA TABLA, LA CONEXION ESTA BIEN HECHA, NO ME DEVUELVE NINGUN ERROR PERO LOS TEXT NO ME MUESTRAN LA SELECCION QUE HAGO EN LOS DATACOMBO Y YO VOLVIENDOME CADA VEZ MAS TRAUMADO.

ESTE ES EL ULTIMO CODIGO QUE TENGO

Private Sub DataCombo2_Click(Area As Integer)

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
Adodc1.RecordSource = ("select Municipio,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Adodc1.Refresh

TODO FUNCIONA BIEN A EXCEPCION DE LAS CAJAS DE TEXTO

GeoAvila · #7 (**permalink**) 13/06/2005, 16:47

sabes que borralas y volvelas a agregar talvez les agregaste alguna propiedad mala, eso se me ocurre asi al azar puesto que decis que da problemas al enlazarlos...

nos vemos..

gavafra · #8 (**permalink**) 13/06/2005, 17:33

GRACIAS GEOAVILA, YA BORRE LOS TEXTBOX Y LOS VOLVI A PONER CON SUS RESPECTIVOS DATASOURCE Y DATAFIELD Y SIGUE SIN PASAR NADA NO ME ACTUALIZA LOS DATOS DE ACUERDO A LA SELECCION HECHA.

GeoAvila · #9 (**permalink**) 13/06/2005, 17:53

bueno nada mas que prueba y error me dia a la tarea aplicar tu codigo auna mini app. y me dicuenta a casi a simple vista que no habia puesto mucha atencion a la manera que declarbas la conexion con los textos.

para conectar un texto lo haces de esta manera

Código:

Set Text23.DataSource = Adodc2
Text23.DataField = "ESTADO"

nos vemos espero te sirva..

gavafra · #10 (**permalink**) 14/06/2005, 08:41

GRACIAS GEO , HE PUESTO COMO ME DICES PERO ME DA EL SIG ERROR Y ME SACA DE VB6. NO ME MARCA NINGUN ERROR EN EL CODIGO SOLO ME SACA DEL PROGRAMA.

Private Sub DataCombo2_Click(Area As Integer)

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
Adodc1.RecordSource = ("select Municipio,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Adodc1.Refresh
Set Text23.DataSource = Adodc2
Text23.DataField = "ESTADO"
Set Text24.DataSource = Adodc2
Text24.DataField = "CLAVE"
Set Text25.DataSource = Adodc2
Text25.DataField = "CLAVE1"

End Sub

VB6.EXE HAS GENERATED ERRORS AND WILL BE CLOSED BY WINDOWS
YOU WILL NEED TO RESTART THE PROGRAM

AN ERROR LOG IS BEEN CREATED

ALGUN TIP???

marcocho2005 · #11 (**permalink**) 14/06/2005, 08:51

Cita:

Iniciado por gavafra

GRACIAS GEOAVILA, YA SETEE EL DATACOMBO PERO NI ASI, SIGUE DANDO EL MISMO ERROR "NO COINCIDEN LOS TIPOS"

ESTE ES MI CODIGO

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 Municipio,Estado,Clave0,Clave1,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'"), Conexion, adOpenStatic, adLockBatchOptimistic, adCmdText
Adodc2.RecordSource = ("select ESTADO,CLAVE,CLAVE1 from ESTADOS")
Adodc1.RecordSource = ("select Municipio,Estado,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Set Text23.DataSource = Adodc2.Recordset.Fields("ESTADO")
Set Text24.DataSource = Adodc2.Recordset.Fields("CLAVE")
Set Text25.DataSource = Adodc2.Recordset.Fields("CLAVE1")
Set DataCombo2.RowSource = Adodc2
Set DataCombo2.DataSource = Adodc2
DataCombo2.BoundColumn = "ESTADO"
DataCombo2.ListField = "ESTADO"
DataCombo1.ListField = "Municipio"
Adodc1.Refresh
Adodc2.Refresh
Rs.Close
Set Rs = Nothing
End Sub

EN FIN SEGUIRE BUSCANDO LA SOLUCION Y/O ESPERANDO LA AYUDA DIVINA
JEJEJE

Set Text23.DataSource = Adodc2
Set Text23.DataField = "ESTADO"
Set Text24.DataSource = Adodc2
Set Text24.DataField = "CLAVE"
Set Text25.DataSource = Adodc2
Set Text25.DataField = "CLAVE1"

podria funcionar no?

marcocho2005 · #12 (**permalink**) 14/06/2005, 08:58

Cita:

Iniciado por gavafra

GRACIAS GEO , HE PUESTO COMO ME DICES PERO ME DA EL SIG ERROR Y ME SACA DE VB6. NO ME MARCA NINGUN ERROR EN EL CODIGO SOLO ME SACA DEL PROGRAMA.

Private Sub DataCombo2_Click(Area As Integer)

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
Adodc1.RecordSource = ("select Municipio,Clave0 ,Clave1 ,Clave2 from MUNICIPIOS where Estado like '" & DataCombo2.Text & "'")
Adodc1.Refresh
Set Text23.DataSource = Adodc2
Text23.DataField = "ESTADO"
Set Text24.DataSource = Adodc2
Text24.DataField = "CLAVE"
Set Text25.DataSource = Adodc2
Text25.DataField = "CLAVE1"

End Sub

VB6.EXE HAS GENERATED ERRORS AND WILL BE CLOSED BY WINDOWS
YOU WILL NEED TO RESTART THE PROGRAM

AN ERROR LOG IS BEEN CREATED

ALGUN TIP???

ups creo que no vi este mensaje
aca no estas asignando ningún RecordSource al Adodc2 y tampoco estas haciendo un refresh, de todas formsa fijate que es lo que dice el log de error que hizo VB. quisaz ahi te de una pista de loq ue esta pasando no?

gavafra · #13 (**permalink**) 14/06/2005, 09:23

GRACIAS MARCOCHO, ME SIGUE SACANDO DEL PROGRAMA Y ME MARCA EL ERROR SIG:

VB6.EXE HAS GENERATED ERRORS AND WILL BE CLOSED BY WINDOWS
YOU WILL NEED TO RESTART THE PROGRAM

AN ERROR LOG IS BEEN CREATED

ESTOY A PUNTO DE MANDAR AL DIABLO TODO !!!

marcocho2005 · #14 (**permalink**) 14/06/2005, 14:56

Cita:

Iniciado por gavafra

GRACIAS MARCOCHO, ME SIGUE SACANDO DEL PROGRAMA Y ME MARCA EL ERROR SIG:

VB6.EXE HAS GENERATED ERRORS AND WILL BE CLOSED BY WINDOWS
YOU WILL NEED TO RESTART THE PROGRAM

AN ERROR LOG IS BEEN CREATED

ESTOY A PUNTO DE MANDAR AL DIABLO TODO !!!

por qué no intentas una de estas dos cosas...
crea un nuevo proyecto y copia todo tu codigo y componenetes en el nuevo proyecto
si no funciona trata instalando de nuevo todo el Visual Basic o el Visual Studio