Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 problemas al grabar Bd
 Foro Bloqueado  Tema Bloqueado


Autor Temas
oonai
Starting Member

Venezuela
14 Posts
Mensajes - 09 Jul 2005 :  03:41:35  Ver Perfil  Enviar Email
Saludos.....
Tengo un problema al tratar de grabar un registro en una BD Access, usando una instruccion SQL,. Trate de grabar la Bd, usaando un recorset, y sue imposible, lo extraño, es que cuando sustituyo los las variables por valores si camina,, agradezco cualquier ayuda, Gracias . el codigo es:
<%
Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("tcalzado.mdb"))
conectar.execute "INSERT INTO registro(email,categoria,rif,nit,nomemp,nombre,direccion,ciudad,estado,pais,area,teleof1,teleof2,telefax,codcel,celular,website) VALUES ("'&email&'","'&categoria&'","'&nomemp&'","'&rif&'","'&nit&'","'&nombre&'","'&direccion&'","'&ciudad&'","'&estado&'","'&pais&'","'&area&'","'&tele1&'","'&tele2&'","'&tfax&'","'&codcel&'","'&celular&'","'&site&'")"
conectar.close
Set conectar = nothing
%>
me dice que jay un errrrrroooooo en el codigo



mastermx
Starting Member

Mexico
10 Posts
Posted - 12 Jul 2005 :  20:30:58  Ver perfil  Enviar e-mail  Visit mastermx's Homepage

Parece que hay un error en tu sentencia SQL, pues si ves el orden de tus campos no es el mismo que el de tus variables y las comillas de las variables estan mal escritas.

tu tienes: "'&email&'"
debe ser: '"&email&"'

RECUERDA QUE PARA VARIABLES CON VALORES NUMERICOS LAS COMILLAS SOLO SON DOBLES, Ejemplo: "&CategoriaID&"


en cuanto al orden tienes:
registros(email,categoria,rif...)VALUES ('"&email&"','"&categoria&"','"&nomemp&"'...)

y debe ser:
registros(email,categoria,rif...)VALUES ('"&email&"','"&categoria&"','"&rif&"'...)
-------------------------------------------
Puedes tambien probar de esta otra forma:
-------------------------------------------
'creamos el objeto coneccion
Set oConn=Server.CreateObject("ADODB.Connection")

'utilizo el driver JET
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("tcalzado.mdb")

'efectulo la consulta SQL a la tabla registro y la abro
Set RS = Server.CreateObject ("ADODB.Recordset")
SQL="SELECT * FROM registro;"
RS.Open SQL,oConn,1,3

'agrego los valores a los campos correspondientes

RS.AddNew
RS("email")=email
RS("categoria")=categoria
RS("rif")=rif
.
.
.
'finalmente actualizo los valores agregados
RS.Update

'limpio y cierro los objetos
RS.Close
Set RS = nothing
oConn.Close
Set oConn = nothing
-----------------------------------------

Bien esas son mis observaciones espero te sirvan.

Saludos desde la Cd. de Mexico.

Inicio Pagina

Artemio
Starting Member

Mexico
8 Posts
Posted - 22 Jul 2005 :  16:31:18  Ver perfil  Enviar e-mail  Visit Artemio's Homepage
Alguna persona que me pueda ayudar, es muy importante ya conecte mi base de datos se supone que ya registra los datos y todo pero al momento de consultar mi base de datos (access) me aparecen los campos en blanco sin alguna información de la que le inserte... Gracias por su ayuda mi código es este:

<%
Request.Form("nombre")
Request.Form("apellidos")

Set oConn=Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("clientes1.mdb")

Set RS = Server.CreateObject ("ADODB.Recordset")
SQL="SELECT * FROM Proveedores;"
RS.Open SQL,oConn,1,3

'agrego los valores a los campos correspondientes

RS.AddNew
RS("NombreProveedor")=nombre
RS("NombreDelContacto")=apellidos

'finalmente actualizo los valores agregados
RS.Update

'limpio y cierro los objetos
RS.Close
Set RS = nothing
oConn.Close
Set oConn = nothing

%>

<html> <head> <title>Registro introducido </title> </head> <body>

<font face=arial size=2>
Gracias <b>
<% Response.Write(Request.Form("nombre"))%>
</b><br>

Registro introducido Gracias


<%
Dim conexion, registros, basedatos

basedatos = Server.MapPath("clientes1.mdb")

Set conexion = Server.CreateObject("ADODB.Connection")

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"

Set registros = conexion.Execute("SELECT * FROM Proveedores")

Do While Not registros.EOF

%>
<table border=1 bordercolor=orange width=100%>
<TD WIDTH=4%>
<font color=#zzbbzz face=arial size=2> <b> <%= registros.Fields("IdProveedor").Value %>
</td>

<TD width=48%>
<font color=#zzbbzz face=arial size=2><b> <%= registros.Fields("NombreProveedor").Value %>
</TD>

<TD width=48%>
<font color=#zzbbzz face=arial size=2><b> <%= registros.Fields("NombreDelContacto").Value %>
</TD>

</table>
<%
registros.MoveNext
Loop

registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>

Ese es el código TODO ME SALE "BIEN" PERO CUANDO REVISO LOS DATOS PUES NADA Y SOLO ESTAN LOS CAMPOS VACÍOS

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar