ASP - Ayuda urgente con Base de dato

Ayuda urgente con Base de dato

Publicado por deysi (6 intervenciones) el 03/03/2006 18:56:03

Hola a todos quiero registrar usuarios en una base de datos desde mi web es caso es que no puedo
soy principiante y la verdad tengo muchas dudas alguienn me puede ayudar por favor este es mi codigo
pero no logro insertar datos a mi base, cree un odbc que se llama COnexion.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
</HEAD>

<BODY bgcolor="#FB9925">
<% dim con,rs,sql,Nombre,Apellidos,Correo,Puesto,Departamento,Curso

inom = Trim(request.form("txtnom"))
iapell = Trim(request.form("txtapell"))
icorreo = Trim(request.form("txtcorreo"))
ipuesto = Trim(request.form("txtpuesto"))
idepa = Trim(request.form("txtdepartamento"))
icurso = Trim(request.form("txtcurso"))

<! if Len("txtnom") = "" then
<! rsponse.write("<center>Debes rellenar todos los campos</center>")
<! else
<! set con = server.CreateObject("ADODB.Connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("users.mdb")
set rs = server.CreateObject("ADODB.Recordset")
sql = "insert into Tabla1 ("&Nombre&","&Apellidos&","&Correo&","&Puesto&",Departamento&","&Curso")"
Set con = server.CreateObject("ADODB.Connection")
con.execute(sql)
con.close()

<!sql = "Select * From Tabla1 Order By Nombre"

rs.open sql,con,1,2
rs.addnew
rs.fields("Nombre") = Nombre
rs.fields("Apellidos") = Apellidos
rs.fields("Correo") = Correo
rs.fields("Puesto") = Puesto
rs.fields("Departamento") = Departamento
rs.fields("Curso") = Curso
rs.update
rs.movefirst

do until rs.eof%>
<table border=7 BORDERCOLOR="Black" align="center" width=600>
<tr>
<td>Nombre.:<td><%=rs.fields("Nombre")%></td>
</tr>

<tr>
<td>Apellidos.:</td><td><%=rs.fields("Apellidos")%></td>
</tr>

<tr>
<td>Correo</td><td><%=rs.fields("Correo")%></td>
</tr>

<tr>
<td>Puesto:</td><td><%=rs.fields("Puerto")%></td>
</tr>
<tr>
<td>Departamento:</td><td><%=rs.fields("Departamento")%></td>
</tr>
<tr>
<td>Curso:</td><td><%=rs.fields("Curso")%></td>
</tr>
 

</table>
<%
rs.movenext
loop
rs.close
con.close
end if

%>

</BODY>
</HTML>

de ante mano gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

RE:Ayuda urgente con Base de dato

Publicado por Santos Pairazamán (415 intervenciones) el 06/03/2006 16:14:07

Lo q primero q observo es que al realizar el insert no estas utilizando las variables donde almacenaste los datos
ejm : inom e iapell son tus variables

inom = Trim(request.form("txtnom"))
iapell = Trim(request.form("txtapell"))

Y tú haces el insert asi

"insert into Tabla1 ("&Nombre&","&Apellidos&","& ....
en vez de Nombre y apellidos debe ir tus variable y si lo haces de esta manera verifica q sea el orden correcto de tus campos en la tabla ya q d lo contrario tendría errores de inserción
se acostumbra un insert into tutabla (campo1,campo2....) values(dato1,dato2,...)

Por otro lado realizar dos conexiones y actualizaciones con esto y si vez no utilizas tus variables como en el caso anterior

rs.open sql,con,1,2
rs.addnew
rs.fields("Nombre") = Nombre
rs.fields("Apellidos") = Apellidos

Decídet por uno de los métodos, yo me inclino por las sentencias SQL pero para esto tienes q sabes la sintaxis de cada una de ellas Insert/Update and Delete

Hasta pronto.

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar