[Resolvido] Conexao Sql Express 2005 no Vb.NET

[rafaeldorazio 2]

Module Module1

Dim Con As System.Data.SqlClient.SqlConnection

Public Sub Conectar()

Try

Con.ConnectionString = "Network Library=DBMSSOCN;" & _

"Data Source=192.168.1.101,1433;" & _

"User ID=sa;" & _

"Password=janio1;"

Con.Open()

Catch Erro As SqlClient.SqlException

MessageBox.Show(Erro.Message)

End Try

End Sub

 

Public Sub Desconectar()

Con.Dispose()

Con.Close()

Con = Nothing

End Sub

End Module

[quintelab 91]

Você deve instanciar sua variável con.

Ao invés de:

Dim Con As System.Data.SqlClient.SqlConnection

Use:

Dim Con As New System.Data.SqlClient.SqlConnection

Abraços...

[rafaeldorazio 2]

Agora deu erro: Nenhuma conexão pode ser feita porque a maquina de destino as recusou ativamente.

 

Configurei o sql expresas para receber TCp/IP e coloquei no firewall a excessao para a porta 1433 para TCp/IP e tb no roteador !

 

O que está errado ?

[quintelab 91]

Ae ja não é problema de sintaxe do código, acredito que seja algo no seu Sql Server.

Melhor tirar essa dúvida no sub-fórum de Sql Server.

 

Abraços...

[Oenning 0]

Tem certeza que é assim: Data Source=192.168.1.101,1433;? Não deveria ser assim: Data Source=192.168.1.101:1433;?

[rafaeldorazio 2]

Achei o problema, era no SQL , eu não configurei corretamente, esqueci de colocar a porta no ip1 e ip2.

 

A string de conexao ficou assim :

Con.ConnectionString = "Network Library=DBMSSOCN;Data Source=192.168.1.101,1433;User ID=user;Password=password;"