Grabar datos

Que te lo impide?

Private Sub MibotonPreferido_Click()
Docmd.RunSql ("INSERT into Tu-Tabla(Campo1, Campo2) VALUES (" & Me.Cuadrocombinadox & ", '" & Me.Cuadrodetextoy & "')")
End Sub

Fíjate que en el valor de texto (para que entienda que es un texto) hay que 'encerrarlo' entre apostrofes (comillas simples) ==> ( ' )

Expando la secuencia para que lo veas mejor, pero evita los espacios (los añadiría al texto)
, ' " & Me.Cuadrodetextoy & " ') "

Un saludo E. Feijoo
P.D
Si quieres hacer un control (solo por eso de 'ver' lo que 'sale') puedes hacerlo así:

Private Sub MibotonPreferido_Click()
Dim Cadena as String
Cadena = "INSERT into Tu-Tabla(Campo1, Campo2) VALUES (" & Me.Cuadrocombinadox & ", '" & Me.Cuadrodetextoy & "')"
Debug.print Cadena
Stop
Docmd.RunSql ( Cadena )
End Sub

al llegar al Stop, se parara el código, y en la ventana de inmediato (hazla visible) veras lo que hay en Cadena, si (por ejemplo) en Me.Cuadrocombinadox <==> 23 y en Me.Cuadrodetextoy <==> Codorniz verías esto:

INSERT into Tu-Tabla(Campo1, Campo2) VALUES ( 23 , 'Codorniz')

(y seguiremos 'jugando' con el código) .



