[Resolvido] Conexão Sql Server 2005 express + Vb.net 2005

[AMC 0]

Olá galera, boa tarde!

 

Sou novo aqui no IMASTERS e na área de programação.

É o seguinte...

Estou tentando realizar um inserção simples de dados no SQL server utilizando a linguagem VB.net.

Quando tento rodar o programa aparece o seguinte erro:

 

"An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: SQL Network Interfaces, error: 26 - Error Locating Server/Instance Specified)"

 

 

 

No SQl minha autenticação está como "Windows Aplication". Pois não consegui criar Usuario e senha para SQL Autentication.

Não sei se este é o problema. Abaixo segue minha String de Conexão Obs: N sei está correta, pois o windows autentication não exige Usuario e senha.

 

"Data Source=WORK01;Initial Catalog=Teste;Integrated Security=SSPI;"

 

SQL

---Criando Banco de Dados
create database Teste

---Criando Tabela
create table Tb_Teste(
Id_Pessoa int identity(1,1),
Nome_Pessoa varchar(100) not null,
Sexo_Pessoa Varchar(1),
primary key(Id_Pessoa)
)


---Criando Procedure de armazenamento
create procedure Sp_Armazenamento
@Id_Pessoa int=NULL,
@Nome_Pessoa varchar(100),
@Sexo_Pessoa varchar(1)
as
---Analisa se a pessoa já está cadastrada
---Caso já esteja cadastrada realiza o update
if not exists(Select Id_Pessoa from Tb_Teste where Id_Pessoa = @Id_Pessoa) 
	begin
		insert into Tb_Teste(Nome_Pessoa, Sexo_Pessoa)
		values(@Nome_Pessoa, @Sexo_Pessoa)
	end
else
---Realiza o update dos dados
	Update Tb_Teste set
	Tb_Teste.Nome_Pessoa = @Nome_Pessoa,
	Tb_Teste.Sexo_Pessoa = @Sexo_Pessoa
	where Tb_Teste.Id_Pessoa = @Id_Pessoa

 

 

VB.NET

 

Public Class Frm_Inserção

	Private Sub Salvar_Dados()
		Dim cmd As New SqlCommand 'Objeto Para Manipular os comandos
		Dim conec As New SqlConnection 'Obejto para manipular a conexão

		'Passa a conexão para o objeto
		conec.ConnectionString = "Data Source=WORK01;Initial Catalog=Teste;Integrated Security=SSPI;"
		conec.Open() 'Abre a conexão para o banco de dados
		cmd.Connection = conec 'Passa a conexão para o objeto
		cmd.CommandType = CommandType.StoredProcedure 'Define qual será o tipo de comando do objeto
		cmd.CommandText = "Sp_Armazenamento" 'Passa o nome da procedure
		'Passa os parametros para a procedure
		cmd.Parameters.Add(New SqlParameter("@Id_Pessoa", SqlDbType.VarChar)).Value = Me.Tag
		cmd.Parameters.Add(New SqlParameter("@Nome_Pessoa", SqlDbType.VarChar)).Value = Tb_Nome
		cmd.Parameters.Add(New SqlParameter("@Sexo_Pessoa", SqlDbType.VarChar)).Value = Tb_Sexo

		cmd.ExecuteNonQuery() 'Define que não é do tipo  que retorna alguma resultado
		'Mensagem de confirmação de inserção de dados
		MsgBox("Dados inseridos com sucesso", MsgBoxStyle.Information)

	End Sub

	Private Sub Bt_Inserir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Inserir.Click
		Salvar_Dados()

	End Sub
End Class

[quintelab 91]

Como ja comentei em outro tópico o problema é de configuração remota do banco. O problema não esta na conexão nem no código fonte.

Espero que alguém aqui possa te auxiliar neste problema.

 

Abraços...

[AMC 0]

http://www.linhadecodigo.com.br/Artigo.aspx?id=1260

 

 

Segui esse artigo(Tiro no escuro) pra ver se resolvia, mas o problema ainda persiste.

Se alguém puder dar um auxilio ficarei muito grato

[advaldomesquita 93]

Não lembro onde eu li e guardei esta linha de conexao para windows autentication:

String usando Windows Authentication (Trusted Connection):

 

Dim conn As New ADODB.Connection

conn.Open "Driver={SQL Server};Server=SQL_Server;Database=Northwind;Integrated Security=SSPI;"

 

Nota: Integrated Security=SSPI é o mesmo que Trusted_Connection=yes

 

Por default o SQL-Server Express não vem configurado para conexão remota.

Além de habilitar a porta TCP/IP é necessário inicializar o serviço SQL Server Browser

Neste link, você encontra um passo a passo de como habilitar uma Conexão Remota no SQL Server 2005

 

Como Configurar SQL Server 2005 para permitir remoto conexões

http://support.microsoft.com/kb/914277

 

ou

http://www.scribd.com/doc/210645/Como-conf...SQL-Server-2005

Fonte: MSDN

 

Abçs

[AMC 0]

Problema resolvido jus2ka

Muito obrigado pela ajuda

abraço brother

[advaldomesquita 93]

Fala AMC.. vlw pelo retorno.

 

abçs e boa sorte