ola amigos,

estou tentado fazer o tipo de gravar tabelas via;

codigo(chave) tipo numero(inteiro longo).

 

com auto numeraçao tudo bem, so que criei tipo assim

 

ClienteID = autonumeracao inteiro longo (Chave Primaria)

CodigoCliente = Numero inteiro longo (Nao duplicado)

(noso de alterar o codigo)

 

é seguinte na hora da gravaçao fica tipo codigoID = 59

                                                 codigocliente = 01

por motivo de apagar e os clientes e criar novo..

 

pra mim usar apenas

vc pode ser mais específico?

 

na minha tabela tenho os campos:

 

ClienteID           tipo  - autonumerarcao(ChavePrimaria)*

CodigoCliente     tipo  - Numero

Nome                tipo  - Character

Endereco           tipo  - Character

 

a minha idéia e tirar  o ClienteID, e colocar apenas

 

CodigoCliente     tipo - Numero (ChavePrimaria)*

Private Sub GravaDados()

Dim adCmdPaciente As New ADODB.Command
Dim CodCliente As Long
Dim Resp As Byte

If Not TudoOK Then Exit Sub

Resp = MsgBox("Confirma Gravação de " & txtNome & " em Cadastro de Cliente ?", vbYesNo + vbQuestion, "Salvar Dados")

If Resp = 7 Then Exit Sub

'On Error Resume Next

CodCliente = Val(txtCodCliente.Text)
   
With adCmdPaciente

    Set .ActiveConnection = cnSQL
    .CommandType = adCmdText
    .Prepared = True
   
    If CodCliente > 0 Then
   
        .CommandText = "UPDATE CadCliente set Nome = ?, Endereco = ? CodCliente = " & CodCliente
       
        .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30)
        .Parameters.Append .CreateParameter("Endereco", adVarChar, adParamInput, 30)
 
       
        .Parameters("Nome") = txtNome.Text
        .Parameters("Endereco") = txtEndereco.Text
      
        .Execute
       
        If Err.Number <> 0 Then
        MostraErro
        End If
       
    Else
   
        .CommandText = "INSERT INTO CadCliente (Nome, Endereco) Values (?, ?)"
       
''''''''''''''''''''''''''''''''''''  SEFRIA AQUI MINNHA DUVIDA????   ''''''''''''''''''''''''''
'''' .Parameters.Append .CreateParameter("CodigoCliente", adVarChar, adParamInput, 30)

tipo numero, e nao autonumerar..
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
         

        .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 30)
        .Parameters.Append .CreateParameter("Endereco", adVarChar, adParamInput, 30)
       
        .Parameters("CodigoCliente") = txtCodigoCliente.Text
        .Parameters("Endereco") = txtEndereco.Text
        .Parameters("Bairro") = txtBairro.Text
       
        .Execute
       
     If Err.Number <> 0 Then
        MostraErro
        End If
    End If

                 
End With
       
    Set adCmdPaciente = Nothing
   cmdNovo_Click
   
End Sub