Hi Erel,
The source may say word than words (I tried with 's, no better):
Sub insertpic_Click
cmd.New1("CREATE TABLE IF NOT EXISTS exoplanets (rarad REAL,derad REAL,Name TEXT,Constellation TEXT,RA TEXT,Dec TEXT,Dist NUMERIC,Mag NUMERIC,Msun NUMERIC,Mjup NUMERIC,Period NUMERIC,a NUMERIC,ex NUMERIC,Spectral TEXT,image BLOB)",con.Value)
cmd.ExecuteNonQuery
fileOpen(c1,"exoplanets.csv",cread)
zt=fileRead(c1)
do until zt=EOF
zt=fileRead(c1)
v()=gps.StrSplit(zt,",")
cmd.CommandText = "INSERT INTO exoplanets values("&v(0)&","&v(1)&","&v(2)&","&v(3)&","&v(4)& ","&v(5)&","&v(6)&","&v(7)&","&v(8)&","&v(9)&","&v (10)&","&v(11)&","&v(12)&","&v(13)& "," & cmd.FileToBLOB(AppPath & "\images\" & v(14)) & ")"
cmd.ExecuteNonQuery
loop
fileClose(c1)
'cmd.CommandText = "SELECT image FROM exoplanets"
'reader.Value = cmd.ExecuteReader
'reader.ReadNextRow
'Image1.Image = reader.GetImage(0)
End Sub
|