Código Estendido


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Código Estendido

Nilton Vianna

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 18/06/2010 19:28 hs

Boa noite amigos minha duvida é seguinte

Estou usando banco de dados Access com a tabela CadClientes

A chave primária é Clienteid esta como Numero Long

Que estou querendo fazer é uma seqüência de códigos tipo 000001

Quando eu vou criar um novo 1

Eu queria que contasse assim 00001 no próximo 00002

O ex. que estou usando

ProximoNro = CLng(MaiorNro(0)) + 1

Grato Nilton

Treze

SÃO VICENTE
SP - BRASIL

ENUNCIADA !

Postada em 19/06/2010 09:24 hs

Primeiro colega diga qual o tipo de conexão, se possivel postar um exmplo de consulta.

segundo se no tipo do campo vc colocou longo, não é necessário salvar com os zeros, ele nem vai salvar assim, 00001, 00002....ele vai salvar assim 1,2,3...1000.....2353...10897

porém na hora de exibir o campo vc formata o mesmo assim Format(rs!rscampo, "00000")

bom quanto a auto numeração é o seguinte

crie uma sub para isto

ex:

Sub AutoNum()

Dim CNN As New ADODB.Conection

Dim RS As Recordset

Set RS = CNN.Execute("SELECT MAX(ClienteID) As ID FROM tabela"

Campotextoid = RS!ID + 1

End Sub

o exemplo acima deve ser chamado sempre que vc for adicionar um novo cliente

veja se já clareia alguma coisa

Nilton Vianna

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 19/06/2010 17:10 hs

estou usando assim no modulo

depois tenho o caminho no Config.INI

com isso aceesso todas as tabelas do Banco de Dados

Caminho = ReadINI("Caminho", "BD", App.path & "Config.ini")
CnSql.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Caminho & ";Jet OLEDB:database Password=XXXXXX"

nos Forms eu uso assim

Public CnSql As New ADODB.Connection

Public Function ProximoNro(aTabela As String, aCampo As String) As Long
    'ESTA FUNCAO PEGA O PROXIMO NRO DE UM CAMPO EM UMA TABELA. EX:
    Dim MaiorNro As New ADODB.Recordset
    MaiorNro.Open "SELECT MAX(" & aCampo & ") FROM " & aTabela, CnSql, adOpenForwardOnly, adLockReadOnly
    If IsNull(MaiorNro(0)) Then
         ProximoNro = 1
         Else
       ProximoNro = CLng(MaiorNro(0)) + 1
       End If
    MaiorNro.Close
    Set MaiorNro = Nothing
    txtClienteID.Text = ProximoNro
End Function

Obs: o Campo Codigo da tabela CadCliente esta como ClienteID (Numero)

Grato

Nilton Vianna

AMPARO
SP - BRASIL

ENUNCIADA !

Postada em 19/06/2010 17:40 hs

Entendi mais na hora de entrar com um novo cliente

no meu caso esta assim

[NOVO]

Código: 1

o que estou querendo é que ele apareça assim

[NOVO]

Código: 000001

Grato

Marcelo-Treze
não registrado

ENUNCIADA !

Postada em 19/06/2010 20:12 hs

colega num sei como vc exibe o código no textbox mas seria algo assim

txtCodigo.Text = Format(RS!coidgo,"00000")

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR