SALVAR TODOS OS ITEMS DO COMBOBOX NO BANCO

USUARIO.EXCLUIDOS 04/10/2006 10:48:22
#175520
Bom dia!! estou com um pequeno probleminha... estou trabalhando com access, e tenho que inserir todos os dados de um combobox que o usuario digitar na aplicação. Como consigo salvar todos o os items de um combobox no banco access, valeu mesmo agradeço
USUARIO.EXCLUIDOS 04/10/2006 10:50:12
#175521
Amigo como vc conecta com o banco ?

Voce quer salvar tudo que for digitado no combo? 1 de cada vez ? correto?

Vc usa ADO ou DATA ?
USUARIO.EXCLUIDOS 04/10/2006 10:52:08
#175522 

For Procura = 0 To (cboNome.ListCount - 1)
    '
    'rotina rs.add (insert to bd)  
    ' rs("field") = cboCC.ItemData(Procura)
    '
Next  Procura
USUARIO.EXCLUIDOS 04/10/2006 10:57:16
#175526
estou usando ADO, Eu coloquei um botão que quando se clica no mesmo ele adiciona ao combo o texto, entende. dai quero salvar no banco todos os dados que possui esse combobox,,
USUARIO.EXCLUIDOS 04/10/2006 11:01:19
#175529
po meu camarada, posso te explorar mais um pouquinho, não entendi muito bem a parte que vc citou

rotina rs.add( insert to bd)
rs("field") = cboCC.itemdata(procura)

agradeço
USUARIO.EXCLUIDOS 04/10/2006 11:06:29
#175531 

Sub AddNewX()

	Dim dbsNorthwind As Database
	Dim rstFuncionários As Recordset
	Dim strNome As String
	Dim strSobrenome As String

	Set dbsNorthwind = OpenDatabase("Northwind.mdb")
	Set rstFuncionários = _
		dbsNorthwind.OpenRecordset("Funcionários", dbOpenDynaset)

	' Obtém dados do usuário.
	strNome = Trim(InputBox( _
		"Digite o nome:"))
	strSobrenome = Trim(InputBox( _
		"Digite o sobrenome:"))

	' Prossegue somente se o usuário realmente digitou 

' algo para o nome e o sobrenome.
	If strNome <> "" and strSobrenome <> "" Then

		' Chama a função que adiciona o registro.
		AddName rstFuncionários, strNome, strSobrenome

		' Mostra os dados que acabaram de ser
		' adicionados.
		With rstFuncionários
			Debug.Print "Novo registro: " & !Nome & _
				" " & !Sobrenome
			' Exclui o novo registro porque isto é uma 
			'demonstração.
			.Delete
		End With

	Else
		Debug.Print _

"Você deve digitar uma seqà¼ência para o nome e o sobrenome!"
	End If

	rstFuncionários.Close
	dbsNorthwind.Close

End Sub

[c]Function AddName(rstTemp As Recordset, _
	strFirst As String, strLast As String)

	' Adiciona um novo registro a um Recordset
	' utilizando os dados passados pelo procedimento de
	' chamada. O novo registro torna-se então
	' o registro atual.
	With rstTemp
		.AddNew
		!Nome = strFirst
		!Sobrenome = strLast

.Update
		.Bookmark = .LastModified
	End With

End Function

[/c]
USUARIO.EXCLUIDOS 04/10/2006 11:34:21
#175540
Amigo faz assim que í mais facil ao clicar no botao que inclui no BD já adiciona no Banco de dados só dar um addnew no adodc
USUARIO.EXCLUIDOS 04/10/2006 15:30:12
#175595
Poiseh kra use direto o BD

por exemplo

Private Sub Command1_Click()

DIM RSadd As New ADODB.Recordset

conexao.open 'não ovu colocar aki, pq vc deve ter uma pronta
RSadd.Open SQL, Conexao, 3, 3 'SQL e Conexao vc define

with RSadd
.addnew
RSadd!(campobd) = txtcombo.text
RSadd.Update
RSadd.Close
Conexao.Close
end with



isso ae, espero ter ajudado
USUARIO.EXCLUIDOS 04/10/2006 15:40:55
#175598
Private Sub cmdAddCampo_Click()

adodc.addnew cboNome.text
cbonome.addnew cbonome.text

end with

Isso funciona amigo.
Tópico encerrado , respostas não são mais permitidas
Voltar