INSERT INTO NAO FUNCIONA
Alguém sabe porque esta minha instrução não está funcionando?
Este comando eu uso em vários outros projetos também
O engraçado é que quando eu executo este código no Access (accdb ou mdb) funciona e insere perfeitamente.
Estou usando ADODB
o Proveider é [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
Minha referência é a Microsoft activeX Data Objects 2.8 Library
Visual Studio 2010
[txt-color=#e80000][Ô]INSERT INTO tblCampanhas (Nome, Destino) VALUES ([ô]campanha1[ô],[ô]diretório[ô])[Ô][/txt-color]Este comando eu uso em vários outros projetos também
O engraçado é que quando eu executo este código no Access (accdb ou mdb) funciona e insere perfeitamente.
Estou usando ADODB
o Proveider é [Ô]Microsoft.Jet.OLEDB.4.0[Ô]
Minha referência é a Microsoft activeX Data Objects 2.8 Library
Visual Studio 2010
Sintaticamente parece correto, qual a mensagem de erro?
a mensagem é:
Erro de sintaxe no comando INSERT INTO
voce ja tentou executar essa query fora do seu aplicativo,dentro do access?
poste o codigo aqui pra gente ver e analisar.
vlw
vlw
Só pode está havendo um erro quando vc passa esssa string para o código que vai executar a consulta. Crie um Breakoint e veja qual é a string que realmete está sendo passada para o comando.
desculpe a ignorância, mais não ponto e vÃrgula no final?
não sou muito acostumado com SQL só dando uma opinião mesmo
não sou muito acostumado com SQL só dando uma opinião mesmo
Faça o seguinte;abra um novo projeto e faz a referência.Va na pasta que foi salvo o projeto ,suapasta\bin\Debug e coloque aqui o seu banco.
Copie e cole deste jeito.
[ô]Option Strict Off
[ô]Option Explicit On
Public Class Form1
Dim Tb As ADODB.Recordset
Dim Bd As ADODB.Connection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Tb = New ADODB.Recordset
Bd = New ADODB.Connection
Bd.Open([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\SeuBanco.MDB[Ô])
Tb.ActiveConnection = Bd
Tb.Open([Ô]Select * From TblCampanhas[Ô])
mostrar()
End Sub
Private Sub mostrar()
Text1.Text = [Ô][Ô] & Tb(0).Value
Text2.Text = [Ô][Ô] & Tb(1).Value
Text3.Text = [Ô][Ô] & Tb(2).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String
sql = [Ô]INSERT INTO tblCampanhas (Nome, Destino) VALUES ([ô]campanha3[ô],[ô]diretório3[ô])[Ô]
Bd.Execute(sql)
MsgBox([Ô]Gravado[Ô])
End Sub
End Class
Tente deste jeito.Uma forma simples
Inté
Copie e cole deste jeito.
[ô]Option Strict Off
[ô]Option Explicit On
Public Class Form1
Dim Tb As ADODB.Recordset
Dim Bd As ADODB.Connection
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Tb = New ADODB.Recordset
Bd = New ADODB.Connection
Bd.Open([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\SeuBanco.MDB[Ô])
Tb.ActiveConnection = Bd
Tb.Open([Ô]Select * From TblCampanhas[Ô])
mostrar()
End Sub
Private Sub mostrar()
Text1.Text = [Ô][Ô] & Tb(0).Value
Text2.Text = [Ô][Ô] & Tb(1).Value
Text3.Text = [Ô][Ô] & Tb(2).Value
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sql As String
sql = [Ô]INSERT INTO tblCampanhas (Nome, Destino) VALUES ([ô]campanha3[ô],[ô]diretório3[ô])[Ô]
Bd.Execute(sql)
MsgBox([Ô]Gravado[Ô])
End Sub
End Class
Tente deste jeito.Uma forma simples
Inté
Olá Amigo.
Não estando a ver como está estroturado o seu código, me parece que não definiu os dados Campanha1 e directorio como string/Text.
Veja o exemplo :
Não estando a ver como está estroturado o seu código, me parece que não definiu os dados Campanha1 e directorio como string/Text.
Veja o exemplo :
Dim statement As String
Dim conn As ADODB.Connection
[ô] Abre conexão
Set conn = New ADODB.Connection
conn.ConnectionString = _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & db_file & [Ô];[Ô] & _
[Ô]Persist Security Info=False[Ô]
conn.Open
[ô] Compões a string.
statement = [Ô]INSERT tblCampanhas (Nome, Destino) VALUES ([Ô] & _
[Ô][ô][Ô] & campanha1.Text & [Ô][ô], [Ô] & _
[Ô][ô][Ô] & diretório.Text & [Ô][ô][Ô] & [Ô])[Ô]
[ô] Executar comando..
conn.Execute statement, , adCmdText
[ô] Fechar conexão
conn.Close
Galera, desculpa a demora por responder, mas é que tive problemas com a internet
Bom... Meu código é este:
Repito que já execute este mesmo código no Access e funcionou perfeitamente
e que este é um padrão aqui na empresa. Praticamente todos os programas daqui
têm esta estrutura de INSERT INTO.
A todos os que postaram seus exemplos, todos deram o mesmo erro: [Ô]Erro de sintaxe no comando INSERT INTO[Ô]
Vou tentar começar do zero este programa, com outro projeto, outro nome para ver se o problema foi na criação
do projeto
Bom... Meu código é este:
Repito que já execute este mesmo código no Access e funcionou perfeitamente
e que este é um padrão aqui na empresa. Praticamente todos os programas daqui
têm esta estrutura de INSERT INTO.
A todos os que postaram seus exemplos, todos deram o mesmo erro: [Ô]Erro de sintaxe no comando INSERT INTO[Ô]
Vou tentar começar do zero este programa, com outro projeto, outro nome para ver se o problema foi na criação
do projeto
Tópico encerrado , respostas não são mais permitidas