Raphael
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 09:58 hs
Aew Pessoal, tudo bom? Eu tenho a seguinte rotina: Dim Chaves As ADODB.Recordset
Set Chaves = New ADODB.Recordset
Chaves.Open "CadPedVen", Dados, adOpenDynamic, adLockOptimistic
Chaves.AddNew
Chaves("local") = iLocal
Chaves.Update
MsgBox Chaves("Auto") Gostaria que mostrasse a chave que foi gerada... tem como fazer isto? ele sempre me retorna em branco. Raphael |
|
|
|
|
|
Ramos
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 10:12 hs
Dim Chaves As ADODB.Recordset Dim lCHAVE AS Long
Set Chaves = New ADODB.Recordset
Chaves.Open "CadPedVen", Dados, adOpenDynamic, adLockOptimistic
Chaves.AddNew
Chaves("local") = iLocal
Chaves.Update Chaves.MoveMax ' as vezes o forum altera é MoveLLaasstt lCHAVE = Clng(Chaves!CHAVE)
MsgBox Str(lCHAVE) vlu// |
|
|
|
Raphael
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 10:33 hs
Opa, consegui resolver da seguinte maneira.. trocando a minha execução para: Chaves.Open "CadVen", Dados, 1, 3 Eu não posso usar o MoveMax pois eu posso ter N usuarios adicionando dados na minha tabela e pegar o numero que corresponde a outro usuario. Valeu! Raphael |
|
|
|
|-tom-|
|
CATANDUVA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/04/2006 16:38 hs
tenta assim : 'Propósito: retornar o valor da coluna identidade do registro recém incluído
'O argumento SQL é um comando INSERT válido
Dim rs As ADODB.Recordset
Dim lAutoID As Long
On Error GoTo TrataErro
fRetornaAutoNum = 0
Set rs = CreateObject("ADODB.Recordset")
With rs
'Prepara o RecordSet
.CursorLocation = adUseServer
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.Source = "SELECT @@IDENTITY"
End With Set rs.ActiveConnection = cnn
rs.Open , , , , adCmdText
lAutoID = rs(0).Value
rs.Close
Set rs = Nothing
'se você chegou aqui, está tudo ok
fRetornaAutoNum = lAutoID
------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tom -Catanduva/SP Analista Sistemas - Visual Basic 6 - VB.NET "Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna" Isaías 26:4 
|
|
|
|
