SELECIONAR REGISTRO NO COMBO COM BASE NA SELECAO

JAIR2002 24/01/2013 15:44:16
#418021
Pessoal,

Tenho um form cadastro de disciplina em que a tabela estar relacionada com a tabela professor. O que desejo é o seguinte:

1 - quando o Usuário clicar no registro na grid apareça na combo o professor relacionado aquela disciplina.
o problema é que estou usando o codigo abaixo e não consigo carregar o combo aparece apenas -

System.Data.DataRowView
codigo
Public Function carregaCombo() As DataTable
Dt = New DataTable
conn = ConexaoDB()
Try
With Cmd
.CommandType = CommandType.Text
.CommandText = [Ô]SELECT IDPROFESSOR, NOME from TBLPROFESSORES[Ô]
.Connection = conn
End With
With Da
.SelectCommand = Cmd
.Fill(Dt)
End With


Catch ex As Exception
Dt = Nothing
Finally
closeConexaoDB(conn)
End Try
Return Dt
End Function

alguém sabe onde estar o erro e como eu faço para quando alguem clicar na grid apareça na combo o professor correspondente.

grato,

jair
ALEVALE 24/01/2013 16:19:05
#418026 Resposta escolhida
Verifique se o sua consulta SQL está correta, geralmente eu executo minhas consultar no SQL direto para verificar.

Eu preencho minhas combobox assim:

[ô]VARIAVEIS BANCO
Public strUsuarioBanco As String = [Ô]USUARIO[Ô]
Public strSenhaUsuarioBanco As String = [Ô]SENHA[Ô]
Public strBanco As String = [Ô]BANCO[Ô]
Public strServidor As String = [Ô]SERVIDOR[Ô]

[ô]SQL
Public dr As SqlDataReader
Public selectText As String
Public myCommand As SqlCommand
Public ds As DataSet = New DataSet()
Public ConnectionString As String = [Ô]Data Source = [Ô] + strServidor + [Ô]; Initial Catalog = [Ô] + strBanco + [Ô]; User Id =[Ô] + strUsuarioBanco + [Ô]; Password =[Ô] + strSenhaUsuarioBanco
Public strConn As SqlConnection

[ô]CARREGA UNIDADES
Private Function fncCarregaUnidades()

If DropDownUnidades.Items.Count = 0 Then
DropDownUnidades.Items.Add([Ô][Ô])

[ô]SQL
strConn = New SqlConnection(ConnectionString)
strConn.Open()
selectText = [Ô]SELECT * FROM SUA TABELA[Ô]
myCommand = New SqlCommand(selectText, strConn)

dr = myCommand.ExecuteReader()
While (dr.Read())
DropDownUnidades.Items.Add(dr([Ô]CAMPO1[Ô]).ToString)
End While

strConn.Close()
End If
End Function
JAIR2002 24/01/2013 16:25:44
#418027
ALEVALE,

obrigado ela ajuda, conseguir e o codigo ficou conforme abaixo

Private Sub CarregaCombo()

Dt = New DataTable
conn = acc.ConexaoDB()
Try
With Cmd
.CommandType = CommandType.Text
.CommandText = [Ô]SELECT IDPROFESSOR, NOME from TBLPROFESSORES[Ô]
.Connection = conn
End With
With Da
.SelectCommand = Cmd
.Fill(Dt)
End With
[ô]preenche a combobox com os nomes dos professores
With cbProfessor
.DataSource = Dt
.DisplayMember = [Ô]NOME[Ô]
.ValueMember = [Ô]IDPROFESSOR[Ô]

End With

Catch ex As Exception
Dt = Nothing

End Try

End Sub

obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar