OpenOffice Calc tábla exportálása insert sql szövegbe

REM  *****  BASIC  *****
 
Sub ToSql
  dim myhandle as integer
  dim l as string
  dim r as integer
  dim oDoc as object
  dim oSheet as object
  r=1
  oDoc=thiscomponent
  oSheet=oDoc.Sheets.getByName("Munkalap1")
  myhandle=freefile
  open "d:tempinsert.sql" for output as #myhandle
  while oSheet.getCellByPosition(0,r).getString<>""
    l="insert into Foglalkoztato (id,nev,torzsszam,adoszam,adoazonosito) values ("
    l=l+gcs(oSheet,r,0,2)+","+gcs(oSheet,r,1,50)+","+gcs(oSheet,r,2,8)+","+gcs(oSheet,r,6,11)+","+gcs(oSheet,r,27,10)
    l=l+");"
    print #myhandle,l
    r=r+1
  wend
  close #myhandle
End Sub
 
function gcs(s as object,r as integer,c as integer, l as integer) as string
  gcs()="’"+left(trim(s.getCellByPosition(c,r).getString),l)+"’"
end function
 
function gci(s as object,r as integer,c as integer) as string
  gci()=trim(s.getCellByPosition(c,r).getString)
end function
Reklámok

Vélemény, hozzászólás?

Adatok megadása vagy bejelentkezés valamelyik ikonnal:

WordPress.com Logo

Hozzászólhat a WordPress.com felhasználói fiók használatával. Kilépés / Módosítás )

Twitter kép

Hozzászólhat a Twitter felhasználói fiók használatával. Kilépés / Módosítás )

Facebook kép

Hozzászólhat a Facebook felhasználói fiók használatával. Kilépés / Módosítás )

Google+ kép

Hozzászólhat a Google+ felhasználói fiók használatával. Kilépés / Módosítás )

Kapcsolódás: %s