USUÁRIO:
SENHA:
SALVAR LOGIN ?
Fórum
Visual Basic
Responder
Voltar
Autor
Assunto:
##DAO para ADO, ajuda dos universitarios please##
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 18/09/2008 09:44 hs
Olá VBzadores!
Pessoal estou migrando varias rotinas que uso em DAO para ADO.
Vou precisar muito da ajuda dos colegas nesses dias, pois não sou tão intimo com ADO....
Pois bem, pra começar como faço essa rotina abaixo em ADO.
A rotina busca o ultimo registro (código) no BD e adiciona + um, é usado quando o usuario vai iniciar um novo registro com um novo código.
Private Sub txt_codigo_GotFocus()
Dim AreaTrabalho As Workspace
Dim query As String
Dim xxbco As Database
Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "DADOS.Mdb", False, False)
query = "Select max(campo_codigo) from CADASTRO_REMESSAS"
Set dyn = xxbco.OpenRecordset(query)
DBEngine.Idle dbFreeLocks
If Not dyn.EOF Then
If Not IsNull(dyn(0)) Then
txt_codigo = Format$(Val(dyn(0)) + 1, "0000")
Else
txt_codigo = "0001"
End If
End If
xxbco.Close
End Sub
POR FAVOR
PRECISO MUITO, OBRIGADO!
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele
tu deves dominar
- Gênesis 4.7"
TÓPICO EDITADO
Treze
SÃO VICENTE
SP - BRASIL
Postada em 18/09/2008 10:43 hs
Dario tenha em mente o seguinte, usando ado, estude bastante o SQL, pois tudo será feito usando querys, exemplo para sua duvida, veja como deve proceder
QUERY = "SELECT MAX(campo_codigo) AS codigo FROM cadastro_remessas"
Set dyn = xxbco.OpenRecordset(query)
If Not dyn.EOF Then
If Not IsNull(dyn!codigo) Then
txt_codigo = Format$(Val(dyn!codigo) + 1, "0000")
Else
txt_codigo = "0001"
End If
End If
espero ter ajudado
Alexandre Patos
PATOS DE MINAS
MG - BRASIL
Postada em 18/09/2008 11:49 hs
dim rsUltimo as adodb.recordset
set rsUltimo = new adodb.recordset
sSql = "SELECT MAX(campo_codigo) + 1 AS codigo FROM cadastro_remessas"
rsUltimo.Open sSql, sCnx, adOpenStatic, adLockBatchOptimistic
If Not rsUltimo.EOF Then
If Not IsNull(rsUltimo!codigo) Then
txt_codigo = rsUltimo!codigo
Else
txt_codigo = 1
End If
End If
Dário Cardoso
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 18/09/2008 12:01 hs
Obrigado
valeu a dica
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele
tu deves dominar
- Gênesis 4.7"
Página(s): 1/1
Seu Nome:
Seu eMail:
ALTERAR PARA MODO HTML
Mensagem:
[:)] =
[:P] =
[:(] =
[;)] =
HTML DESLIGADO
VOLTAR
CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site