4 replies to this topic

[danilo.max]

Olá pessoal, o banco de dados que trabalho é o access e utilizo a seguinte conexão:

ObjConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\bd\meuBD.mdb;"

Só que não sei fazer a conexão com um BD sql, como faço?
o meu BD se chama BD2003.

Agradeço desde já

Broder ai dois metodos de conexão com SQL.

'------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
'ObjConn = "Provider=SQLOLEDB;Data Source=servidor;database=BD2003;uid=sa;pwd=;"

'------> MS SQL Server 6.x/7.x/2000 (Conexão ODBC) 
ObjConn = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=VirtuaStore;Initial Catalog=BD2003"

Se precisar de mais ajuda posta ai.

[luckynho]

OLÁ.... alguem poderia entrar em mais detalhes....

Ex: existe a possibilidade de eu puxar um banco de dados de outro computador, ex:

Pc que desenvolvo codigo, é o "servidor"
e o PC onde fica o banco SQL é o "PC2"

Tem como do servidor eu puxa o banco que está no pc2?

obs: está certo minha conexao?

<%
Dim objConn, objRs, bd, strQuery, strConnection

------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
ObjConn = "Provider=SQLOLEDB;Data Source=servidor;database=lucky_bd;uid=;pwd=;

'Seleciona da tabela contato
strQuery = "SELECT * FROM info"
Set ObjRs = objConn.Execute(strQuery)
%>
<%
------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
ObjConn = "Provider=SQLOLEDB;Data Source=\\pc2;database=lucky_bd;uid=sa;pwd=;

ComandoSQL = "SELECT * FROM info"
Set ObjRs = objConn.Execute(strQuery)

If Not objrs.EOF Then
  objrs.Move Request.QueryString("n")
%>

Edição feita por: luckynho, 16/05/2004, 03:48.

[Jhonathas.net]

é so vc botar o ip do servidor de onde está o Sql Server, ok


<%
ObjConn = "Provider=SQLOLEDB;Data Source=AQUI ENTRA O IP;database=lucky_bd;uid=sa;pwd=;

ComandoSQL = "SELECT * FROM info"
Set ObjRs = objConn.Execute(strQuery)

If Not objrs.EOF Then
objrs.Move Request.QueryString("n")
%>

[luckynho]

Olá... fiz a alteração como explicaram. e está me aparecendo o seguinte erro!!

<%
Dim objConn, objRs, bd, strQuery, strConnection

------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
ObjConn = "Provider=SQLOLEDB;Data Source=168.0.0.2;database=lucky_bd;uid=;pwd=;

'Seleciona da tabela contato
strQuery = "SELECT * FROM info"
Set ObjRs = objConn.Execute(strQuery)
%>

<%
------> MS SQL Server 6.x/7.x/2000 (Conexão OLEDB)
ObjConn = "Provider=SQLOLEDB;Data Source=168.0.0.2;database=lucky_bd;uid=;pwd=;

ComandoSQL = "SELECT * FROM info"
Set ObjRs = objConn.Execute(strQuery)

If Not objrs.EOF Then
  objrs.Move Request.QueryString("n")
%>

Tipo de erro:
Erro de compilação do Microsoft VBScript (0x800A0409) Constante de seqüência não finalizada /lucio/index.asp, line 5, column 80 ObjConn "Provider=SQLOLEDBC;Data Source=168.0.0.2;database=lucky_bd;uid=;pwd=;