version 6.30 0 Form1 1 2 0 0 0 2 0 0 0 0 0 0 1 0 1 1 0 0 0 2 238 268 1 SQLDesktop.dll 1 SQLDevice.dll 3 sqlread:DataReader sqlconn:Connection sqlcmd:Command Sub designer addform(Form1,"Form1","",255,255,255)@ addtable(form1,Table2,5,130,220,105,"",245,245,245,0,0,0,True,True,9)@ addlabel(form1,Label2,5,115,90,25,"Output preview",255,255,255,0,0,0,True,True,9)@ addtable(form1,Table1,5,15,220,100,"",245,245,245,0,0,0,True,True,9)@ addlabel(form1,Label1,5,0,85,25,"Input preview",255,255,255,0,0,0,True,True,9)@ addsavedialog(form1,SaveDialog1,215,30,Gecko Database file (.gdb) |*.*)@ addopendialog(form1,OpenDialog1,215,0,CSV files |*.csv)@ addbutton(form1,Button2,120,240,105,25,"Export",212,208,200,0,0,0,False,True,9)@ addbutton(form1,Button1,5,240,105,25,"Import",212,208,200,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start SQLConn.New1 SQLRead.New1 SQLCmd.New1("",SQLConn.Value) Form1.Show End Sub Sub Button1_Click ErrorLabel(ErrImport) If OpenDialog1.Show <> cCancel Then Table1.LoadCSV(Opendialog1.File,";",True,True) Button2.Enabled=True End If Return ErrImport: Msgbox("An error occured while importing") End Sub Sub Button2_Click ErrorLabel(ErrExport) If SaveDialog1.Show <> cCancel Then SQLConn.Open("Data source = " & Savedialog1.File) SQLConn.CreateSQLTable("Table1","Main") SQLcmd.CommandText="select * from Main" SQLCmd.ExecuteTable("Table2",0) End If Return ErrExport: Msgbox("An error occured while exporting") End Sub