Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 conexão em um banco de dados Atualizado em 06/08/2007 ás 14:35:00

Postado em 06/08/2007 ás 12:57:00

bom dia passoal, eu estou com um problemas com conexão em um banco de dados sql server 2005 express, fiz a instalação do servidor local, e com autenticação no windows, implementei o seguinte código na páginas ASP:


<% Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn= "Driver={SQL Server};Server=MARLON-Y2M2\SQLEXPRESS;Database=BANCO;Trusted_Connection=Yes;"
comando = "select * from clientes"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open comando, MyConn
response.write RS("nome")
RS.Close
Set RS = Nothing
MyConn.Close
Set MyConn= Nothing
%>


Erro:


Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][SQL Server]Cannot open database "BANCO" requested by the login. The login failed.
______________________________________________________________________________


pelo que pesquisei encontrei as seguintes caracteristicas:


Trusted_Connection=Yes - server para definir a conexão confiavel


MARLON-Y2M2\SQLEXPRESS - servidor\instância


 


Muito obrigado e aguardo alguma resposta


 


 




 



Postado em 06/08/2007 ás 14:35:00

Fala Alan,


Vou postar uma string de conexão que rola legal comigo, não sei se vai te ajudar, testa aí ok? Na 1ª página eu acesso direto, já na 2ª uso uma global.asa e defino td lá, e pego os dados de lá...


1º Página


strCon = "Driver={SQL Server};Server=tucuma\tucuma2000,2585;Database=portaljur;Uid=portaljur-app;Pwd=adv-t3k;"

onde:


Server=tucuma\tucuma2000 => Endereço físico do teu BD


2585 => número da porta de acesso


Database=portaljur => nome do BD


Uid=portaljur-app => usuário


Pwd=adv-t3k => senha


------------------------------------------------------------------------------------ // -------------------------------------


2ª Página


Conexão Global.asa


SCRIPT LANGUAGE=VBScript RUNAT=Server>


'You can add special event handlers in this file that will get run automatically when
'special Active Server Pages events occur. To create these handlers, just create a
'subroutine with a name from the list below that corresponds to the event you want to
'use. For example, to create an event handler for Session_OnStart, you would put the
'following code into this file (without the comments):


'Sub Session_OnStart
'**Put your code here **
'End Sub


'EventName              Description
'Session_OnStart        Runs the first time a user runs any page in your application
'Session_OnEnd          Runs when a user's session times out or quits your application
'Application_OnStart    Runs once when the first page of your application is run for the first time by any user
'Application_OnEnd      Runs once when the web server shuts down


Sub Application_OnStart
        session.LCID = 1046
        server.ScriptTimeout = 900000
  'Application("strConn") = "Provider=SQLOLEDB.1;Password=basanet123;Persist Security Info=True;User ID=basanet;Initial Catalog=basanet;Data Source=sapucaia\bd"
  Application("strConnBC") = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sisbc_user;Password=hhvvss;Initial Catalog=sisbc;Data Source=jenipapo"
  Application("strConn") = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=portaljur-app;Password=adv-t3k;Initial Catalog=portaljur;Data Source=tucuma\tucuma2000"
      
End Sub


Sub Session_OnStart
  Session("UsuarioLogado")  = ""
  Session("Login") = ""
  Session("Dominio") = ""
End Sub


Sub Session_OnEnd
  set Session("UsuarioLogado") = nothing
  set Session("Login")    = nothing
  set Session("Dominio")   = nothing
End Sub


Sub Application_OnEnd
  Set Application("strConn") = nothing
  Set Application("strConnBC") = nothing
  
End Sub


------------------------------------------------------------- // --------------------------------- // ----------------------


Abaixo um cabeçalho para você colocar na sua página para poderes trabalhar, só mude a SQL ok?


</SCRIPT>


Dim sql
sqlADV = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from sapj2000..vw_advogados_terc where ai_nivel in (2,3) order by at_nome"


set objCmm  = CreateObject("ADODB.Connection")
set sqlC  = server.CreateObject("ADODB.Recordset")


objCmm.Open  Application("strConn")


SET sqlC = objCmm.Execute (sqlADV)



Topo


Exibindo página 1 de 1 encontradas
SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados