GRAVAR COMBOBOX
eu carrego o combo com esse codigo:
If rs.EOF = false then
rs.movefirt
do while not rs.EOF
Combo1.AddItem rs![Filme]
rs.moveNext
Loop
End if
como gravar na tabela o item selecionado no combo1 ?
If rs.EOF = false then
rs.movefirt
do while not rs.EOF
Combo1.AddItem rs![Filme]
rs.moveNext
Loop
End if
como gravar na tabela o item selecionado no combo1 ?
eu faço assim e da certo!
tabela.addnew
rs([Ô]campo que vai armazenar oq tem no combo[Ô]) = combo1.text
tabela.update
eu não sei qual referencia vc ta usando, mais eu uso isso em DAO e ADO e sempre da certo
tabela.addnew
rs([Ô]campo que vai armazenar oq tem no combo[Ô]) = combo1.text
tabela.update
eu não sei qual referencia vc ta usando, mais eu uso isso em DAO e ADO e sempre da certo
como vc faz para gravar os outros campos???
ex.
textbox, label, msflex, ou grid.... etc...
posta ai. para eu poder explicar melhor....
ex.
textbox, label, msflex, ou grid.... etc...
posta ai. para eu poder explicar melhor....
Suponhamos que eu queira INSERIR e não ATUALIZAR.
Suponhamos, também, que eu tenha uma tabela [Ô]faltas[Ô] com os campos [Ô]nome[Ô], [Ô]data[Ô] e [Ô]comentario[Ô].
Bom... Como eu já carreguei a combobox com o nome dos funcionários, vou adicionar na tabela [Ô]faltas[Ô] o nome do funcionário que faltou, escolhendo seu nome na ComboBox:
Vou fazer uma conexão fictÃcia usando ADODB.Connection:
[txt-color=#0000f0]Private Sub [/txt-color]Combo1_Click()
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]as New [/txt-color]Recordset
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = CCADODB.Execute([Ô]INSERT INTO faltas (nome) VALUES ([ô] [Ô] & Combo1.Text & [Ô] [ô])[Ô])
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = [txt-color=#0000f0]Nothing[/txt-color]
MsgBox [Ô]Operação concluÃda com sucesso[Ô], VbInformation, [Ô]Gerenciador[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Você pode usar este código dentro do clique do botão também.
Vai da sua imaginação
Lembre-se de que isto é um exemplo.
Se for o que você precisa, faça as modificações necessárias para sua aplicação
Valeu
Suponhamos, também, que eu tenha uma tabela [Ô]faltas[Ô] com os campos [Ô]nome[Ô], [Ô]data[Ô] e [Ô]comentario[Ô].
Bom... Como eu já carreguei a combobox com o nome dos funcionários, vou adicionar na tabela [Ô]faltas[Ô] o nome do funcionário que faltou, escolhendo seu nome na ComboBox:
Vou fazer uma conexão fictÃcia usando ADODB.Connection:
[txt-color=#0000f0]Private Sub [/txt-color]Combo1_Click()
[txt-color=#0000f0]Dim[/txt-color] ObjetoTB [txt-color=#0000f0]as New [/txt-color]Recordset
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = CCADODB.Execute([Ô]INSERT INTO faltas (nome) VALUES ([ô] [Ô] & Combo1.Text & [Ô] [ô])[Ô])
[txt-color=#0000f0]Set[/txt-color] ObjetoTB = [txt-color=#0000f0]Nothing[/txt-color]
MsgBox [Ô]Operação concluÃda com sucesso[Ô], VbInformation, [Ô]Gerenciador[Ô]
[txt-color=#0000f0]End Sub[/txt-color]
Você pode usar este código dentro do clique do botão também.
Vai da sua imaginação
Lembre-se de que isto é um exemplo.
Se for o que você precisa, faça as modificações necessárias para sua aplicação
Valeu
Tópico encerrado , respostas não são mais permitidas