[Resolvido] ComboBox

[gabrieldb 5]

Só que ai tá o problema como ficaria pra deixar em branco o campo codigo antes do primeiro campo que é txtfantasia ?

 

Conex.Execute ("insert into cliente values('" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtEmail.Text & "','" & txtSite.Text & "')")

Meu insert sem o campo código ele não aceita e dá erro

 

Run-time error '-2147467259 (80004005)':

 

ERROR: invalid input syntax for integer: "Cliente 1"

 

Como faço pra passar o INSERT sem o campo código?

[gabrieldb 5]

Conex.Execute ("insert into cliente values(0,'" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtEmail.Text & "','" & txtSite.Text & "')")

 

Ou

 

Insert Into Clientes (nome,endereco,telefone,...) Values ("gabrieldb","seila",0000000,....)

 

Então essa primeira opção ai deu certo mais no caso só insere uma vez esse mesmo codigo se eu deixar o 0, ai quando tento inserir de novo volta o erro, queria que ele fosse mudando os numeros.

[scorpio 7]

Conex.Execute ("insert into cliente values(0,'" & txtFantasia.Text & "','" & txtEstab.Text & "','" & txtRazao.Text & "','" & txtEndereco.Text & "','" & txtBairro.Text & "','" & txtCidade.Text & "','" & txtEstado.Text & "','" & txtCep.Text & "','" & txtCnpj.Text & "','" & txtInscricao.Text & "','" & txtCcm.Text & "','" & txtFone1.Text & "','" & txtFone2.Text & "','" & txtFone3.Text & "','" & txtFax.Text & "','" & txtResp.Text & "','" & txtCargo.Text & "','" & txtEmail.Text & "','" & txtSite.Text & "')")

 

Ou

 

Insert Into Clientes (nome,endereco,telefone,...) Values ("gabrieldb","seila",0000000,....)

[gabrieldb 5]

Consegui resolver meus dois problemas Scorpio..

Coloquei o codigo que você me passou no form e no evento click doCombobox ficou assim:

 

Private Sub cboPosto_Click()
rs.Open "select * from cliente where nome = '" & cboPosto & "'", Conex, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
    txtRazao.Text = Trim(rs("razao"))
    txtContato.Text = Trim(rs("resp"))
    txtCargo.Text = Trim(rs("cargo"))
Else
    MsgBox ("Não há clientes cadastrados!"), vbExclamation, ("Cadastro de Empregados")
End If
rs.Close
End Sub

Pro Insert não coloquei o campo "codigo" nele e ficou assim:

Insert Into Tabela(Campo1, Campo2) Values('valor1', 'valor2')

Valeu pela ajuda.

Abraço!