IR ULTIMO REGISTRO MYSQL E VB.

ERLANMG 02/01/2010 15:25:28
#330871
caros amigos,

Como faço para gerar código no vb usando banco de dado mysql.
Com a seguinte condição:
Se não tiver algum registro no bd o código é [Ô]00001[Ô] e se tiver ele executa uma sql ordenando por codigo indo até o ultimo registro e somando + 1.
Qdo usava dao fazia assim:

Data10.RecordSource = [Ô]select * from cliente order by codigo[Ô]
Data10.Refresh

If Data10.Recordset.EOF = True Then
text2.Text = geracodigo([Ô]1[Ô], 5)
Else
Data10.Recordset.MoveLast
text2.Text = geracodigo(Data10.Recordset!codigo + 1,5)
End If

Minha dúvida é como faço para o código acima em ado. (Vb e mysql.)

Desde já agradeço a atenção.
RFTD 02/01/2010 15:56:10
#330873 Resposta escolhida 
Dim rs as ADODB.Recordset
Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.open [Ô]select * from cliente order by codigo[Ô], conn

if rs.eof then
   text2.Text = geracodigo([Ô]1[Ô], 5)
Else
   rs.MoveLast
   text2.Text = geracodigo(rs!codigo + 1,5)
End If
ERLANMG 02/01/2010 17:00:33
#330879

Muito obrigado RFTD.

Funcionou perfeitamente.

Apenas incluir o = true.

if rs.eof=true then
text2.Text = geracodigo([Ô]1[Ô], 5)
Else
rs.MoveLast
text2.Text = geracodigo(rs!codigo + 1,5)
End If
JWCELYO 02/01/2010 17:24:08
#330881
você também pode facilita mais ainda usando chave primeira com outo increment na coluna código de seu banco de dados.
assim você não precisara se preocupar com geração de códigos.



exemplo pois feito isso para usar NSERT INTO não precisa mais declaramos o campo codigo
NSERT INTO MyTable(cliente,valor)
Tópico encerrado , respostas não são mais permitidas
Voltar