Rs.Eof não esta funcionando...
Pessoal,
estou com o codigo abaixo e não consigo saber se o registro foi encontrado ou não... http://forum.imasters.com.br/public/style_emoticons/default/upset.gif
No codigo abaixo estou pretendendo fazer o seguinte, faço uma leitura no Bd se o registro existir dou msg dizendo que ja existe, senão faço a inclusão...
Porém na situação atual, se o registro ja existe o codigo funciona beleza :D , porém se o registro ainda não existe ainda assim ta retornandcom a msg dizendo ja existir.... não sei o que esta acontecendo com o rs.EOF :(
' Abrir a conexão AbrirConexao = Comeco()'Carrega o Registro da Tabela no Objeto Recordset se existir With rs .ActiveConnection = Con .CursorLocation = adUseClient .CursorType = adOpenStatic .LockType = adLockBatchOptimistic .[COLOR=red]Open ("select * from MINISTROS Where NOME_DO_MINISTRO = ' " & TxtNomMin.Text & " ' ")[/COLOR] .ActiveConnection = Nothing End With 'Se não for encontrado qualquer registro,'Cria o registro na tabela If [COLOR=red]Not rs.EOF [/COLOR]Then Inclui_Ministros = Incluir_Min(TxtNomMin, TxtDtInicio, DataSaida) If Inclui_Ministros = True Then LimpaCampos MsgBox COD_MINISTRO_PK & " Ministro Gravado sob nr.", vbOKOnly, "Cadastro de Ministros" Else MsgBox rs("COD_DO_MINISTRO") & "Ministro não Incluído", vbOKOnly, "Inclusão de Ministro" rs.Close End If Else MsgBox rs("Nome_do_Ministro") & " - Ministro Já Cadastrado", vbOKOnly, " Cadastro de Ministros " TxtNomMin.SetFocus Exit Sub End If
Se alguém puder ajudar agradeço Pessoal
:D
Discussão (2)
Carregando comentários...