Access - insertar registro

07/12/2004 - 15:41 por Alopez | Informe spam
Hola a Todos:

Tengo el siguiente problema, cuando quiero insertar un registro en una base
de datos Access con el siguiente codigo, me da un mensaje:

Esta pagina tiene acceso a un origen de datos en otro dominio

Y finalmente no inserta y tampoco me da un error

que puede ser, gracias

Alberto López
Chile
Sub Insertar()
Dim BDatos , strSQL,Form

Set bdatos=server.createobject("ADODB.connection")
set Form=document.forms("form1")

bdatos.connectionstring = strconecta
bdatos.mode=3 'Lectura=1,Escritura=2, Lectura/Escritura=3
bdatos.open

if bdatos.errors.count > 0 then
msgbox "Error en la conexion"
exit sub
else
strSQL="insert into Tabla(rut,nombre,direccion,profesion) values ('" &
form.text1.value & "','" & form.text2.value & "','" & form.text3.value &
"','" & form.profesion.value & "')"
bdatos.begintrans
bdatos.execute strsql
if bdatos.errors.count > 0 then
msgbox "Error en la insercion"
bdatos.rollback
else
bdatos.committrans
msgbox "Grabacion Exitosa"
end if
end if
end Sub
 

Leer las respuestas

#1 Gabriel
07/12/2004 - 16:23 | Informe spam
Donde esta el contenido de la variable STRCONECTA ????

Gabriel.


"Alopez" escreveu na mensagem
news:
Hola a Todos:

Tengo el siguiente problema, cuando quiero insertar un registro en una
base
de datos Access con el siguiente codigo, me da un mensaje:

Esta pagina tiene acceso a un origen de datos en otro dominio

Y finalmente no inserta y tampoco me da un error

que puede ser, gracias

Alberto López
Chile
Sub Insertar()
Dim BDatos , strSQL,Form

Set bdatos=server.createobject("ADODB.connection")
set Form=document.forms("form1")

bdatos.connectionstring = strconecta
bdatos.mode=3 'Lectura=1,Escritura=2, Lectura/Escritura=3
bdatos.open

if bdatos.errors.count > 0 then
msgbox "Error en la conexion"
exit sub
else
strSQL="insert into Tabla(rut,nombre,direccion,profesion) values ('" &
form.text1.value & "','" & form.text2.value & "','" & form.text3.value &
"','" & form.profesion.value & "')"
bdatos.begintrans
bdatos.execute strsql
if bdatos.errors.count > 0 then
msgbox "Error en la insercion"
bdatos.rollback
else
bdatos.committrans
msgbox "Grabacion Exitosa"
end if
end if
end Sub

Preguntas similares