Error en INSERT INTO
Publicado por Karla (9 intervenciones) el 30/07/2003 19:01:01
Hola a todos, espero me pueda ayudar tengo esta broncota, me merca error en el insert into, pero a lo que yo se esta bien, les enseño mi codigo, para ver si alguien me puede ayudar
set conna = Server.CreateObject ("ADODB.Connection")
conna.Open "lista"
set ra=CreateObject("ADODB.Recordset")
sqltxt= "SELECT Codigo FROM egresados WHERE Codigo = '" & codigo3 & "'"
ra.open sqltxt,conna
if ra.EOF then
msg="Codigo No registrado favor de verificar"
else
ssqltext = "INSERT INTO egresados3 ( codigo, miembros_gastos,......)" & _
"VALUES ( '" & codigo3 & "', " & miembros_gastos3 & ",........)"
conna.execute ssqltext (<- Aqui es donde me marca el error, en esta linea)
conna.Close
msg="DATOS GUARDADOS EXITOSAMENTE"
end if
ra.close
set ra=nothing
conna.close
set conna=nothing
set conna = Server.CreateObject ("ADODB.Connection")
conna.Open "lista"
set ra=CreateObject("ADODB.Recordset")
sqltxt= "SELECT Codigo FROM egresados WHERE Codigo = '" & codigo3 & "'"
ra.open sqltxt,conna
if ra.EOF then
msg="Codigo No registrado favor de verificar"
else
ssqltext = "INSERT INTO egresados3 ( codigo, miembros_gastos,......)" & _
"VALUES ( '" & codigo3 & "', " & miembros_gastos3 & ",........)"
conna.execute ssqltext (<- Aqui es donde me marca el error, en esta linea)
conna.Close
msg="DATOS GUARDADOS EXITOSAMENTE"
end if
ra.close
set ra=nothing
conna.close
set conna=nothing
Valora esta pregunta


0