Então normalmente a compilação é feita no XP, mas para este teste coloquei todo o projeto na maquina com windows 7, mas ele dá erro na execução pelo VB mesmo, nem cheguei a compilar.

 

 

Cara vc tem que registrar essa dll no system32, pois é muito importante para o vb rodar. recomendo vc instalar corretamente o vb 6.0 com o servis pack 6.0. lembrando de instalar como administrador e desativar contas de usuário como treze recomendo.

dica, ja ouvi falar muito pessoal com windows 7 com sp 1.0 que da erro de conexão, pois pesquisa no site de microsoft que tem uma .tlb que tem que usar para conexões com bancos.

não desista pois, ha uns 3 anos rodava vb em windows vista e faz 2 meses rodo em windows 7 com banco dados sql server 2005 , access e sem problemas, compilo, rodo, e crio .exe que rodam perfeitamente em windows xp. lembrando que uso win7 de 32 bits.

se o sp1 do windows 7 for dor de cabeça tenta usar sem ele

Wet,acredito que seu vb6 não está instalado corretamente,como explicado pelos outros

companheiros do site.Compilei dois projetos ,um em Dao e outro em Ado.Ambos não deram

erros.O com Dao feito em Xp o Ado Windows 7 Sp1.Nenhum deu erro.

Pessoal reinstalei todo o VB6 conforme instruções, tirei UAC instalei com administrador, continua com o erro, Só não sei qual o SP do meu vb. Vou tentar verificar. Por enquanto obrigado.

Assim que descobrir posto aqui.

 

Bom dia.

Instalei o SP6 do VB6, e mesmo assim não funcionou.

O resultado do Vg_cn.Open fica sem a senha, muito estranho pois informo a senha ao enviar. Segue:

 

    Set Vg_Cn = New ADODB.Connection
   
    strCnn = "Provider=SQLOLEDB;" & _
            "Data Source=" & objLgPub.Servidor & ";" & _
            "Initial Catalog=" & dbName & ";" & _
            "User ID=" & objLgPub.UsuarioSQL & ";" & _
            "PassWord=" & objLgPub.SenhaSQL & ";"
 
    Vg_Cn.Open strCnn

Resultado:

 

Provider=SQLOLEDB.1;User ID=jbh;Initial Catalog=Seguranca;Data Source=192.168.0.10;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TI-PC;Use Encryption for Data=False;Tag with column collation when possible=False;

 

 

Obrigado a todos

usuario =objLgPub.UsuarioSQL

senha = objLgPub.SenhaSQL

servidor = objLgPub.Servidor
BancoDados = dbName

Set Vg_Cn = New ADODB.Recordset
sql = " Select * from uma_tabela_que_deseje_abrir"
rs.Open sql, "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & usuario & ";Password=" & senha & ";Initial Catalog=" & BancoDados & ";Data Source=" & servidor & "", adOpenStatic, adLockReadOnly

MsgBox " Conexão efetuada com sucesso ", vbInformation, " Conexão 2 "