Da wir für den SqlCeServer eine SDF-Datenbank brauchen musste ein Skript her um aus einer vohandenen MDB-Datenbank eine SDF-Datenbank zu erstellen.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 |
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 '####################################### |