##DAO para ADO, ajuda dos universitarios please##


	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