• 0
Sign in to follow this  
ƒ Edu ƒ

Copiar dados de uma tabela para outra com 2 condições...

Question

Galera... Preciso copiar o nome e cod do aluno da tbaluno para a tbmatricula, mas com 2 condições: O nome e cod do aluno têm que fazer referência com o que está sendo exibido no DataGrid, e estes dados devem ser copiados para o campo de acordo com o que foi selecionado no Combo2.

Mas ao executar, o programa me retorna um erro dizendo "Nenhum valor foi fornecido para um ou mais parametros necessários".

Eu sei que isso está ocorrendo porque tem algo errado na instrução SQL, mas não sei achar onde está o erro e, não conheço outra forma de fazer esta cópia de dados.

Alguém consegue ver onde está o erro?

Private Sub cmdIncluir_Click()
    If rsGridTurma.State <> 0 Then
        rsGridTurma.Close
    End If
    'sql = "select tbaluno.nomealuno, tbaluno.codaluno, tbmatricula.nomealuno, tbmatricula.codaluno "
    'sql = sql & " from tbaluno inner join tbmatricula on tbaluno.codaluno = tbmatricula.codaluno"
    'sql = sql & " where tbmatricula.nometurma = '" & Combo2.Text & "'"
    'sql = sql & " and tbaluno.codaluno = '" & GridAluno.Columns(0).Value & "'"
    'Set rsGridTurma = New ADODB.Recordset
    'rsGridTurma.Open sql, bd, adOpenStatic, adLockOptimistic
    With cmd
        .ActiveConnection = bd
        .CommandType = adCmdText
        .CommandText = "insert into tbmatricula" & _
        "(codaluno,nomealuno) select codaluno,nomealuno from tbaluno" & _
        " where tbaluno.codaluno = '" & GridAluno.Columns(0).Value & "'" & _
        " and tbturma.nometurma = '" & Combo2.Text & "'"
        .Execute
    End With
    MsgBox "Aluno incluso na turma com êxito!", vbInformation, "Aviso"
End Sub

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

edu, essa mensagem de erro signfica q ele não esta encontrando algum campo. tipo se o nome do campo estiver digitado errado, ele vai dar essa mensagem.

tenta, em vez de executar o codigo, por um breakpoint (F9), e quando chegar ai, em vez de executar a query, copie o conteudo dela, e tente executar como consulta direto no access q ele deve indicar qual o campo q esta errado.

Share this post


Link to post
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.

Sign in to follow this