USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
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" Emoções
TÓPICO EDITADO
 
Treze
Pontos: 2843 Pontos: 2843
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
Pontos: 2843 Pontos: 2843
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" Emoções
   
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
Topo da página