library(FITSio)
library(RMySQL)

load.fits.table = function (fits.filename, db.tablename,db.cfg,db.name) { 
      z<-readFITS(fits.filename)
      df<-data.frame(z$col)
      names(df)<-c(z$colNames)
      con<-dbConnect(MySQL(),default.file=db.cfg,dbname=db.name,user='root')
      dbWriteTable(con,db.tablename,df)
      dbDisconnect(con)
}

load.fits.table("temp.cat","IMAGE_S_1","/Users/users/belikov/VOL/my.cnf","PROB")