Ecco una parte di codice:
'in questo frammento di codice creo per es. una sola tabella periodi
Dim SQL as String
Dim strDb as String
Dim strConnection As String
Dim engine As System.Data.SqlServerCe.SqlCeEngine
Dim conn As System.Data.SqlServerCe.SqlCeConnection
Dim comando As System.Data.SqlServerCe.SqlCeCommand
strDb = PathRoot + "\DB" + TextBox1.Text + "\db.sdf"
strConnection = "Data Source=" + strDb
...
SQL = "CREATE TABLE Periodi (Periodo nvarchar(20), IdPeriodo nvarchar(5), Scadenza datetime, Inizio datetime, primary key(IdPeriodo));"
...
'Creo il database se non esiste il file in cui ce il percorso del database da aprire
If (System.IO.File.Exists(strDb) = False) Then
engine = New System.Data.SqlServerCe.SqlCeEngine(strConnection)
engine.CreateDatabase()
conn = New System.Data.SqlServerCe.SqlCeConnection("Data source=" + strDb)
conn.Open()
comando = New System.Data.SqlServerCe.SqlCeCommand(SQL, conn)
comando.ExecuteNonQuery()
conn.Close()
Else
'errore db già presente da segnalare
MsgBox("ERRORE: database già esistente")
End If
sSQL as String
data11 = New System.Data.SqlServerCe.SqlCeParameter("@data11", Data.SqlDbType.DateTime)
data22 = New System.Data.SqlServerCe.SqlCeParameter("@data22", Data.SqlDbType.DateTime)
data11.Value = att.ElementAt(2)
data22.Value = att.ElementAt(3)
...
sSQL = "Insert into Periodi (Periodo, IdPeriodo, Scadenza, Inizio)values ('" + att.ElementAt(0) + "','" + att.ElementAt(1) + "',@data1,@data2);"
comando = New System.Data.SqlServerCe.SqlCeCommand(sSQL, conn)
comando.Parameters.Add(data11)
comando.Parameters.Add(data22)
comando.ExecuteNonQuery()
...
Ti ringrazio per la tua disponibilità..