DANILO FIDELIS
não registrado
|
|
Postada em 15/01/2009 17:28 hs
Pessoal estou com um probleminha. Eu tenho a seguinte linha: Set rsVendedor = Nothing
rsVendedor.Open "Select * From Vendedor Where Vendedor ='" & rsVendas!Vendedor & "'", Cnn, adOpenDynamic, adLockOptimistic
rsLancamento!CodVendedor = Val(rsVendedor!Codigo)
rsLancamento.Update
Set rsLancamento = Nothing
End If eu estou tentando inserir um campo de tipoauto numeraçãoem um campo numero eu estou usando val mas é para texto que comando eu uso nessa situação? |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2009 19:55 hs
rsLancamento!CodVendedor = Cint(rsVendedor!codigo) |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2009 19:58 hs
Mas veja bem, este campo para ser parecido com autonumeração acho que deveria ser assim Set rsVendedor = Nothing
rsVendedor.Open "Select MAX(Codigo) As UltimoCod From Vendedor Where Vendedor ='" & rsVendas!Vendedor & "'", Cnn, adOpenDynamic, adLockOptimistic
rsLancamento!CodVendedor = Cint(rsVendedor!UltimoCod) + 1
rsLancamento.Update
Set rsLancamento = Nothing
End If da forma descrita acima será pego o ultimo codigo inserido e acrescentado 1 ex: ultimo código 3 salvara como 4 |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 17/01/2009 15:48 hs
' Na Tabela CadVendas = VendasID, Tipo Numero RS.Open "CadVendas", CnSql, 1, 3
If (RS.RecordCount = 0) Then
txtVendaID = 1
Else
RS.MoveMax
txtVendaID.Text = RS.Fields("VendaID") + 1
End If
RS.Close
At + Nilton |
|
|
|
