[Resolvido] Conexão com erro!

flneves · Julho 3, 2008

Pessoal,

Estou tentando conectar ao servidor (hoteldaweb) é a page apresenta esse erro:

Microsoft JScript compilation  error '800a03ec'

Expected ';'

/Connections/con_adm.asp, line 9

Set con_adm = Server.CreateObject("ADODB.Connection")"
----^

A página está assim:

<% linha 01
// FileName="Connection_odbc_conn_dsn.htm" linha 02
// Type="ADO"  linha 03
// DesigntimeType="ADO" linha 04
// HTTP="false" linha 05
// Catalog="" linha 05
// Schema="" linha 06
linha 07
Set con_adm = Server.CreateObject("ADODB.Connection")" linha 08
Con_adm.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\dados\teste.mdb;Uid=alala;Pwd=fiofio;" [color="#FF0000"][b]linha 09[/b][/color]
%>

O erro é na conexão, se alguem puder ajudar!!!!

Abraços

Ted k' · Julho 4, 2008

você está usando o Language="JScript", essa conexão está correta

use o Language="VBScript"

não está nessa página, deve está na página principal onde está chamando esse include

flneves · Julho 4, 2008

você está usando o Language="JScript", essa conexão está correta

use o Language="VBScript"

não está nessa página, deve está na página principal onde está chamando esse include

Ficou assim:

<%@Language="VBScript" CODEPAGE="1252"%>

Ai deu esse erro:

Microsoft VBScript compilation error '800a0401'

Expected end of statement

/Index.asp, line 6

var Recordset1 = Server.CreateObject("ADODB.connection");

hargon · Julho 4, 2008

Tira o ;

flneves · Julho 4, 2008

Tira o ;

Hargon,

Tirei todos os ; e ai deu isso ae:

Microsoft VBScript runtime  error '800a000d'

Type mismatch: 'var'

/Index.asp, line 5

Segue abaixo o code da page:

<%@Language="VBScript" CODEPAGE="1252"%>
<!--#include file="Connections/con_adm.asp" -->

<%
var Recordset1 = Server.CreateObject("ADODB.connection")
Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"
Recordset1.ActiveConnection = MM_con_adm_STRING
Recordset1.Source = "SELECT * FROM d_pessoais"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2	
Recordset1.LockType = 1
Recordset1.Open()
var Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p><%=(Recordset1.Fields.Item("ID").Value)%>
</p>
<p><%=(Recordset1.Fields.Item("email").Value)%></p>
<p><%=(Recordset1.Fields.Item("nome").Value)%></p>
<p><%=(Recordset1.Fields.Item("endereco").Value)%></p>
<p><%=(Recordset1.Fields.Item("cidade").Value)%></p>
<p><%=(Recordset1.Fields.Item("estado").Value)%></p>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
%>

Ted k' · Julho 4, 2008

tira o "var" e colocar "dim"

flneves · Julho 4, 2008

tira o "var" e colocar "dim"

Ted,

Troquei:

<%
dim Recordset1 = Server.CreateObject("ADODB.connection")
Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"
Recordset1.ActiveConnection = MM_con_adm_STRING
Recordset1.Source = "SELECT * FROM d_pessoais"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2	
Recordset1.LockType = 1
Recordset1.Open()
var Recordset1_numRows = 0
%>

Mas, deu esse pau!

Microsoft VBScript compilation  error '800a0401'

Expected end of statement

/Index.asp, line 5

dim Recordset1 = Server.CreateObject("ADODB.connection")
---------------^

Salgado · Julho 4, 2008

Quando for criar objetos use SET e não DIM.

flneves · Julho 4, 2008

Quando for criar objetos use SET e não DIM.

Salgado,

Fica assim?

<%
Set Recordset1 = Server.CreateObject("ADODB.connection")

Ai deu esse pau:

ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/Index.asp, line 6

Segue código alterado:

<%@Language="VBScript" CODEPAGE="1252"%>
<!--#include file="Connections/con_adm.asp" -->

<%
Set Recordset1 = Server.CreateObject("ADODB.connection")
Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"
Recordset1.ActiveConnection = MM_con_adm_STRING
Recordset1.Source = "SELECT * FROM d_pessoais"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2	
Recordset1.LockType = 1
Recordset1.Open()
var Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p><%=(Recordset1.Fields.Item("ID").Value)%>
</p>
<p><%=(Recordset1.Fields.Item("email").Value)%></p>
<p><%=(Recordset1.Fields.Item("nome").Value)%></p>
<p><%=(Recordset1.Fields.Item("endereco").Value)%></p>
<p><%=(Recordset1.Fields.Item("cidade").Value)%></p>
<p><%=(Recordset1.Fields.Item("estado").Value)%></p>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
%>

Se puder me ajuda! Preciso entregar isso amanhã de manhã!

hargon · Julho 4, 2008

Verifica se você já não faz conexão com o banco dentro do include.

Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"

Pela mensagem, já existe uma conexão criada.

flneves · Julho 4, 2008

O arquivo da conexao ta assim:

<%
// FileName="Connection_odbc_conn_dsn.htm"
// Type="ADO" 
// DesigntimeType="ADO"
// HTTP="false"
// Catalog=""
// Schema=""
Set con_adm = Server.CreateObject("ADODB.Connection")
Con_adm.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\dados\teste.mdb;Uid=fabio;Pwd=neves;"
%>

