VB E FIREBIRD - RETORNAR VALOR DO GENERATOR

PAULOHSV 28/08/2007 16:13:38
#233124
To começando uma aplicação e resolvi trabalhar com o firebird, o que preciso é que quando a pessoa clicke no botão novo o campo codigo ja me traga o valor do generator incrementado de um, alguem pode me ajudar.
Estou usando o ZStyle IBOLE Provider, alguem pode me ajudar.
USUARIO.EXCLUIDOS 28/08/2007 16:27:15
#233127 Resposta escolhida
Num módulo, coloque isso:


[c]Public Function GeraID(ByVal NomeGenerator As String) As Long
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
'Use a tabela RDB$DATABASE pois ela sempre retorna um único registro
rs.Open "Select GEN_ID(" & NomeGenerator & ", 1) From RDB$DATABASE", cnBanco
GeraID = rs(0)
rs.Close
Set rs = Nothing
End Function

[/c]

E no seu form, chame assim:

seutext.text = GeraID("NomeDoGerador")


Flw.
PAULOHSV 29/08/2007 09:19:25
#233180
Era isto mesmo, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar