Lista De Um Combo.. Valores Do Banco De Dados

[MaXiMuS]

Bom seguinte.. tenho uma tabela de categorias, editora, autores...

euq uero fazer o seguinte

na hora de cadastrar os livros.. os valores dos combos... venham das tabelas... como fazer isso?

no php é facinhu as coisas.. mas essi vb é um peh nu sako...

[Eddie_666]

Faz a consulta e coloca em um recordset...

Supondo que o teu recordset se chame rst e o teu combo se chame cboProd tu faz assim:

while not rst.EOF 
    cboProd.additem rst("campo")
wend

Espero ter ajudado.. Ah, campo é o campo da tabela que tu quer que apareça no combo...

[MaXiMuS]

ahh outra coisa.. no caso.. quando eu for cadastrar no banco de dados do livro.. eu vou cadastrar o código.. e não o nome... como eu faço? pra por o valor do código.. ao invés do valor do nome?

####### depois de testar ############

coloquei assim o código

Dim conn As New ADODB.Connection
Dim orscat As New ADODB.Recordset
Dim orsaut As New ADODB.Recordset
Dim orsedt As New ADODB.Recordset
Dim orsliv As New ADODB.Recordset

Private Sub cmdcancel_Click()
Unload Me
End Sub

Private Sub cmdlimpar_Click()
txtval.Text = ""
End Sub

Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\RTD\teste.mdb;Persist Security Info=False"
orsaut.Open "Select * From autores", conn
orsedt.Open "Select * From editoras", conn
orscat.Open "Select * From categorias", conn
While Not orsaut.EOF
   cboaut.AddItem orsaut("nome_aut")
Wend
While Not orscat.EOF
   cbocat.AddItem orscat("nome_cat")
Wend
While Not orsedt.EOF
   cboedt.AddItem orsedt("nome_edt")
Wend
End Sub

mas qdu eu testo.. ele trava o programa...

[Eddie_666]

Tu pode usar um select para pegar o código do autor antes de adicionar...

"SELECT cod FROM autores WHERE nome ='" & cboaut.text & "';"

Acho que é isso... Só que daí tu vai ter que te certificar de que os nomes sejam únicos na tabela...

[MaXiMuS]

isso é.. os nomes são unicos e tals... isso é obvio....

mas porque meu programa trava.. quando eu adiciono os nomes nos combos?

[Eddie_666]

Isso eu não sei por que está acontecendo, mas faz uma execução passo a passo e ve onde tá ocorrendo o erro, é a melhor forma de encontrar ele..

[MaXiMuS]

será q eu vou ter q especifikar alguma propriedade nos selects? hunf... vou testar aqui um por um.....

[Eddie_666]

Creio que não tenha que especificar nada, eu sempre fiz isso e nunca deu problema... Vai no debug passo-a-passo que, com certeza, tu encontra algum erro...

[MaXiMuS]

num tem como ir no debug

iuaheiuaehiu qdu eu rodo a aplicação.. ela para

só na base do finalizar tarefa....

tipo eu to testando com o access.. será q é por isso?

[Eddie_666]

Acho que o banco de dados não tem a ver...

tipo, coloca um breakpoint já no load do form e vai passo-a-passo a partir dali...

[MaXiMuS]

iauheiuaheiuaheiuh

MALDITO MOVENEXT

eskecemos dele... =]

[Eddie_666]

Nem percebi

hehehheheh

acontece

:)