Como devo deixá-lo?

Ted k' · Julho 4, 2008

então pq está criando o ADODB.connection novamente?

retire essa linha, pois já tem sua conexão!

Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"

troque o Connection por RecordSet nessa linha

Set Recordset1 = Server.CreateObject("ADODB.connection")

flneves · Julho 4, 2008

então pq está criando o ADODB.connection novamente?

retire essa linha, pois já tem sua conexão!
Con_adm.Open "DSN=con_adm;Uid=fabio;Pwd=neves;"
troque o Connection por RecordSet nessa linha
Set Recordset1 = Server.CreateObject("ADODB.connection")

Ted,

Refiz as alterações sugeridas, ai deu esse pau:

Microsoft VBScript runtime  error '800a01a8'

Object required: 'Con_adm'

/Connections/con_adm.asp, line 9

Onde a linha 9 tem:

CODE

<%// FileName="Connection_odbc_conn_dsn.htm"
// Type="ADO" 
// DesigntimeType="ADO"
// HTTP="false"
// Catalog=""
// Schema=""
Set Recordset1 = Server.CreateObject("ADODB.connection")
Con_adm.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\dados\teste.mdb;Uid=fabio;Pwd=neves;"
%>

Cara não sei mais o que fazer pra resolver isso!

hargon · Julho 4, 2008

Set Con_adm = Server.CreateObject("ADODB.connection")

Con_adm.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\dados\teste.mdb;Uid=fabio;Pwd=neves;"

Vinicius Ianni · Julho 4, 2008

Bom Dia !

Flneves, eu uso assim no arquivo q faz a conexão:

dsn="DBQ=" & Server.Mappath("../bd/meubd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

e depois faço assim nas outras páginas:

set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn

stql = "Select * from menu"
Set rs = conn.Execute(stql)

Vê se assim te ajuda.

Abraços,

Vinicius Ianni

flneves · Julho 6, 2008

Bom Dia !

Flneves, eu uso assim no arquivo q faz a conexão:
dsn="DBQ=" & Server.Mappath("../bd/meubd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
e depois faço assim nas outras páginas:
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn

stql = "Select * from menu"
Set rs = conn.Execute(stql)
Vê se assim te ajuda.

Abraços,

Vinicius Ianni

Vinícius,

Obrigado pela ajuda, mas sou novato em desenvolvimento e não soube editar o código acima postado para testar será que você podia me ensinar a editá-lo?

Obrigado

flneves · Julho 7, 2008

Pessoal,

Depois de tentar tudo que postaram aqui ainda nao consegui resolver esse erro:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/Index.asp, line 8

O código da página de conexão está assim:

<%
Set ConnAdmonline = Server.CreateObject("ADODB.Connection")
ConnAdmonline.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\bd\admonline.mdb;Uid=lalalala;Pwd=lelelele;"
 %>

E o do index, que tem o include da conexão está assim, a linha a colorida é a desgraçada em questão!

CODE

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/ConnAdmonline.asp" -->
 
<%
Dim Recordset1
Dim Recordset1_numRows
 
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = ConnAdmonline_STRING
Recordset1.Source = "SELECT * FROM usuário"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
 
Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<p><%=(Recordset1.Fields.Item("Código").Value)%>
</p>
<p><%=(Recordset1.Fields.Item("matricula").Value)%></p>
<p><%=(Recordset1.Fields.Item("nome").Value)%></p>
<p><%=(Recordset1.Fields.Item("sobrenome").Value)%></p>
<p><%=(Recordset1.Fields.Item("email").Value)%></p>
<p> </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

flneves · Julho 14, 2008

Alguem pode ajudar?

Pessoal,

Depois de tentar tudo que postaram aqui ainda nao consegui resolver esse erro:
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/Index.asp, line 8
O código da página de conexão está assim:
<%
Set ConnAdmonline = Server.CreateObject("ADODB.Connection")
ConnAdmonline.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\vhosts\admonline.com.br\httpdocs\bd\admonline.mdb;Uid=lalalala;Pwd=lelelele;"
 %>
E o do index, que tem o include da conexão está assim, a linha a colorida é a desgraçada em questão!

CODE

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%

Dim Recordset1

Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = ConnAdmonline_STRING

Recordset1.Source = "SELECT * FROM usuário"

Recordset1.CursorType = 0

Recordset1.CursorLocation = 2

Recordset1.LockType = 1

Recordset1.Open()

Recordset1_numRows = 0

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<html>

<head>

<title>Untitled Document</title>

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

</head>

<body>

<%=(Recordset1.Fields.Item("Código").Value)%>



<%=(Recordset1.Fields.Item("matricula").Value)%>

<%=(Recordset1.Fields.Item("nome").Value)%>

<%=(Recordset1.Fields.Item("sobrenome").Value)%>

<%=(Recordset1.Fields.Item("email").Value)%>

 

</body>

</html>

<%

Recordset1.Close()

Set Recordset1 = Nothing

%>

hargon · Julho 14, 2008

Recordset1.ActiveConnection = ConnAdmonline

flneves · Julho 16, 2008

Vlw a todos!!!! Resolvido!

Arquivado

[Resolvido] Conexão com erro!

Recommended Posts

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0