"carlos" escribió en el mensaje news:025001c395c3$34091e40$
yo ando detrás de conseguir que donde pone VALUES
(UnValor,DosValor, poner VALUES
(Me.Cuadrocombinadox,Me.Cuadrodetextoy,. ahora hago lo
mismo con Recorset.AddNew y funciona muy bien. pero creo
que hay que ir acostumbrandose a utilizar el SQL ¿a ti que
te parece?

Pues claro que puedes...asigna ese codigo al evento

Click de un botón de

comando y ya está.
Es que al tener campos independientes en el formulario,

que deseas grabar en

otra tabla, debes hacerlo asi: Bien mediante la SQl

mencionada, bien

mediante la apertura del consiguiente Recordset de la

tabla y grabarlo(Es

otra posibildiad)
Pero todo pasa, por lo dicho (Que es lo que tu quieres)

asignar el codigo

que sea, al evento Click del botón de comando.

Otro casi muy diferente sería si todos los campos del

formulario tuvieran

como origen de datos una tabla


Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.
"carlos" escribió

en el mensaje

news:08e801c39492$758396c0$
yo tengo una duda sobre correr la consulta, ¿es que no se
puede asociar ese código a un botón de comando por las
buenas y punto?


.

muchísimas gracias pero vuelvo a lo mismo. porque me
pones Docmd.Runsql, yo lo que quiero en no utilizar un
objeto de MS, pero no es porque le tenga manía, no, ni
mucho menos, ya estoy utilizando el objeto RecordSet para
hacer esto pero quería utilizar SQL. voy a intentar
hacerlo al hacer clic con un botón de comando

Que te lo impide?

Private Sub MibotonPreferido_Click()
Docmd.RunSql ("INSERT into Tu-Tabla(Campo1, Campo2)

VALUES (" & Me.Cuadrocombinadox & ", '" &
Me.Cuadrodetextoy & "')")

End Sub

Fíjate que en el valor de texto (para que entienda que

es un texto) hay que 'encerrarlo' entre apostrofes
(comillas simples) ==> ( ' )

Expando la secuencia para que lo veas mejor, pero evita

los espacios (los añadiría al texto)

. , ' " & Me.Cuadrodetextoy & " ') "

Un saludo E. Feijoo
P.D
Si quieres hacer un control (solo por eso de 'ver' lo

que 'sale') puedes hacerlo así:

Private Sub MibotonPreferido_Click()
Dim Cadena as String
Cadena = "INSERT into Tu-Tabla(Campo1, Campo2) VALUES ("

& Me.Cuadrocombinadox & ", '" & Me.Cuadrodetextoy & "')"

Debug.print Cadena
Stop
Docmd.RunSql ( Cadena )
End Sub

al llegar al Stop, se parara el código, y en la ventana

de inmediato (hazla visible) veras lo que hay en Cadena,
si (por ejemplo) en Me.Cuadrocombinadox <==> 23 y en
Me.Cuadrodetextoy <==> Codorniz verías esto:

INSERT into Tu-Tabla(Campo1, Campo2) VALUES (

23 , 'Codorniz')

(y seguiremos 'jugando' con el código) .



"carlos" escribió

en el mensaje news:025001c395c3$34091e40
$

yo ando detrás de conseguir que donde pone VALUES
(UnValor,DosValor, poner VALUES
(Me.Cuadrocombinadox,Me.Cuadrodetextoy,. ahora hago lo
mismo con Recorset.AddNew y funciona muy bien. pero creo
que hay que ir acostumbrandose a utilizar el SQL ¿a ti

que

te parece?

Pues claro que puedes...asigna ese codigo al evento

Click de un botón de

comando y ya está.
Es que al tener campos independientes en el formulario,

que deseas grabar en

otra tabla, debes hacerlo asi: Bien mediante la SQl

mencionada, bien

mediante la apertura del consiguiente Recordset de la

tabla y grabarlo(Es

otra posibildiad)
Pero todo pasa, por lo dicho (Que es lo que tu quieres)

asignar el codigo

que sea, al evento Click del botón de comando.

Otro casi muy diferente sería si todos los campos del

formulario tuvieran

como origen de datos una tabla


Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.
"carlos" escribió

en el mensaje

news:08e801c39492$758396c0$
yo tengo una duda sobre correr la consulta, ¿es que no

se

puede asociar ese código a un botón de comando por las
buenas y punto?


.

.

Hola de nuevo, Carlos.
Vamos a ver. Tu pregunta original era:
«yo tengo una duda sobre correr la consulta, ¿es que no se puede asociar ese
código a un botón de comando por las buenas y punto?»

La consulta a correr era:
Cadena = "INSERT into TuTabla(CampoTabla) VALUES ('" & Me.TxtClave & "');"
Docmd.Runsql(Cadena)

Y la respuesta de Eduardo y la mia fue: SI, si puedes...
Y te ponemos la sitaxis correcta para que asignes al evento Click de un
botón dicho código.

Luego continuas en otra parte del hilo con dudas sobre Values. Eduardo
Feijoo te pone un ejemplo operativo.

Y finalmente terminas en tu ultima exposicion diciendo que no quieres
utilizar Docmd.RunSql como objeto de MS (¿MS=Microsoft?) para correr la
consulta por que ya estas haciendolo con un objeto Recordset (Tambien de
Microsoft) en el evento Click del comando.

En resumidas cuentas y despues de leer todo detenidamente (Y te pido que no
te ofendas) tengo la sensacion de que no has captado lo que te deciamos
Eduardo y yo..

Resumiendo:
Tenemos el siguiente escenario:
Formulario con campos de una tabla+campos TXT independientes.
Objetivo: Grabar todos los campos presentes de dicho formulario en una Tabla
de tu MDB

Soluciones:
(A)Utilizar el objeto recordset de la tabla
(B) Utilizar lengiaje DDL, es decir ejecutar una consulta como en el ejemplo
que te hemos puesto.

¿Y donde colocamos el codigo de cualquiera de las dos soluciones (A) ó (B)?
En el evento Click de un Botón de comando.
Y eso es todo.


Saludos desde Valladolid
Francisco Javier García Aguado

http://www.buho.tk
http://www.clikear.com/webs/accessbhuo/
http://groups.msn.com/Access2000VisualBasic/

Gracias por no enviarme preguntas a mi correo.

Si señor, eso es contestar (maremia, maremia lo que hace un buen buhito de
esos del cantabrico que corren que se las pelan)

SALUDOS.
julian-valencia-españa

Muy bien Francisco Javier, pero ¿Desde cuando me llamo Eduardo?..
Ya pase una vez por la 'Pila' (y berrearía como todos, coño, eso de te envuelvan bien envuelto y te mojen a traición... no creo que le guste a nadie) ;-)

Verifica 'la base de datos' y cambia ese nombre por el adecuado ..Enrique..( es que con el paso del tiempo le he tomado cariño)

Un cordial saludo Enrique Feijoo
P.D.
Creo que su confusión, parte de los ejemplos en la ayuda ( a mi me 'lió' un rato, hasta que me di cuenta, que las SQL, las escribían directamente en el editor de consultas). y por ello la sintaxis es .. digamos que diferente, ejecutar una consulta (indispensable para obtener resultados) es lo mismo que lo que nosotros proponemos Docmd.RunSQL, con la ventaja de que al no 'necesitar' traducirla el compilador a un sub-nivel. es mas rápido (si la has escrito bien claro)...en otro caso ERROR y a adivinar el Bug.



"Búho" escribió en el mensaje news:
| Hola de nuevo, Carlos.
| Vamos a ver. Tu pregunta original era:
| «yo tengo una duda sobre correr la consulta, ¿es que no se puede asociar ese
| código a un botón de comando por las buenas y punto?»
|
| La consulta a correr era:
| Cadena = "INSERT into TuTabla(CampoTabla) VALUES ('" & Me.TxtClave & "');"
| Docmd.Runsql(Cadena)
|
| Y la respuesta de Eduardo y la mia fue: SI, si puedes...
| Y te ponemos la sitaxis correcta para que asignes al evento Click de un
| botón dicho código.
|
| Luego continuas en otra parte del hilo con dudas sobre Values. Eduardo
| Feijoo te pone un ejemplo operativo.
|
| Y finalmente terminas en tu ultima exposicion diciendo que no quieres
| utilizar Docmd.RunSql como objeto de MS (¿MS=Microsoft?) para correr la
| consulta por que ya estas haciendolo con un objeto Recordset (Tambien de
| Microsoft) en el evento Click del comando.
|
| En resumidas cuentas y despues de leer todo detenidamente (Y te pido que no
| te ofendas) tengo la sensacion de que no has captado lo que te deciamos
| Eduardo y yo..
|
| Resumiendo:
| Tenemos el siguiente escenario:
| Formulario con campos de una tabla+campos TXT independientes.
| Objetivo: Grabar todos los campos presentes de dicho formulario en una Tabla
| de tu MDB
|
| Soluciones:
| (A)Utilizar el objeto recordset de la tabla
| (B) Utilizar lengiaje DDL, es decir ejecutar una consulta como en el ejemplo
| que te hemos puesto.
|
| ¿Y donde colocamos el codigo de cualquiera de las dos soluciones (A) ó (B)?
| En el evento Click de un Botón de comando.
| Y eso es todo.
|
| --
|
| Saludos desde Valladolid
| Francisco Javier García Aguado
|
| http://www.buho.tk
| http://www.clikear.com/webs/accessbhuo/
| http://groups.msn.com/Access2000VisualBasic/
|
| Gracias por no enviarme preguntas a mi correo.
|
|