Imports System.Data.OleDb
Imports System.Data.SqlServerCe
'#######################################
'Hier den Pfad angeben in dem die Datenbank erstellt werden soll
Dim ConnStr As String = "Data Source = .\wince_artikel_inventur.sdf" & _
";File Mode=Shared Read;Persist Security Info=False"
Dim conn As New SqlCeConnection(ConnStr)
Dim cmd2 As New SqlCeCommand()
Dim SQLCEDB As New SqlCeEngine(ConnStr)
Dim i as Integer
'Prüfen ob die Datenbank in dem angegebenen Pfad nicht schon gibt
If Not System.IO.File.Exists(".\wince_artikel_inventur.sdf") Then
SQLCEDB.CreateDatabase()
cmd2.Connection = conn
conn.Open()
'Anlegen einer Tabelle in der Datenbank
cmd2.CommandText = "CREATE TABLE [tbl_artikel](" & _
"[ean] [nvarchar](255) <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://buykamagrausa.net">https://buykamagrausa.net</a></div> , " & _
"[artikel] [nvarchar](255), " & _
"[bez] [nvarchar](255), " & _
"[preis] [nvarchar](255), " & _
"[ean2] [nvarchar](255))"
cmd2.ExecuteNonQuery()
'##############
'Importieren der Daten der Tabelle "tbl_artikel"
For Each row As DataRow In ds.Tables(0).Rows
cmd2.CommandText = "INSERT INTO tbl_artikel (ean,artikel,bez,preis,ean2) " & _
"VALUES " & _
"('" & _
row(0) & "','" & _
row(1) & "','" & _
Replace(row(2), "'", "") & "'," & _
row(3) & " <div name="divHrefB" style="height: 0px;width: 0px;overflow:hidden;"><a href="https://oberhaushof.ch/wp-content/uploads/.stat/adglim/index.html">Köpa Adglim - Amaryl På Nätet Receptfritt</a></div> ,'" & _
row(4) & "'" & _
")"
cmd2.ExecuteNonQuery()
i += 1
Debug.Print(i)
Application.DoEvents()
Next
conn.Close()
End If
'#######################################