Postada em 22/03/2012 15:26 hs
Galera, boa tarde!
Estou tentando inserir conteúdos que estão dentro de umas textbox para dentro do meu banco de dados em access e esta dando o erro -2147217900 (80040e14); Erro de sintaxe na instrução INSERT INTO vou colocar abaixo minha linha de programação:
Dim conexao As New ADODB.Connection
'cria a variavel da tabela
Dim cadusuario As New ADODB.Recordset
'cria a string SQL
Dim sql As String
Private Sub cmdcancelar_Click()
Unload Me
End Sub
Private Sub cmdsalvar_Click()
'String para inserir a os itens na tabela
sql = "Insert Into cadusuario(nome, usuario, endereco, logradouro, complemento, estado, cidade, bairro, cep, sexo, rg, cep, ctps, serie, datanasc, fone1, fone2, cargo, email, dataadm, senha, nivel)values('" & txtnome & "', '" & txtuser & "', '" & txtend & "', '" & txtlogr & "', '" & txtcompl & "',, '" & txtest & "', '" & txtcid & "', '" & txtbairro & "', '" & txtcep & "', '" & txtsexo & "', '" & txtrg & "', '" & txtcpf & "', '" & txtctps & "', '" & txtserie & "', '" & txtdatanasc & "', '" & txtfone1 & "', '" & txtfone2 & "', '" & txtcargo & "', '" & txtmail & "', '" & txtdataadm & "', '" & txtsenha & "', '" & txtnivel & "')"
'verifica se a tabela esta sendo usada, se estiver ela fecha
If cadusuario.State = 1 Then cadusuario.Close
'executa o comando SQL, usando a conexao
conexao.Execute sql
End Sub
Private Sub Form_Load()
conexao.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "dbardb.mdb"
End Sub
O Nome do meu banco de dados é "bardb.mdb" e o nome da tabela é cadusuario
|
