none
SQL SERVER 2008 EXPRESS - ACESSO REMOTO PARA APLICAÇAO VB6 RRS feed

  • Pergunta

  • Boa tarde Pessoal!!

    Estou com o seguinte problema:

    Fiz um sistema em VB6 que conecta no SQL SERVER EXPRESS 2008  

    O problema é o seguinte: fiz o sistema no meu computador com WIN XP. Esta rodando tudo belezinha.

    Ai peguei uma outra máquina instalei o WINDOWS SERVER 2008. Tambem instalei minha aplicação no servidor e o SQL SERVER EXPRESS 2008 e criei o banco da aplicação dentro do servidor.

    liguei 4 máquinas com um HUB e coloquei um atalho da aplicação puxando do servidor.

    quando tento abrir a aplicação me aparece o erro abaixo:

    RunTime ERROR : 2147467259(80004005)

    [DBNETLIB][ConnectionOpen(Conect())].SQL SERVER inexistente ou acesso negado

    A minha string de conexão está abaixo

    cn.Provider = "SQLOLEDB"
    cn.Properties("Data Source").Value = "trabalho\sqlexpress" 
    cn.Properties("Initial Catalog").Value = "contabilidade" 
    cn.Properties("Integrated Security").Value = "SSPI"

    alguem pode me ajudar??... Já dei uma lida nos outros tópicos relacionados, mas nao consegui sucesso! Obrigado

    quinta-feira, 29 de julho de 2010 17:03

Respostas

  • Boa tarde Fábio,

     

    Para resolver este problema crie uma string de conexão  e acesse o banco de dados conforme modelo abaixo:

     strConn = "Provider=SQLOLEDB.1;" & _
                "Persist Security Info=False;" & _
                "User ID=" & gUser & _
                "; Password=" & gPassword & _
                ";Initial Catalog=" & gBanco & _
                ";Data Source=" & gServidor
      db.ConnectionString = strConn
      db.CursorLocation = adUseClient
      db.Open

    Onde gUser--> Login do usuário
         gPassword --> Senha do usuário
         gBanco --> Nome do banco de dados
         gServidor--> Nome do servidor (Veja na tela inicial do enterprise manager)

     

    Copie e cole este codigo no seu projeto VB6.

    Um abraço,

    Adilson

    segunda-feira, 2 de agosto de 2010 17:04

Todas as Respostas

  • Fabio

    ,

    faça um teste de telnet de uma aplicacao

    , afim de saber se tem um firewall bloqueando.

    O verifique se o nome de do seu servidor esta correto "trabalho\sqlexpres"

    verifique se o serviço do

    sql e o sql browser estão iniciados

    como vc usa trusted connection

    , assegure que os usuarios do windows estao criados como logins no SQL

    att

    .

    Marcelo Fernandes


    MCP, MCDBA, MCSA, MCTS.
    Se útil, classifique!!!
    Me siga no twitter: @marcelodba
    quinta-feira, 29 de julho de 2010 17:52
  • Fábio,

    Você instalou o client do SQL Server nestas estações de trabalho?


    Pedro Antonio Galvão Junior [MVP | Microsoft Evangelist | Microsoft Partner | Engenheiro de Softwares | Especialista em Banco de Dados | SorBR.Net | Professor Universitário]
    quinta-feira, 29 de julho de 2010 23:59
    Moderador
  • Boa tarde Fábio,

     

    Para resolver este problema crie uma string de conexão  e acesse o banco de dados conforme modelo abaixo:

     strConn = "Provider=SQLOLEDB.1;" & _
                "Persist Security Info=False;" & _
                "User ID=" & gUser & _
                "; Password=" & gPassword & _
                ";Initial Catalog=" & gBanco & _
                ";Data Source=" & gServidor
      db.ConnectionString = strConn
      db.CursorLocation = adUseClient
      db.Open

    Onde gUser--> Login do usuário
         gPassword --> Senha do usuário
         gBanco --> Nome do banco de dados
         gServidor--> Nome do servidor (Veja na tela inicial do enterprise manager)

     

    Copie e cole este codigo no seu projeto VB6.

    Um abraço,

    Adilson

    segunda-feira, 2 de agosto de 2010 17:04