Conectar ao Banco

[DaniloTec 0]

Boa Tarde a Todos,Estou executando esse script e não esta funcionando.<%Set bco.micro = Server.CreateObject("ADODB.connection")bco.micro open("driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Manutencao\bancos\bco_manute.mdb")%>Aparece esse erro:Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01A8)Objeto necessário: 'Server.CreateObject(...)'/manutencao/ResForm_Manute.asp, line 14Alguem pode me ajudar.Grato.

[marvi 0]

Olha, abaixo segue dois tipos de conexão de banco de dados, um para banco SQL Server 2000 no caso com senha e outra com banco Access.

Os textos em negrito é o que você vai colocar para adaptar com a sua situação

 

Conexão com banco de dado SQL Server 2000:

<%

dim conn, varconn

' declarar variavel de necessario

 

sub abre_conexao

set conn = Server.createobject("adodb.connection")

varconn="Provider=SQLOLEDB.1;User ID=usuario do banco se tiver;PASSWORD=senha do banco se tiver;Initial Catalog=nome do orgao;Data Source=diretorio do banco;"

conn.Open VarConn

end sub

 

sub fecha_conexao

conn.close

set conn = nothing

end sub

%>

 

Conexão com banco de dados Access

<%

sub abre_conexao

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

Conn.Open "DBQ=" & server.mappath("diretorio do banco") & ";Driver={Microsoft Access Driver (*.mdb)}"

end sub

 

sub fecha_conexao

Conn.close

Set Conn =nothing

end sub

%>

[DaniloTec 0]

Deu certo.

 

Valew!!!

 

Mais pq o meu não deu certo??? O que esta errado???

 

 

 

Olha, abaixo segue dois tipos de conexão de banco de dados, um para banco SQL Server 2000 no caso com senha e outra com banco Access.

Os textos em negrito é o que você vai colocar para adaptar com a sua situação

 

Conexão com banco de dado SQL Server 2000:

<%

dim conn, varconn

' declarar variavel de necessario

 

sub abre_conexao

set conn = Server.createobject("adodb.connection")

varconn="Provider=SQLOLEDB.1;User ID=usuario do banco se tiver;PASSWORD=senha do banco se tiver;Initial Catalog=nome do orgao;Data Source=diretorio do banco;"

conn.Open VarConn

end sub

 

sub fecha_conexao

conn.close

set conn = nothing

end sub

%>

 

Conexão com banco de dados Access

<%

sub abre_conexao

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

Conn.Open "DBQ=" & server.mappath("diretorio do banco") & ";Driver={Microsoft Access Driver (*.mdb)}"

end sub

 

sub fecha_conexao

Conn.close

Set Conn =nothing

end sub

%>

[marvi 0]

Rapaz teoricamente a sua conexão deveria funcionar mas na pratica ocorre erros, talvez quando ele vai abrir com comando open o seu DBQ ele chama logo o diretorio e o outro que está funcionando chama DBQ=" & server.mappath("diretorio do banco"), ha um & server.mappath na sua execução, indicando o servidor...acredito que seja isso que deixe ele mais preciso, mas pesquise com calma sobre isso, pois nunca usei a sua sintaxe não.

 

Falou!