AJUDA INICIANTE NA AREA.
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.
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.
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"
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
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
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..
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..
Obrigado a todos funcionou conforme zullim postou com os ajustes de sinkertec valeu pessoal e parabéns esse fórum é ótimo.
Fiquem com Deus.
Fiquem com Deus.
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