|
|
Postada em 17/07/2006 19:32 hs
Pessoal não estou conseguindo fazer o Insert nos meus combos, tenho 2 combos: cmbCid, e cmbUF, qdo vou salvar no meu formulário, ele indica q está vazia os combos, mas eu acabei de escolher uma opção, esses combos suas listas foram preenchidas na List. Obrigado |
|
|
|
|
|
|
|
Postada em 17/07/2006 21:30 hs
Esses combos são DropdownCombo ou DropdownList? vc acessa o conteudo por Combobox.List(index) ou por Combobox.Text?
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
|
Postada em 17/07/2006 22:09 hs
São ComboBox, olha o insert, em negrito o trecho do insert do combo Cnn.Execute "INSERT INTO Funcionarios(Registro, Nome, Data_Nasc, RG, CPF, Cargo, Hor_Ent, Hor_Sai, End, Num, Cep, Bairro, Cidade, UF, Email, Tel_Res, Tel_Cel ) VALUES (" & txtRegis & ",'" & txtNme & "','" & txtDatNasc & "','" & txtRG & "','" & txtCPF & "','" & txtCarg & "','" & txtHorEnt & "','" & txtHorSai & "','" & txtEnd & "'," & txtNum & ",'" & txtCep & "','" & txtBair & "','" & cmbCid.ItemData(cmbCid.ListIndex) & "','" & cmbUF.ItemData(cmbCid.ListIndex) & "','" & txtEmail & "','" & txtTelRes & "','" & txtTelCel & "')"
obrigado |
|
|
|
Maha
|
SÃO PAULO
SP - BRASIL
|
|
Postada em 17/07/2006 22:28 hs
Mude a propriedade dos combo para 2- dropdownlist e grave assim: '"& cmbCID &"' para cidade e '"& cmbUF &"' para estados
Saúde e Paz, o resto... trabalhando vem!!! "Se um dia a vida lhe der as costas, passe a mão na bunda dela!!!"
|
|
|
|
|
|
Postada em 18/07/2006 01:22 hs
Mude MAHA e continua dando o seguinte erro: Run-time error '-2147217900 (80040e14)': Erro de sintaxe na instrução INSERT INTO esse é o erro. Obrigado |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/07/2006 08:57 hs
cleyton , mas o erro agora é outro, ta faltando aspas em txtNum e txtRegis faça assim Dim ssql As String
ssql = "INSERT INTO Funcionarios(Registro, Nome, Data_Nasc, RG, CPF, Cargo,"
ssql = ssql & "Hor_Ent, Hor_Sai, End, Num, Cep, Bairro, Cidade, UF, Email, Tel_Res,"
ssql = ssql & "Tel_Cel ) VALUES ('" & txtRegis & "','" & txtNme & "','" & txtDatNasc
ssql = ssql & "','" & txtRG & "','" & txtCPF & "','" & txtCarg & "','" & txtHorEnt
ssql = ssql & "','" & txtHorSai & "','" & txtEnd & "','" & txtNum & "','" & txtCep & "','"
ssql = ssql & txtBair & "','" & cmbCid.ItemData(cmbCid.ListIndex) & "','"
ssql = ssql & cmbUF.ItemData(cmbCid.ListIndex) & "','" & txtEmail & "','" & txtTelRes & "','" ssql = ssql & txtTelCel & "')"
|
|
|
|
|
