INSERT ACCESS
Citação::
Onde tu arranjou isto.
Nunca vi este tipo de Insert.
Não funciona.
Para mim funcionou
Citação:Onde tu arranjou isto.
Nunca vi este tipo de Insert.
Não funciona.
OMAR2011,
Também nunca vi, e com certeza não é correto.
Citação::
Onde tu arranjou isto.
Nunca vi este tipo de Insert.
Não funciona.
OMAR2011,
Também nunca vi, e com certeza não é correto.
Mas funcionou
Ops, eu editei um pouco o código, por que aquele não estava funcionando, aqui o código certo
Dim ds As New DataSet
Dim da As OleDbDataAdapter
con = New OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\user\Documents\Visual Studio 2010\Projects\Projeto\Projeto\bin\Debug\db.accdb[Ô])
con.Open()
Dim Str As String = [Ô]INSERT INTO tabela VALUES (1, [ô]tipo[ô], [ô]local[ô])[Ô]
da = New OleDbDataAdapter(Str, con)
da.Fill(ds, [Ô]tabela[Ô])
con.Close() 
Osmar, na verdade não testei, quando eu faço insert eu indico os campos na string e o executo alimentando parametros, não tenho o vs nesta maquina posso postar um exemplo depois, mas existem muitos aqui no vbmania.
Pedro, se o campo é numeração automatica o proprio banco irá criar sem a necessidade de informar.
Abraço
Pedro, se o campo é numeração automatica o proprio banco irá criar sem a necessidade de informar.
Abraço
Ok MITSUEDA deu para perceber, mas queria ver sua resposta. Não me Chamo [txt-color=#e80000]OSMAR [/txt-color]E SIM OMAR
Quanto a você PEDRO47501 foi o coloquei na resposta acima.
Este insert desta forma funcionou aqui com meu teste, não sabia e vamos deixar uma resposta de um oraculo.
Não acredito que seja uma forma correta.
Quanto a você PEDRO47501 foi o coloquei na resposta acima.
Este insert desta forma funcionou aqui com meu teste, não sabia e vamos deixar uma resposta de um oraculo.
Não acredito que seja uma forma correta.
OMAR, desculpe a confusão com o nome é a correria...
Eu faço conforme o código abaixo para um insert, mas eu sempre sei o nome dos campos da minha tabela!
Contudo se a chave primaria for autonumeração ela não deve ser fornecida porque será criada automaticamente pelo comando ExecuteNonQuery
con.Open()
[ô]Definir consulta
Dim strSql As String = [Ô]Insert Into tbl_Vendas(Campo1, Campo2, Campo3) values(?,?,?)[Ô]
[ô]Define o Command
Dim cmd As New OleDbCommand(strSql, con)
[ô]Definir os parametros
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo1[Ô], 1))
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo2[Ô], [Ô]Tipo[Ô]))
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo3[Ô], [Ô]Local[Ô]))
[ô]Executa a consulta ação
cmd.ExecuteNonQuery()
Abraço
Eu faço conforme o código abaixo para um insert, mas eu sempre sei o nome dos campos da minha tabela!
Contudo se a chave primaria for autonumeração ela não deve ser fornecida porque será criada automaticamente pelo comando ExecuteNonQuery
con.Open()
[ô]Definir consulta
Dim strSql As String = [Ô]Insert Into tbl_Vendas(Campo1, Campo2, Campo3) values(?,?,?)[Ô]
[ô]Define o Command
Dim cmd As New OleDbCommand(strSql, con)
[ô]Definir os parametros
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo1[Ô], 1))
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo2[Ô], [Ô]Tipo[Ô]))
cmd.Parameters.Add(New OleDb.OleDbParameter([Ô]Campo3[Ô], [Ô]Local[Ô]))
[ô]Executa a consulta ação
cmd.ExecuteNonQuery()
Abraço
Tópico encerrado , respostas não são mais permitidas