Creare Database CE

vedi http://msdn.microsoft.com/en-us/library/aa224561(SQL.80).aspx
' http://msdn.microsoft.com/en-us/library/ms838591.aspx

' Errori http://support.microsoft.com/kb/306452/it

'http://www.devbuzz.com/Articles/zinc_sqlce_eVB_starting_out_pg1.aspx


' CREA DATABASE

'http://support.microsoft.com/kb/320785/it

Dim cat As ADOXCE.Catalog
Set cat = CreateObject("ADOXCE.Catalog.3.1")
cat.Create "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\DATAB.sdf"
MsgBox "Database Created"



' CREA LA TABELLA


Dim str_Connection As String
Dim cn As ADOCE.Connection

str_Connection = "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\DATAB.sdf"
Set cn = CreateObject("ADOCE.Connection.3.1")
cn.Open str_Connection
cn.Execute "Create table table1(id int NOT NULL, field1 nvarchar(1))"
cn.Execute "CREATE UNIQUE INDEX idx1 ON table1(id)"
cn.Execute "insert table1 values (1, 'A')"
cn.Execute "insert table1 values (2, 'B')"
cn.Execute "insert table1 values (3, 'C')"
cn.Close
Set cn = Nothing
MsgBox "Table Created"



' UTILIZZA LA TABELLA


Dim cn As ADOCE.Connection
Dim rs As ADOCE.Recordset
Set cn = CreateObject("ADOCE.Connection.3.1")
Set rs = CreateObject("ADOCE.Recordset.3.1")
cn.Open "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0; data source=\DATAB.sdf"
rs.Open "select * from table1 where field1='A'", cn, adOpenKeyset, adLockReadOnly
Dim x As Integer
x = 0
For x = 0 To rs.RecordCount - 1
MsgBox rs(1).Value
rs.MoveNext
Next
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing