AJUDA INICIANTE NA AREA.

USUARIO.EXCLUIDOS 13/08/2007 17:37:17
#230771
Estou usando uma conexão com um bd access e uma sql select para abrir a tabela clientes.

E Tenho um formulário de controle de clientes o qual eu tenho que digitar o código do cliente tanto para cadastrar quanto para alterar os dados,gostaria de saber como é que faço pra que sempre que abrir o formulário ele já me informe o próximo código a ser usado?

esse é o código da conexão:

On Error GoTo errConexao
CnnBiblio.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Biblio.mdb;"
CnnBiblio.Open
Unload Me
frmBiblio.Show

e esse é o da sql:

With cnnComando
.ActiveConnection = CnnBiblio
.CommandType = adCmdText
'Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = "SELECT * FROM Usuarios WHERE CodUsuario = " & _
txtCodUsuario.Text & ";"
Set rsSelecao = .Execute
End With

Certo da colaboração dos vbmaníacos

Fiquem com Deus.
VB6MASTER 13/08/2007 18:14:07
#230774
Para pegar o último registro, ou melhor, o último Código válido do BD, use:
cSQL = "SELECT TOP 1 * from Geral ORDER BY AProtocolo desc, NProtocolo desc"

ZULLIM 13/08/2007 19:01:27
#230782
Resposta escolhida
Trabalhando com ADO, tente isso:

Dim NovoCodigo as integer
Dim TbUsuario As New ADODB.Recordset

Strbusca = "Select max(CodUsuario) FROM Usuarios "
set TbUsuario = CnnBiblio.execute(strbusca)

NovoCodigo =Tbusuario(0)+1


USUARIO.EXCLUIDOS 14/08/2007 07:40:03
#230803
FPETRUCC

Só uma sugestão

* - Seja mais claro nas próximas vezes que abrir um tópico,...com títulos como esse, vc deixa de ser ajudado por várias pessoas, as vezes, por n ter sido objetivo na prgunta OK?

qto a sua dúvida, dando uma melhorada no código do ZULLIM, faça desta forma

Dim NovoCodigo as integer
Dim TbUsuario As New ADODB.Recordset

Strbusca = "Select max(CodUsuario) as MaxCod FROM Usuarios "
set TbUsuario = CnnBiblio.execute(strbusca)

NovoCodigo =Tbusuario!MaxCod + 1

Pois do jeito q tava, significa q seu campo código era o primeiro, mas como ja peguei varias vezes, nem sempre funciona assim..então..

mas os créditos são do ZULLIM mesmo..

USUARIO.EXCLUIDOS 17/08/2007 09:09:54
#231292
Obrigado a todos funcionou conforme zullim postou com os ajustes de sinkertec valeu pessoal e parabéns esse fórum é ótimo.

Fiquem com Deus.
LCSD 17/08/2007 09:13:05
#231294
Dúvida resolvida, encerre o tópico e pontue a pessoa que desejar.... Por favor.
Tópico encerrado , respostas não são mais permitidas