Ado Y Sql

[gavafra]

Hola, los vuelvo a molestar ahora con los siguiente.

tengo 2 adodc en un form el adodc1 enlazado a la tabla de access "ESTADOS"
y el otro adodc enlazado a la tabla "MUNICIPIOS". Los dos me despliegan los datos que contienen las tablas , cada adodc esta ligado a un datacombo (hasta aqui va bien).

Ahora lo que necesito es que al elegir un ESTADO del datacombo1(adodc1) el
datacombo2 (adodc2) me despliegue los MUNICIPIOS de ese ESTADO.

Tengo un codigo asi :

Private Sub Text23_Change()

Set RS = New Recordset
Set SQL = New Command
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"
SQL.ActiveConnection = CONEXION

Adodc1.RecordSource = SQL.CommandText = "select MUNICIPIO from MUNICIPIOS where (ESTADO LIKE " & Text23.Text & ") ORDER BY ESTADO)"


Set RS = SQL.Execute



End Sub

Pero me marca un error en tiempo de ejecucion :

"Command text was not set for the command object"

Que estoy haciendo mal?

[sdemingo]

Iniciado por gavafra

Hola, los vuelvo a molestar ahora con los siguiente.

tengo 2 adodc en un form el adodc1 enlazado a la tabla de access "ESTADOS"
y el otro adodc enlazado a la tabla "MUNICIPIOS". Los dos me despliegan los datos que contienen las tablas , cada adodc esta ligado a un datacombo (hasta aqui va bien).

Ahora lo que necesito es que al elegir un ESTADO del datacombo1(adodc1) el
datacombo2 (adodc2) me despliegue los MUNICIPIOS de ese ESTADO.

Tengo un codigo asi :

Private Sub Text23_Change()

Set RS = New Recordset
Set SQL = New Command
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"
SQL.ActiveConnection = CONEXION

Adodc1.RecordSource = SQL.CommandText = "select MUNICIPIO from MUNICIPIOS where (ESTADO LIKE " & Text23.Text & ") ORDER BY ESTADO)"


Set RS = SQL.Execute



End Sub

Pero me marca un error en tiempo de ejecucion :

"Command text was not set for the command object"

Que estoy haciendo mal?

No mostrabas los estados en un combo??? por qué pones esto en el método change de un textbox?
Te faltan las comillas imples, te sobran los paréntesis, el like no creo que tenga mucho sentido, yo lo haría con =, y por último, el ORDER BY... por qué lo pones??? si lo que quieres sacar es todos los municipios de un solo estado....

Código:

Adodc1.RecordSource = SQL.CommandText = "select MUNICIPIO from MUNICIPIOS where ESTADO = '" & Text23.Text & "'"

[gavafra]

Gracias , Tienes Razon , Pero Dejame Explicar

Puse El Codigo En El Metodo Change Del Textbox Porque En Ese Textbox Es Donde Se Copia La Seleccion Del Datacombo De Los Estados.

La Tabla Municipios Tiene Los Campos
Estados
Municipios
Clave0
Clave1
Clave2

Es Por Eso Que Puse Order By Estados

Te Siento Molesto, Y Esa No Era Mi Intencion, Solo Quiero Una Poca De Ayuda Y De Buena Gana Si No Se Puede Bueno Ya Vere Yo Donde O Como , Pero No Se Vale Que A Los Novatos Como Yo Los Traten Como Estupidos.de Todos Modos Te Agradezco Tu Tiempo.

[gavafra]

Gracias , Tienes Razon , Pero Dejame Explicar

Puse El Codigo En El Metodo Change Del Textbox Porque En Ese Textbox Es Donde Se Copia La Seleccion Del Datacombo De Los Estados.

La Tabla Municipios Tiene Los Campos
Estados
Municipios
Clave0
Clave1
Clave2

Es Por Eso Que Puse Order By Estados

Te Siento Molesto, Y Esa No Era Mi Intencion, Solo Quiero Una Poca De Ayuda Y De Buena Gana Si No Se Puede Bueno Ya Vere Yo Donde O Como , Pero No Se Vale Que A Los Novatos Como Yo Los Traten Como Estupidos.de Todos Modos Te Agradezco Tu Tiempo.