|
|
Postada em 19/03/2007 18:57 hs
Boa Tarde, Pessoal, tenho essa rotina ai embaixo. É o seguinte, ele faz a consulta no banco, guarda no recordset e se o numero do "codigo" já existir, ele teria que me trazer a mensagem dizendo que este "banco" ja existe. No que está errado ? Dim rsJahExiste As New ADODB.Recordset sql = " select codigo from tbl_bancos " & _
" where codigo = '" & txtcodigo.Text & "'"
rsJahExiste.Open sql, Cnn, adOpenStatic, adLockReadOnly
If rsJahExiste.RecordCount > 0 Then
sql = "insert into tbl_bancos (codigo,descricao) Values( '" & _
Trim(txtcodigo.Text) & "','" & _
Trim(txtdescricao.Text) & "')"
Cnn.Execute sql
MsgBox " Banco incluido com sucesso ", vbExclamation, " Controle de Cheques - Atenção !! "
txtcodigo.SetFocus
limpacampos
'recarrega o registro que acabou de ser incluso
recarregaregistros 0, "INSERT"
End If
Grato ... Att Michel Morgado - Administrador de Redes |
|
|
|
|
|
|
|
Postada em 19/03/2007 19:40 hs
Dim rsJahExiste As New ADODB.Recordset sql = " select codigo from tbl_bancos " & _
" where codigo = '" & txtcodigo.Text & "'"
rsJahExiste.Open sql, Cnn, adOpenStatic, adLockReadOnly
If rsJahExiste.RecordCount = 0 Then
sql = "insert into tbl_bancos (codigo,descricao) Values( '" & _
Trim(txtcodigo.Text) & "','" & _
Trim(txtdescricao.Text) & "')"
Cnn.Execute sql
MsgBox " Banco incluido com sucesso ", vbExclamation, " Controle de Cheques - Atenção !! "
txtcodigo.SetFocus
limpacampos
Está invertendo, copie ai. vlu// |
|
|
|
|
|
Postada em 19/03/2007 20:09 hs
Eh mesmo cara, o certo é Recordset = 0 e não recordset > 0. ehhee valeu em .. |
|
|
|
|
