RECEBENDO CAMPO NUMA COMBOBOX

DJSAIDIE 07/12/2010 13:19:23
#358991
Fala galera, Boa tarde...
tenho um projeto pra apresentar hoje e estou morrendo aqui e não consigo fazer o que quero, espero que possam me ajudar, rsrs

tenho uma tela de cadastro de turmas pra cadastrar a turma eu preciso informar o professor dela
ele seria puxado da tabela mebros pois para ser professor tem que ser membro (cargo: professor)
no campo Cargo do no cadastro de membros ele pode ser várias coisas, entre ela o professor
o que eu quero fazer
é que essa comboBox da tela cadastro de Turmas apenas exiba os Membros que possuem o campo Cargo igual a [Ô]Professor[Ô]
mais não estou conseguindo fazer de forma nenhuma.
alguam sabe como me ajudar?
fico grato, mto grado.
MATT1 07/12/2010 13:47:26
#358995
Dim sql As String = [Ô]select cargo from mebros where cargo = [ô]professor[ô][Ô]
Dim cmd As New SQLiteCommand(sql, oConn)

cmd.CommandType = CommandType.Text

Dim dr As SQLite.SQLiteDataReader = cmd.ExecuteReader()

While (dr.Read())
Combo1.Items.Add(dr.GetString(0))
End While

nesse exemplo eu estou usando SQLite, ai vc muda os comandos referentes ao seu banco
XXXANGELSXXX 07/12/2010 14:30:49
#359002
Qual banco de dados vc esta utilizando?? ADO ou DAO a tecnologia?
LUIZCOMINO 07/12/2010 14:41:53
#359003

Dim contador As Integer

rs.MoveFirst
On Error Resume Next

Do While contador < rs.RecordCount
Nome_Combo.AddItem Campo
rs.MoveNext
contador = contador + 1
Loop
MARCELO.TREZE 07/12/2010 15:46:04
#359009
Assim Colega

O código do colega Matt1 está correto só estarei colocando de forma mais simples


sSQL = [Ô]SELECT * FROM membros WHERE cargo = [ô]Professor[ô][Ô]
Set Rs = CNN.Execute(sSQL)

Do While Not Rs.EOF
Combo1.AddItem Rs!Nome
Rs.MoveNext
Loop
DJSAIDIE 07/12/2010 17:12:59
#359017
Citação:

:
Qual banco de dados vc esta utilizando?? ADO ou DAO a tecnologia?



estou Utilizando conexão DAO


Citação:

:
Assim Colega

O código do colega Matt1 está correto só estarei colocando de forma mais simples


sSQL = [Ô]SELECT * FROM membros WHERE cargo = [ô]Professor[ô][Ô]
Set Rs = CNN.Execute(sSQL)

Do While Not Rs.EOF
Combo1.AddItem Rs!Nome
Rs.MoveNext
Loop




ou testar isto amigão, e ja retorno aki...
obs: sou novo no VB então não se importem com algumas bobeiras que eu possa ter dito, e qual o significado deste RS?
tenho que criar alguma variável para ele?

desde ja agradeço a todos, vou tentando fazer aki com as dicas ja postas.
DJSAIDIE 07/12/2010 17:24:28
#359019
não tive sucesso amigão... =/

Citação:

Run-time error [ô]424[ô]:

Object required




na Linha...

Set Rs = CNN.Execute(sSQL)


o Código que pus foi:
Citação:

sSQL = [Ô]SELECT * FROM membros WHERE cargo = [ô]Professor[ô][Ô]
Set Rs = CNN.Execute(sSQL)

Do While Not Rs.EOF
cmbprof.AddItem Rs!nome
Rs.MoveNext
Loop



Desde jah agrdeço a todos.
XXXANGELSXXX 07/12/2010 17:44:06
#359023
esse erro, é que ta faltando algum componente ou vc nao abriu o recordset.
MARCELO.TREZE 07/12/2010 18:24:30
#359029
desculpe depois que vi que vc usa DAO, tente isso então

Set Tb = Db.OpenRecordSet ([Ô]SELECT * FROM membros WHERE cargo=[ô]Professor[ô][Ô], DbOpenDyNaset)
If Tb.RecordCount = 0 Then
msgbox[Ô]Não existem registros[Ô], 64,[Ô]Aviso[Ô]
else
Tb.MoveFirst
Do While Not Tb.EOF
combo1.AddItem tb([Ô]nome[Ô])
Tb.Movenext
Loop
end if
SURI 08/12/2010 06:34:08
#359048
set tb=cnn.execute ([Ô]select membros.nome from membros where cargo=[ô][Ô] & professor & [Ô][ô])
if tb.eof=false then
tb.movefirst
For i= tb.recordcount to tb.recordcount + 1
combo.additem tb(0)
tb.movenext
if tb.eof=true then exit for
next i
Tópico encerrado , respostas não são mais permitidas
Voltar