inserir dados em tabela

[zenfra 0]

Olá pessoal,

 

Gostaria de tirar uma duvida..

Estou criando um sisteminha de cadastro e controle de patrimônio de minha empresa

e gostaria de saber como inserir os dados dos campos de um formulário nos campos em minha

tabela em um banco de dados Access xp

 

Criei o formulário de cadastro primeiramente com dois botões, gravar e limpar...

Não queria que o banco fosse aberto logo que o sistema iniciasse então estou abrinao a conexão sempre que for necessario para algum procedimento como o de gravar os dados por exemplo... as linhas dentro do meu botão gravar para abertura do banco estão da seguinte forma:

 

Private Sub bto_grava_Click()

Dim Bdados As Database

Dim Regs As Recordset

Dim insere As String

 

Set Work = DBEngine.Workspaces(0)

If Dir(App.Path & "\" & "patri.mdb") = "" Then

MsgBox "Não foi possivel encontrar o banco de dados.", vbCritical, "Atenção"

End

Else

Set Bdados = Work.OpenDatabase(App.Path & "/patri.mdb", False, False, ";PWD=")

End If

 

'insere =("INSERT INTO Tabela (campo,campo...)(VELUES campo, campo)")

'set Regs = Bdados.Openrecordset(insere,modulo de abertura)

 

End Sub

 

 

As linhas destacadas em vermelho são as linha que eu estava tentando fazer para que pudesse inserir os dados na tabela, mas não estão dando certo...

 

alguém poderia me dizer como eu devo criar essa linha para inserir os dados ...

 

 

agradeço pela ajuda...

 

abraços e um feliz ano novo a todos

[zenfra 0]

Bom eu refiz a linha

 

vejam.... só que agora quando eu clico no botão gravar ele da um erro nessa linha dizendo que o numero de valores da consulta e o numero de campos de destino não coincidem ...

 

o que pode ser?

 

 

Private Sub bto_grava_Click()

Dim Bdados As Database

'Dim Regs As Recordset

'Dim insere As String

 

'Abre e seta banco de dados

Set Work = DBEngine.Workspaces(0)

If Dir(App.Path & "\" & "patri.mdb") = "" Then

MsgBox "Não foi possivel encontrar o banco de dados.", vbCritical, "Atenção"

End

Else

Set Bdados = Work.OpenDatabase(App.Path & "/patri.mdb", False, False, ";PWD=")

End If

 

'Executa Função de gravação de dados em tabela

Bdados.Execute "INSERT INTO patrimonio VALUES('nom_patri','num_patri','num_bem','num_serie','loc_patri','dat_aqui','gar_dat','not_fisc','valor_patri','nom_fabri','forn_rev','desc','obs')"

'insere =("INSERT INTO Tabela (campo,campo...)(VELUES campo, campo)")

'set Regs = Bdados.Openrecordset(insere,modulo de abertura)

 

 

End Sub

[Graymalkin 0]

Não é "VELUES" e sim "VALUES" e ele fica fora dos parênteses.Abraços,Graymalkin