hola amigos. Tengo un feroz problema. Tengo una base de datos con una tabla llamada autos,con una columna con numeros del 1 al 10 y cada fila tiene, aparte del 1 por ejemplo,letras ej.

1 a,b,c,d,e,f,g
2 h, i j k l m
3 n,o,p,q,r,s

etc.entonces:

hago la conexion pero no puedo hecer un select. Mi idea es que al selecionar el uno (a traves de codigo) me aparescan en unos text.box las letras, en este caso, a,b,c,d,e; si selecciono el 3 que aparescan las letras n,o,p,q,r,s; etc pero no me resulta. Mi codigo es:

Dim sBase As String
sBase = "xxxxxxx.mdb"
dbConex.CursorLocation = adUseServer
dbConex.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=" & sBase & ";" & "Jet OLEDBatabase"

ejemplo = 1 'aqui le doy el valor de la columna que quiero, por ejemplo

'*****Establezco valor del RecordSet
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.CursorType = adOpenDynamic
Rs.LockType = adLockBatchOptimistic

SQL = "Select * From autos Where columna='" & ejemplo & "'"
Rs.Open SQL, dbConex

Text1=Rs.Fields("CodArea") = Text42

tambien quiero agregar letras....
Rs!letras = Text3
Rs.Update

pero no puedo. Siempre se queda "pegado" en el primer registro, mostrandome siempre la a,b,c,d,e y no las demas.

NOTA:Aunque a la variable ejemplo le de el valor, 2 o 3 o 4 siempre muestra el primer registro.

AYUDA POR FAVOR.........

Vamos por partes:

Primero lo de que no te muestra las letras: prueba que el error lo mismo se encuentra en la SQL, pues pides un entero y no un String:

SQL = "Select * From autos Where columna=" & ejemplo

Por otro lado si solo quieres trabajar con el campo letras, no te traigas todos los registros a la aplciacion (optimizacion)

SQL = "Select letras From autos Where columna=" & ejemplo

Para actulizar datos, no deberias utilizar la forma que muestras, pues estas derrochando recursos en mi opinion. te vale con:
dbConex.execute consultaSQL
donde consultaSQL es de tipo "update"

¿ Text1=Rs.Fields("CodArea") = Text42 ? esto es mucho bacalao, no alcanzo a entender esta linea. pero creo que la linea anterior deberia ser por lo menos un rs.movefirst y no olvides devolver recursos al sistema cerrando consulta con rs.close cuando acabes con ella.

No se si te estoy guiando o alguien que lo lea piensa que estoy equivocado. Si te he puedo ayudar en algo mas, por favor pregunta.

__________________
Mi programuca te lo regalo, la ideuca te la vendo

Hola :smt012
creo k tu enviaste una pregunta parecida ya anteriormente (Claro tu ejemplo tenia k ver con autos verdad???) la cual yo respondi incluso recuerdo k enviaste tu codigo creo k es el mismo problema?? Bueno nunca supe si t funciono o no?? lo k te envie pero por lo k expones en tu pregunta es casi lo mismo asi k si es k t funciono ahi esta la solucion o en todo caso envia el codigo completo y t ayudo

Cuidate :smt001

asi es claudia es parecido al anterior, me resulto y pense que te habia enviado las gracias, pero parece que no (aunque no es pretexto, tengo miles de cosas que hacer), de todas formas GRACIAS CLAUDIA.

Con respecto a mi problema actual es solamente que tengo un textbox y ese valor lo quiero aalmecenar en la tabla pero no puedo. Caludia te envio el ejmplo:

Archivos Adjuntos

ejemploclaudia.zip (62,8 KB, 6 visitas)

Hola andree2525, estaba revisando tu codigo y realmente me gustaria k me explicaras que es lo k tiene k realizar el formulario por k no entiendo explicame por fa asi podre ayudarte

haber..si yo ingreso un numero en el text42, quiero que al presionar agregar1 me ingrese en la celda CodAuto, donde NumAuto sea igual a 1. Si ingreso un numero en text41 y luego presione agregar2 me ingrese en la celda CodAuto donde numauto sea igual a 2.Si ingreso un numero en text40 y luego presione agregar3 me ingrese en la celda CodAuto donde numauto sea igual a 3, eso..gracias por querer aydarme.........

espero que sea lo que necesites
saludos

Archivos Adjuntos

ejemploclaudia_325.zip (63,4 KB, 5 visitas)

Bueno espero k esto sea lo k necesitas sorry por la demora el trabajo tu entiendes :smt012

Archivos Adjuntos

ejemploclaudia_202.zip (63,5 KB, 5 visitas)