LISTAR VALOR NA COMBOX COM SQL SERVER R2 2008

TSANALISTA 21/09/2012 15:35:58
#410186
Olá galera boa tarde, gostaria de uma ajuda se possível,, o cenário é esse: Tenho uma tabela Sexo com PK idSexo que está relacionada com uma FK idSexo da Tabela Usuário, estou tentando listar os sexo na minha combobox e não consigo galera.. alguma dica vai ai o código do método:

/// CODE

Private Sub carregarUsuarioSQL(ByVal idUsuario As Integer)
Dim oc As New SqlConnection()
oc.ConnectionString = [Ô]Data Source=HIGHSOLUTIONS;Initial Catalog=ProjetoTeste;Integrated Security=True[Ô]
oc.Open()
Dim ds As New DataSet
Dim query As String = [Ô][Ô]
query &= [Ô] Select idUsuario, idSexo, UsuarioNome, UsuarioSenha, Sexo.idSexo, Sexo.Sexo From Usuarios, Sexo [Ô]
query &= [Ô] where idUsuario = [Ô] & CStr(idUsuario) & [Ô]AND idSexo = Sexo.idSexo[Ô]
Dim cd As New SqlCommand
cd.Connection = oc
cd.CommandText = query
Dim dr As SqlDataReader = cd.ExecuteReader
If dr.Read Then
Dim usuario As String = CStr(dr([Ô]UsuarioNome[Ô]))
Dim senha As String = CStr(dr([Ô]UsuarioSenha[Ô]))
Dim sexo As Integer = CInt(dr([Ô]idSexo[Ô]))

cboSexoUsuario.SelectedIndex = sexo

txtCodigoUsuario.Text = idUsuario.ToString()
txtNomeUsuario.Text = usuario
txtSenhaUsuario.Text = senha

End If
dr.Close()
oc.Close()
End Sub
LUIZCOMINO 21/09/2012 15:52:37
#410190
Monte a query assim


query &= [Ô] Select A.idUsuario,A.idSexo,A. UsuarioNome,A. UsuarioSenha,B.idSexo,B.Sexo From Usuarios as A, Sexo as B [Ô]
query &= [Ô] where A.idSexo=B.idSexo AND A. idUsuario = [Ô] & CStr(idUsuario) & [Ô]AND A.idSexo = Sexo.idSexo[Ô]
LUIZCOMINO 21/09/2012 15:54:06
#410191
Ou assim


query &= [Ô] Select A.idUsuario,A.idSexo,A. UsuarioNome,A. UsuarioSenha,B.idSexo,B.Sexo From Usuarios as A, Sexo as B [Ô]
query &= [Ô] where A.idSexo=B.idSexo AND A. idUsuario = [Ô] & CStr(idUsuario)
TSANALISTA 21/09/2012 16:02:40
#410192
Vlw, mas tipo eu estou Win Forms...com VB.NET.... vai ter alguma problema?
TSANALISTA 21/09/2012 16:23:02
#410194
Não funcionou .. está dando erro bem nesta parte...

[Ô] From Usuarios as A[Ô], na letra [Ô]A[Ô]......
LUIZCOMINO 21/09/2012 16:36:51
#410196
qual é a estrutura da suas tabelas
TSANALISTA 25/09/2012 18:25:18
#410486
Veja ai a estrutura...:
TSANALISTA 25/09/2012 18:27:11
#410487
Conseguir ... somente listar a idSexo e depois gravar utilizando a idSexo.... só que gostaria que quando o meu método listassem.. também os nomes que estão na tabela Sexo, eu só consegui listar a idSexo...somente..
OMAR2011 25/09/2012 22:42:22
#410498
Tente assim

query &= [Ô]Select Usuarios.idUsuario, Usuarios.idSexo, Usuarios.UsuarioNome, Usuarios.UsuarioSenha, Sexo.Sexo From Usuarios,Sexo[Ô]
query &= [Ô] Where Usuarios.IdUsuario = [Ô] & CStr(idUsuario) & [Ô] And Usuarios.idSexo=Sexo.idSexo [Ô]


Dim usuario As String = CStr(dr([Ô]UsuarioNome[Ô]))
Dim senha As String = CStr(dr([Ô]UsuarioSenha[Ô]))
[ô] Dim sexo As Integer = CInt(dr([Ô]idSexo[Ô]))

[ô]cboSexoUsuario.SelectedIndex = sexo
cboSexoUsuario.Items.Add(dr.Item([Ô]sexo[Ô]))

txtCodigoUsuario.Text = idUsuario.ToString()
txtNomeUsuario.Text = usuario
txtSenhaUsuario.Text = senha
TSANALISTA 29/09/2012 08:26:34
#410823
Blz..vou testar aqui....vlw obrigado
TSANALISTA 29/09/2012 11:06:12
#410825
Pronto conseguir desta forma.

//Code
Private Sub carregarUsuarioSQL(ByVal idUsuario As Integer)

Dim oc As New SqlConnection()
oc.ConnectionString = [Ô]Data Source=SOLUTIONS-PC;Initial Catalog=ProjetoTeste;Integrated Security=True[Ô]
oc.Open()
Try
Dim ds As New DataSet
Dim query As String = [Ô][Ô]
query &= [Ô] Select U.idUsuario, U.idSexo, U.UsuarioNome, U.UsuarioSenha, S.SexoId, S.SexoNome From Usuarios As U, Sexo As S[Ô]
query &= [Ô] where U.idUsuario = [Ô] & CStr(idUsuario) & [Ô]AND U.idSexo = S.SexoId[Ô]
Dim cd As New SqlCommand
cd.Connection = oc
cd.CommandText = query
Dim dr As SqlDataReader = cd.ExecuteReader
If dr.Read Then
Dim usuario As String = CStr(dr([Ô]UsuarioNome[Ô]))
Dim senha As String = CStr(dr([Ô]UsuarioSenha[Ô]))
Dim sexo As String = CStr(dr([Ô]SexoNome[Ô]))

txtCodigoUsuario.Text = idUsuario.ToString()
txtNomeUsuario.Text = usuario
txtSenhaUsuario.Text = senha
cboSexoUsuario.SelectedText = sexo

MessageBox.Show([Ô]Valor: [Ô] + txtNomeUsuario.Text)
End If
dr.Close()
Catch ex As Exception
MessageBox.Show([Ô]Erro: [Ô] + ex.Message)


End Try

oc.Close()


End Sub


O único problema é na hora de atualizar o campo, o idSexo não está recebendo o valor que está no meu combo box.
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar