GERAR CODIGO USUARIO AUTOMATICO

USUÁRIO: SENHA:

SALVAR LOGIN ?


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: GERAR CODIGO USUARIO AUTOMATICO

NOVATO1259

SAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/09/2005 08:48 hs

Bom dia pessoal estou usando VB com ACCESS  com  ADO.
Estou tentando trazer do banco de dados o ultimo código, e assim somar + 1 a ela
para informar ao usuario o codigo para cadastro. mas ainda não deu certo .

banco de dados   BIBLIO
TABELA               USUARIOS
CAMPO                CODUSUARIO

ActiveConnection = cnnBiblio
        CommandType = adCmdText
        .CommandText = "select max(CodUsuario)as tot  from usuarios"
         Set rsSelecao = .Execute

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 21/09/2005 09:14 hs

Tenta assim:

Dim cnn as Adodb.connection

dim rs as adodb.recordset

set cnn = new Adodb.connection

set rs = new adodb.recordset

cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MeuBD"

rs.cursorlocation = aduseclient

rs.open "Select max(CodUsuario) as tot from Usuarios",cnn

Cavalheiro

PRESIDENTE PRUDENTE
SP - BRASIL

ENUNCIADA !

Postada em 23/09/2005 11:13 hs

            If rsAutos.EOF Then
                txtCodigo.Text = 1
            Else
                recordset.MoveMax
                txtCodigo.Text = recordset("CODUSUARIO") + 1
            End If
            rsAutos.AddNew

E DEPOIS É SO GRAVAR

_______________________________________________

Depto de Águas e Energia Elétrica do Estado de São Paulo
Programador
Presidente Prudente-SP
http://vbprudente.blogspot.com

Página(s): 1/1

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

VOLTAR


		CyberWEB Network Ltda. © Copyright 2000-2024 - Todos os direitos reservados. Powered by HostingZone - A melhor hospedagem para seu site