[Resolvido] com Conexão SQL 2005

[Boris 0]

Galera eu faço alguma coisa de programação ASP so que utilizando BD Access so que agora apreceu pra desenvolver algo pra SQL 2005 e estou com algumas duvidas como por exemplo:

 

qual seria o script de conexão com o banco SQL ???

 

Seria algo assim:

 

<%
Dim SQL
Dim Dados
Dim Banco

	DataSource="Provider=SQLOLEDB.1;SERVER=server;DATABASE=meudatabase;UID=sa;PWD=meupwd"	
			 Set Banco = Server.CreateObject("ADODB.Connection")
	Banco.Open DataSource
	
	SQL = "SELECT codigo,descricao FROM produto"
	Dados = Banco.Execute(SQL)
%>

<%=Dados("Codigo") %> 
<%=Dados("Descricao")%>

 

No Caso da linha, DataSource="Provider=SQLOLEDB.1;SERVER=server;DATABASE=meudatabase;UID=sa;PWD=meupwd" o meudatabase eu colocaria o que ?

 

No Access colocaria por exemplo c:\sistema\bd\bd.mdb e no caso do Sql como faria...

 

Obrigado. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[Ted k' 126]

o mnome da sua base de dados, você tem que criar uma, é igual ao mysql

 

olha como o cara aqui cria uma

http://www.macoratti.net/sqlsv_bd.htm

[Boris 0]

A base de Dados eu tenho já pronta eu preciso criar a conexao do asp com o banco....

 

é isso que não estou sabendo fazer....

[Ted k' 126]

é como você mostrou no exemplo, está certa, coloque o o servidor, o nome da base de dados, login e senha, está dando algum erro??

[Boris 0]

Sim está dando o seguinte erro.

 

A chamada de procedimento remoto falhou e não foi executada.

 

a Conexao está assim:

 

<%Dim SQL
	Dim Dados
	Dim Banco

	DataSource="Provider=SQLOLEDB.1;SERVER=server;DATABASE=Sistema\SQLEXPRESS\Banco;UID=sa;PWD=cmax2207"	
				Set Banco = Server.CreateObject("ADODB.Connection")
	Banco.Open DataSource
	
	SQL = "SELECT * FROM dbo.bancos"
	Dados = Banco.Execute(SQL)
%>

<%=Dados("nome_banco") %><%=Dados("banco")%>

[Ted k' 126]

se server deve ser "localhost" e seu banco deve ter um nome, e não um "caminho"

[Boris 0]

Ok, vamos lá então eu alterei o banco para localhost e por via das duvidas alterei a senha do meu banco para 12345

 

<%Dim SQL
	Dim Dados
	Dim Banco

	DataSource="Provider=SQLOLEDB.1;SERVER=server;DATABASE=localhost;UID=sa;PWD=12345"	
				Set Banco = Server.CreateObject("ADODB.Connection")
	Banco.Open DataSource
	
	SQL = "SELECT * FROM dbo.bancos"
	Dados = Banco.Execute(SQL)
%>

<%=Dados("nome_banco") %><%=Dados("banco")%>

so que continua aparecendo o mesmo erro.

 

-2147467259 (0x80004005)

 

Lembrando que o meu banco fica em um servidor da rede.

[Ted k' 126]

man, leia o que passei:

 

se server deve ser "localhost" e seu banco deve ter um nome, e não um "caminho"

 

<%
Dim SQL
Dim Dados
Dim Banco

DataSource="Provider=SQLOLEDB.1;SERVER=localhost;DATABASE=nome_do_banco_que_criei;UID=sa
;PWD=12345"
Set Banco = Server.CreateObject("ADODB.Connection")
Banco.Open DataSource
%>

[Boris 0]

ok, bom eu fiz alguns testes aqui descobri que não é a programação é o fato de ser uma pagina em ASP

 

 

Pra você ter uma ideia criei uma pagina.asp sem programação alguma e deu o mesmo erro..

 

 

Agora que não entendi nada, testei tanto no IE quanto no Mozila e deu o mesmo erro.

[hargon 64]

O que retornou a pagina.asp que você executou? Qual o erro?

[Boris 0]

Galera, valew consegui resolver atraves deste scrip de conexao.

 

set conexao=server.CreateObject("adodb.connection")

dados_sys = "Provider=sqloledb;Data Source=localhost;Initial Catalog=banco;User Id=User;Password=Senha;"

conexao.open dados_sys

Obrigado a todos.

[hargon 64]

Bacana. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif