V?RIOS [Ô]INSERT INTO...[Ô]

LUART 06/07/2016 22:29:12
#464585
Boa noite, preciso colocar vários valores pré-definidos em diversas linhas de um banco de dados usando o mesmo comando [Ô]Insert into[Ô] ou um Loop.
    Dim SQLCID10 As String = [Ô]Select * from CID10[Ô]
Dim conectbanco = New OleDb.OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & Application.StartupPath & [Ô]\bd1.accdb[Ô])
conectbanco.Open()
Dim adCID10 As New OleDb.OleDbDataAdapter(SQLCID10, conectbanco)
ds = New DataSet([Ô]CID10[Ô])
adCID10.Fill(ds, [Ô]CID10[Ô])
conectbanco.Close()

Dim SQL1 = [Ô]Insert into CID10(ID,Código,Descrição) values([ô]1[ô],[ô]A00.0[ô],[ô]Cólera devida a Vibrio cholerae 01, biótipo cholerae[ô]),([ô]2[ô],[ô]A00.1[ô],[ô]Cólera devida a Vibrio cholerae 01, biótipo El Tor[ô])[Ô]


conn = New OleDb.OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source=[Ô] & Application.StartupPath & [Ô]\bd1.accdb[Ô])
conn.Open()
cmd = New OleDb.OleDbCommand(SQL1, conn)

cmd.ExecuteNonQuery()


Não deu certo;

Tentei essas dicas:
https://www.daniweb.com/programming/software-development/threads/469130/how-to-insert-multiple-value-from-multiple-textbox-into-a-single-field
http://www.vbforums.com/showthread.php?651506-adding-INSERT-INTO-statement-inside-a-loop
e também não deu certo

Alguém pode me indicar um caminho para que possa realizar esta ação?

Obrigado
KERPLUNK 06/07/2016 23:20:16
#464588
[Ô]Não deu certo[Ô] é meio vago, o que aconteceu? Qual a exception que aparece?
LUART 06/07/2016 23:38:21
#464589
A excessão foi missing semicolon (;) at end of SQL statement
Mesmo colocando o [Ô];[Ô] o mesmo erro ocorre

 Dim SQL1 = [Ô]Insert into CID10(ID,Código,Descrição) values([ô]1[ô],[ô]A00.0[ô],[ô]Cólera devida a Vibrio cholerae 01, biótipo cholerae[ô]),([ô]2[ô],[ô]A00.1[ô],[ô]Cólera devida a Vibrio cholerae 01, biótipo El Tor[ô]);[Ô]  


KERPLUNK 06/07/2016 23:44:50
#464590
Estou vendo que você está usando um arquivo do access como banco de dados. Não sei se essa sintaxe é suportada...
LUART 07/07/2016 10:31:22
#464605
Não é suportada.
Vou tentar de outra forma
Faça seu login para responder