USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Insert no combo
Korn
 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 26/12/2005 10:12 hs            
pessoal uns dias atras eu postei aki pergutando como se faz pra incluir dados no banco atraves do combo , e acabei resolvendo usando o Update,
 
mas pessoal nao consigo de jeito nenhum incluir dados no banco atraves do insert into , nao sei porque ocorre isso , se alguem puder me ajudar agradeceria muito , eu vou postar o codigo , se alguem souber por favor me ajude
 
no form load eu ponho assim
 
cbosituacao.Text = ""
cbosituacao.AddItem "Quitado"
cbosituacao.AddItem "Financiado"
 
e no botao incluir junto com o insert into eu tenho algumas funcoes pra verificar se esta inserindo o memmo codigo mais de um vez ok
 
Sql = "Select * From Tbl_Apartamentos Where Tbl_Apartamentos.Codigo = " & Trim(txtcod) & " and  Tbl_Apartamentos.CodigoImo = " & Trim(txtcodimo) & ""
            
    Set rsA = New ADODB.Recordset
    rsA.Open Sql, cnBd, 2, 3
If Not rsA.EOF Then
If MsgBox("Este Código Já Esta Cadastrado.Inclusão Negada", vbQuestion) = vbYes Then
rsApartamentos.Delete adAffectCurrent
cnBd.Execute "insert into Tbl_Apartamentos  (Codigo, CodigoImo, Financiado, Vezes, Dinheiro, Saldo, Situac) Values (" & txtcod.Text & "," & txtcodimo.Text & ",'" & txtfinanciado & "'," & txtvezes & ",'" & txtdinheiro & "','" & txtsaldo & "','" & cbosituacao & "')"
rsApartamentos.Requery
   
    Else
  
rsApartamentos.Delete
   
MsgBox "Inclusão Cancelada!", vbInformation, "|||| Registro Inválido ||||"
rsApartamentos.MoveMax
   
    Exit Sub
   
End If
End If
   
    rsA.Close
    rsApartamentos.MoveMin

Jesus Cristo é O Senhor!!!
     
Korn
 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 28/12/2005 09:37 hs            
Alguem ????????

Jesus Cristo é O Senhor!!!
     
Geronimo
 Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 28/12/2005 16:54 hs            
Korn eu utilizo DAO para acesso a banco de dados, mas pelo que pude ver você tem um erro na sua instrução sql veja este exemplo com um campo combo para nome e outro para data :
where nome = '" & cmbnome.Text & "'  and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# ordi by nome asc"
Veja este é um pedaço do seu codigo :
" & Trim(txtcodimo) & "
o certo :
' " & Trim(txtcodimo) & " '
 
 
Abaixo segue uma esquema como faço em DAO para trabalhar com os dados em tabelas :

Case "Incluir" ‘botão incluir aonde faço primeiro uma pesquisa para verificar duplicidade

Dim Criterio As String

Criterio = "cbmNome = '" & cmbnome.Text & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# "

TBBolãoT.FindMin Criterio

If TBBolãoT.NoMatch = False Then

MsgBox "Já consta na Súmula a Participação do Atleta." & Chr(13) & "Verifique se foi selecionado os campos corretos.", 48, "Aviso de Duplicidade"

cmbnome.SetFocus

Else

TBBolãoT.AddNew

End If

Case "Gravar" ‘ grava os dados em minha tabela

If cmbnome.Text = Empty Then

MsgBox "Informe o Nome do Atleta.", 48, "Gravar Súmula"

cmbnome.SetFocus

Exit Sub

End If

AtualizaCampos

TBBolãoT.Update

LimpaFormulário

cmbnome.SetFocus

Case "Alterar" ‘ se precisar alterar

If cmbnome.Text = Empty Then

MsgBox "Informe o Nome do Atleta.", 48, "Alterar Súmula"

cmbnome.SetFocus

Exit Sub

End If

 

If MsgBox("Confirma Alteração?", 36) = vbYes Then

 

TBBolãoT.Edit

AtualizaCampos

TBBolãoT.Update

cmbnome.Enabled = True

txtdatacompetição.Enabled = True

LimpaFormulário

txtdatacompetição.Text = Date

txtdatacompetição.Text = Format(txtdatacompetição.Text, "dd/mm/yy")

End If

Case "Excluir" ‘ se precisar excluir

If MsgBox("Confirma Exclusão?", 36, "Excluir Dados") = vbYes Then

BancoDeDados.Execute ("delete * from BolãoT") 'limpo a tabela

LimpaFormulário

cmbnome.Enabled = True

txtdatacompetição.Enabled = True

txtdatacompetição.Text = Date

txtdatacompetição.Text = Format(txtdatacompetição.Text, "dd/mm/yy")

End If

Case "Pesquisar" ‘ para pesquisar informações na tabela

Dim Criterios As String

Criterios = "Nome = '" & cmbnome.Text & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# "

TBBolãoT.FindMin Criterios

If TBBolãoT.NoMatch = True Then

MsgBox "Não consta na Súmula a Participação do Atleta." & Chr(13) & "Verifique se foi selecionado os campos corretos.", 48, "Tiro ao Alvo - Seta"

txtdatacompetição.Text = Date

txtdatacompetição.Text = Format(txtdatacompetição.Text, "dd/mm/yy")

LimpaFormulário

txttiro.Item(0).SetFocus

Else

AtualizaFormulário

cmbnome.Enabled = False

txtdatacompetição.Enabled = False

End If

Case "Cancelar"

MsgBox "Você quer Cancelar a Inclusão?", 36, "Entrada de Dados"

LimpaFormulário

cmbnome.SetFocus

Case "Sair"

If MsgBox("Você deseja realmente fechar as Súmulas???", 36, "Sair da Súmula") = vbYes Then

Unload BolãoT

Else

Exit Sub

End If

End Select

Private Function LimpaFormulário()

cmbnome = ""

End Function

Private Function AtualizaCampos()

TBBolãoT("Nome") = cmbnome

TBBolãoT("Data") = Format(txtdatacompetição.Text, "dd/mm/yy")

End Function

Private Function AtualizaFormulário()

cmbnome = TBBolãoT("Nome")

txtdatacompetição = Format(TBBolãoT("Data"), "dd/mm/yy")

End Function

 
 

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Korn
 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 30/12/2005 10:06 hs            
Continua nao pegando irmao , alguem pode me ajudar ????

Jesus Cristo é O Senhor!!!
     
Korn
 Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 02/01/2006 09:53 hs            
alguem ?????????????

Jesus Cristo é O Senhor!!!
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site 		Topo da página