ALTERACAO E INCLUSAO DE REGISTRO
gostaria de fazer duas perguntas em uma
PRIMEIRO (BOTÃO ALTERAR)
do mesmo modo que o botã o excluir eu acho que não posso alterar um registro cuja tabelas existe integridade referencial (chave estrangeira) será que poderia tratar esse botão alterar do mesmo modo que um botão excluir???
ABAIXO CODIGO DO MEU BOTAO EXCLUIR
Private Sub CmdExcluir_Click()
On Error GoTo ExclErr:
Dim resp As VbMsgBoxResult
Dim SqlDelete As String
resp = MsgBox("Deseja excluir o registro de usuário", vbQuestion + vbYesNo, "Exclusão de Usuário")
If resp = vbYes Then
SqlDelete = "Delete from TB_USUARIO where USUARIO_CODIGO=" + TxtCodigo
cn.Execute SqlDelete
MsgBox "Dados excluÃdos com sucesso", vbOKOnly + vbInformation, "Cadastro e Manutenção de Usuário"
LimpaCampos
Call BotoesDesliga(Me)
CamposOFF
MaskData = Date
End If
GoTo ExclExit:
ExclErr:
MsgBox "ATENÇÃO: " & vbCrLf & _
"Não foi possÃvel excluir o registro" & vbCrLf & _
"este registro possui dependentes", vbOKOnly + vbInformation, "Exclusão de Usuário"
Err.Clear
ExclExit:
resp = Empty
SqlDelete = Empty
End Sub
SEGUNDO (BOTÃO GRAVAR)
como faço pra não gravar dois registros identicos exemplo pra não gravar dois funcionários com o mesmo RG
PRIMEIRO (BOTÃO ALTERAR)
do mesmo modo que o botã o excluir eu acho que não posso alterar um registro cuja tabelas existe integridade referencial (chave estrangeira) será que poderia tratar esse botão alterar do mesmo modo que um botão excluir???
ABAIXO CODIGO DO MEU BOTAO EXCLUIR
Private Sub CmdExcluir_Click()
On Error GoTo ExclErr:
Dim resp As VbMsgBoxResult
Dim SqlDelete As String
resp = MsgBox("Deseja excluir o registro de usuário", vbQuestion + vbYesNo, "Exclusão de Usuário")
If resp = vbYes Then
SqlDelete = "Delete from TB_USUARIO where USUARIO_CODIGO=" + TxtCodigo
cn.Execute SqlDelete
MsgBox "Dados excluÃdos com sucesso", vbOKOnly + vbInformation, "Cadastro e Manutenção de Usuário"
LimpaCampos
Call BotoesDesliga(Me)
CamposOFF
MaskData = Date
End If
GoTo ExclExit:
ExclErr:
MsgBox "ATENÇÃO: " & vbCrLf & _
"Não foi possÃvel excluir o registro" & vbCrLf & _
"este registro possui dependentes", vbOKOnly + vbInformation, "Exclusão de Usuário"
Err.Clear
ExclExit:
resp = Empty
SqlDelete = Empty
End Sub
SEGUNDO (BOTÃO GRAVAR)
como faço pra não gravar dois registros identicos exemplo pra não gravar dois funcionários com o mesmo RG
No botão gravar tu pode fazer o seguinte:
Trabalhando com ADO e tendo uma Conexao ADO chamada Conn
Essa rotina serve para inserir um novo funcionário, qdo for alterar tem de fazer outras consistências:
if VerificaRGDuplicado(textCodigoFuncionario.text) then
msgbox "Funcionário já cadastrado!"
exit sub
endif
function VerificaRGDuplicado(RG as string) as Boolean
Dim rs as new ADODB.RecordSet
set rs=new ADODB.RecordSet
rs.CursorLocation=adUseClient
rs.open "SELECT * FROM Funcionarios WHERE CodigoFuncionario = " & RG,Conn,adOpenDynamic,adLockOptimistic
if rs.recordcount0 then
VerificaRGDuplicado=true
else
VerificaRGDuplicado=false
endif
rs.close
End Function
Trabalhando com ADO e tendo uma Conexao ADO chamada Conn
Essa rotina serve para inserir um novo funcionário, qdo for alterar tem de fazer outras consistências:
if VerificaRGDuplicado(textCodigoFuncionario.text) then
msgbox "Funcionário já cadastrado!"
exit sub
endif
function VerificaRGDuplicado(RG as string) as Boolean
Dim rs as new ADODB.RecordSet
set rs=new ADODB.RecordSet
rs.CursorLocation=adUseClient
rs.open "SELECT * FROM Funcionarios WHERE CodigoFuncionario = " & RG,Conn,adOpenDynamic,adLockOptimistic
if rs.recordcount0 then
VerificaRGDuplicado=true
else
VerificaRGDuplicado=false
endif
rs.close
End Function
Tópico encerrado , respostas não são mais permitidas