CONEXAO VB6 COM SQLSERVER 2008
Olá
Sou principiante em VB6. Na minha máquina, com Windows XP, tenho o SQL SERVER 2008 (EXPRESS) e o Access instalados.
Consegui fazer a conexão com o Access e tudo funciona perfeitamente (Vide Abaixo):
cnnVinc.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & App.Path & [Ô]\Teste.mdb;[Ô]
cnnVinc.Open
Agora gostaria de saber, detalhadamente, como faço para acessar o SQL SERVER 2008.
Grato
Sou principiante em VB6. Na minha máquina, com Windows XP, tenho o SQL SERVER 2008 (EXPRESS) e o Access instalados.
Consegui fazer a conexão com o Access e tudo funciona perfeitamente (Vide Abaixo):
cnnVinc.ConnectionString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & App.Path & [Ô]\Teste.mdb;[Ô]
cnnVinc.Open
Agora gostaria de saber, detalhadamente, como faço para acessar o SQL SERVER 2008.
Grato
Visite.
http://www.connectionstrings.com/sql-server/
http://www.connectionstrings.com/sql-server/
Bom dia Eduardo,
Eu uso a seguinte forma para conexão ao SQL Sever 2008:
Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
CN.Provider = [Ô]SQLOLEDB[Ô] [ô] Provedor de acesso ao SQL Server
CN.Properties([Ô]Data Source[Ô]).Value = [Ô]ROGERIO-PC\SQLEXPRESS2008[Ô] [ô]Nome da Maquina\Instancia onde está instalado o BD
CN.Properties([Ô]Initial Catalog[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Nome do BD
CN.Properties([Ô]User ID[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Usuário para conexão no BD no SQL SERVER 2008
CN.Properties([Ô]Password[Ô]).Value = [Ô]tecsis[Ô] [ô]Senha para conexão no BD no SQL SERVER 2008
CN.Open [ô] Abrindo a conexão
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = CN
Eu uso a seguinte forma para conexão ao SQL Sever 2008:
Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
CN.Provider = [Ô]SQLOLEDB[Ô] [ô] Provedor de acesso ao SQL Server
CN.Properties([Ô]Data Source[Ô]).Value = [Ô]ROGERIO-PC\SQLEXPRESS2008[Ô] [ô]Nome da Maquina\Instancia onde está instalado o BD
CN.Properties([Ô]Initial Catalog[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Nome do BD
CN.Properties([Ô]User ID[Ô]).Value = [Ô]SYSCONTROL[Ô] [ô]Usuário para conexão no BD no SQL SERVER 2008
CN.Properties([Ô]Password[Ô]).Value = [Ô]tecsis[Ô] [ô]Senha para conexão no BD no SQL SERVER 2008
CN.Open [ô] Abrindo a conexão
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = CN
Obrigado Omar e Rogerio
Consegui realizar a conexão conforme o Rogerio postou.
Consegui realizar a conexão conforme o Rogerio postou.
Tópico encerrado , respostas não são mais permitidas