Alguém poderia me dizer se está certo essa rotina para deletar um registro do BD?

No meu caso tenho que verificar em uma tabela se existem registros relacionados com o registro que irei deletar, se não existir, irei deletar um outro registro que fica em outra tabela que é vinculada com este!

Se estiver certo, há alguma perda na exclusão do registro?

 

'Função

Set RsConsulta = New ADODB.Recordset
RsConsulta.Open "SELECT FkCald FROM TblHistorico WHERE FkCald = '" & lblNumero.Caption & "'", db, adOpenStatic, adLockOptimistic
   If RsConsulta.EOF Then
      Set Rs = New ADODB.Recordset
      Rs.Open "DELETE FROM TblTurnos, TblCaldeiras WHERE TblTurnos.FkCald = 'TblCaldeiras.IdCald'", db, adOpenStatic, adLockOptimistic
    Else
        lblInfoCald.Visible = True
        tmInfoCald.Enabled = True
   End If
RsConsulta.Close
Rs.Close
Set RsConsulta = Nothing
Set Rs = Nothing

'fim

 

[]'s

 

Marcelo Tamanini

Na linha: Rs.Open "DELETE FROM TblTurnos, TblCaldeiras WHERE TblTurnos.FkCald = 'TblCaldeiras.IdCald'", db, adOpenStatic, adLockOptimistic

utilize

db.execute "DELETE FROM TblTurnos, TblCaldeiras WHERE TblTurnos.FkCald = 'TblCaldeiras.IdCald'"

 

 

 

Não posso utilizar o recordset em vez do connection?

Se usar existe perda de desempenho, seria isso?

[]'s

 

Marcelo Tamanini

???

O que acontece é que DELETE, INSERT, UPDATE, são instruçoes SQL "Executáveis".

Se vc chamá-las por Recordset, elas ficarão "Presas" no Recordset, enquanto se vc Chamar pelo objeto Connection ou com um Command, a instrução é executada.

 

O contrário Tb, se vc mandar executar um SELECT, não vai acontecer nada.

Tá, mas o correto não é sempre utilizar o connection apenas para abrir os banco de dados e o recordset ou o command para executar instruções SQL, nisto terá um desempenho melhor?

[]'s

 

Marcelo Tamanini