[VB6]: Creare tabella in file .mdb ed inserire dati al suo interno

[x69asterix]

buongiorno,

allora con questa parte di codice mi creo una tabella mdb,

With Rs1
.ActiveConnection = Cn1
.LockType = adLockOptimistic
End With

Rs1.Open "CREATE TABLE Piani2(ID COUNTER CONSTRAINT " & _
"ID PRIMARY KEY,Cartella TEXT, FisicaEntrata TEXT, FisicaUscita TEXT,FisicaTempo TEXT,RtConsegna TEXT,DaFisicaARadio TEXT,Anno TEXT)"
DoEvents

bene adesso dovrei popolarla in base a questo tipo di interrogazione:

Rs2.Open "SELECT * FROM PianiQuery WHERE FisicaUscita BETWEEN   #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#"

bene il risultato di questa sql come posso fare ad inserirla nella tabella creata?

[oregon]

INSERT INTO Piani2 SELECT * ...

Ovviamente le tabelle devono avere gli stessi campi ...

[x69asterix]

certo le tabelle sono uguali, ma prima di inserire io eseguo

Rs2.Open "SELECT * FROM PianiQuery WHERE FisicaUscita BETWEEN   #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#"

quindi come prendo il risultato?

[x69asterix]

credo che sia:

Rs1.Open "INSERT INTO Piani2 SELECT * FROM PianiQuery WHERE FisicaUscita BETWEEN   #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#"

[oregon]

Originariamente inviato da x69asterix
credo che sia:

Rs1.Open "INSERT INTO Piani2 SELECT * FROM PianiQuery WHERE FisicaUscita BETWEEN   #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "# AND #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#"

E' quello che ti avevo scritto ...

P.S. Li leggi i PM?