Señores:
Mucho les agradecere si me pudieran ayudar en encontrar el error que tengo y no detecto aun donde pueda estar.
(Adjunto el codigo de mi pequeño programa para mayor comprension).
La idea es que capturo en un form (plantilla)
los datos de PAIS y quiero grabarlo en mi BD, nada mas.
Para ello, primeramente debo ver si ya dicho Pais a registrar esta guardado o no. Entonces, al hacer la cadena SQL de busqueda con el codigo de dicho pais es que me sale el sgte. mensaje de error:
"Error de sintaxis en la cláusula FROM. "
Probé tanto con:
sSQL="SELECT * FROM Pais WHERE (CodigoPais='"&pCodPais&"');"
como con:
sSQL="SELECT * FROM Pais WHERE (CodigoPais="&pCodPais&");"
...pero nada...me sigue saliendo el error.
Espero me puedan ayudar. Muchas gracias de antemano
Franco
([email protected])
<body>
<%
pNomPais=Request.form("NomPais")
pCodPais=Request.form("CodPais")
Dim sSQL,conn,RS,Temp,MiID,RsId,cSql
'-------------------INSERTAR PAIS
set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open "ieee3"
sSQL="SELECT * FROM Pais WHERE (CodigoPais='"&pCodPais&"');"
Response.Write sSQL & "<br>"
'set RS=conn.Execute(sSQL)
'RS.Open sSQL,conn, , , adCmdTable
RS.Open sSQL,conn,1,3,2
if not RS.EOF then
Response.Write "El pais ya fue ingresado. "
Response.Write "Por favor, escoja otro."
else
'-------------------INSERTAR PAIS
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open "ieee3"
sSQL="INSERT INTO Pais " & "(Nombre, CodigoPais)"
sSQL=sSQL & " VALUES ('"&pNomPais&"', '"&pCodPais &"')"
set RS=conn.Execute(sSQL)
'RS.Open sSQL,conn,1,3,2
Response.Write "Nombre del Pais: " &pNomPais& "<br>"
Response.Write "Codigo del Pais ingresado: " &pCodPais& "<br>"
End if
RS.Close
conn.Close
set RS=nothing
set conn=nothing
%>
</body>
</html>
