Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Clóves

Erro Microsoft OLE DB Provider for SQL Server (0x80040E14)

Por , em ASP Clássico

Recommended Posts

Clóves    0

Clóves
Postado

Estou tem problemas para fazer um select na minha página de login, aparece o seguinte erro:

 

Microsoft OLE DB Provider for SQL Server (0x80040E14)

Line 1: Incorrect syntax near ','.

/gsbrasil/login.asp, line 40

 

Esse é o código da página

 

ASP
<%

        '// Rede GS Brasil                                              //

        '// © Copyright - 2007 - 2007                //

       

        '// Desenvolvido por: Clóves Valadares  //

       

        '//___________________//________________//

        '//                          Página Login                    //

        '//___________________//________________//

       

        '// Criado em: 11/10/2007                            //

        '// Alterado em: 09/11/2007                          //

        '// Alterado por: Clóves Valadares.          //     

       

        %><!-- #Include File = "Includes/Global.asp" --><%

        Response.Expires = 0

        Dim strSQL

        Dim objRst

        Dim objCon

        Dim strConta

        Dim strDigito

        Dim strSenha

        Session ("Login") = ""

        strConta = Trim(Request.Form("txtconta"))

        strDigito = Trim(Request.Form("txtdigito"))

        strSenha = Trim(Request.Form("txtsenha"))

       

        Set objRst = Nothing

       

        strSQL = "EXEC procLOGIN '" & strSenha & "', " & strConta & ", " & strDigito

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

        objCon.Open Session ("Conexao")

        Set objRst = Server.CreateObject ("ADODB.RecordSet")

                                                                                                                                                                                                                               

        'Response.Write "<pre>" + strSQL + "</pre>"

        'Response.End

                                                                                                                                                       

        '// Abre o RecordSet // 

        'Set objRst = AbreRecordSet ( Session ("Conexao"), strSQL, 3, 2)

        [color="#FF0000"]objRst.Open strSQL, objCon, 0, 1[/color]

 

        With objRst

               

                If .State And Not .EOF Then

                        Session ("Login")            =       "OK"

                        Session ("ID")                  =       .Fields("ID_ASSOCIADO")

                        Session ("Associado")   =       .Fields("NM_ASSOCIADO")

                        Session ("Dt_Cadastro") =       .Fields("DT_CADASTRO")

                        Session ("Conta")            =       .Fields("ID_CONTA")

                        Session ("Digito")              =       .Fields("DIGITO")

                        Session ("Foto")                =       .Fields("FOTO")

                        If .Fields("DT_ACESSO") = " " then

                                Session ("Dt_Acesso") = now()

                        Else

                                Session ("Dt_Acesso")   =       .Fields("DT_ACESSO")

                        End If

                else

                        Session ("Login")       =       "NotOK"

                        Session ("Pagina")      =       "default.asp"

                        Response.Write("<script language='javascript'>alert('Login Falhou! Tente Novamente!')</script>")

                End If

                If .State Then .Close

                Set objRst = Nothing

        End With

       

%>

<html>

<head>

<title></title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta http-equiv="refresh" content="0;URL=<%= Session("Pagina") %>">

</head>

 

<body>

</body>

</html>

 

Essa proc é um select

 

Alguém pode me ajudar???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

bom, pelo que vi você está tentando abrir um recordset sem string.. pois você comentou a string com uma aspas simples...

ou comente tbm essa linha vermelha ai do codigo ou tire o comentario da string de cima...

 

olha soh como está:

'// Abre o RecordSet //
'Set objRst = AbreRecordSet ( Session ("Conexao"), strSQL, 3, 2)
objRst.Open strSQL, objCon, 0, 1

está vendo??

 

ele tenta abrir (objRst.Open), mas nao consegue, pois o Set objRst está comentado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito