Conexão vb.net 2005 + SqlServer 2005 Express

[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]

AMC, seja bem vindo ao Fórum iMasters, de uma olhada em nossas regras: Regras do Fórum iMasters

 

Isso é vb.net, ou seja, deveria estar aqui: http://forum.imasters.com.br/index.php?showforum=115

Mas o Claudio irá mover o tópico assim que ver.

 

Referente a sua dúvida, o problema esta na configuração do seu Sql Server que não aceita conexão remota. Procure no fórum de Sql Server sobre como fazer essa configuração remota e caso não encontre poste lá sobre isso.

 

Abraços...

[AMC 0]

Ok QuinteLab, Vlw a atenção

 

abraço

[Claudio Neto 3]

Tópico movido conforme solicitado acima para Plataforma .Net.