Jump to content
Fórum Script Brasil
  • 0

Jogar Valor De Inputbox Dentro Dum Insert Into


Macêdo
 Share

Question

Vejam este codigo:

Private Sub Cmd_arquivar_Click()

Dim vA As Integer
vA = MsgBox("Desejar informar o número da caixa em que será arquivado este projeto ?", vbYesNo + vbQuestion, "Arquivar projeto")
If vA = vbYes Then

If TextCOD_PROJETOS = "" Then
Dim vINF As Integer
vINF = MsgBox("Não foi informado nenhum Projeto para arquivamento, verifique.", vbOKOnly + vbCritical, "Arquivar projeto")
    
    Else
    
    Dim cnncomando As New ADODB.Command
    Dim rs_arquivo As New ADODB.Recordset
    With cnncomando
    .ActiveConnection = cnnProjetos
    .CommandType = adCmdText
    .CommandText = " select * from arquivo "
    Set rs_arquivo = .Execute
    End With
        With rs_arquivo
        rs_arquivo.Filter = " cod = " & TextCOD_PROJETOS.Text
        If Not (.BOF And .EOF) Then
            
        Dim vJA_EXISTE_NO_ARQUIVO As Integer
        vJA_EXISTE_NO_ARQUIVO = MsgBox("Este projeto já consta na Base de Dados do Arquivo", vbOKOnly + vbCritical, "Arquivar projeto")
        
        Else
        
        With cnncomando
        .ActiveConnection = cnnProjetos
        .CommandType = adCmdText
        .CommandText = " insert into arquivo " & _
        "(cod, cpf, nome)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "
    .Execute
    
    End With
    End If
Set cnncomando = Nothing
Set rs_arquivo = Nothing

        

End With
End If
End If
End Sub

Vejam onde informo para gravar na tabela ARQUIVO os dados da tabela PROJETOS, porém, além destes campos gostaria de por dentro do: INSERT INTO, o outro campo da tabela ARQUIVO, que é o campo CAIXA mas, o valor informado para este campo teria que ser informado pelo usuario por uma inputbox, que viria logo após o ELSE, o problema é quando colocar o campo CAIXA dentro de:

.CommandText = " insert into arquivo " & _

"(cod, cpf, nome, CAIXA)select cod, cpf, nome from projetos where cod = " & TextCOD_PROJETOS.Text & " "

.Execute

onde colocarei a variavel valor da inputbox?

Edited by kuroi
tag CODE
Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Deu erro Kuroi, agradeço pela atenção, acabei colocando um UPDATE logo após o INSERT que acabou funcionando como se fosse um prolongamento do INSERT, inseri os valores dos campos COD, CPF, NOME com o insert e abaixo coloquei um UPDATE para o campo CAIXA onde o COD fosse o mesmo.

Valeu!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.4k
×
×
  • Create New...