library("RMySQL")
library("RCurl")

host      <- ""
user      <- ""
password  <- ""
dbname    <- ""

mydb <- dbConnect(MySQL(), user=user, password=password, dbname=dbname, host=host)

url  <- ""

print(url)
    
download_obj <- getURL( url, ssl.verifypeer = FALSE  )
c_download_obj <- read.csv(text = download_obj)
    
    
#   for ( k in 3:nrow(c_download_obj)  )
for ( k in 3:3 )
{
      a = c_download_obj[k, 1]    
      b = c_download_obj[k, 2]     
      c = c_download_obj[k, 3]   
      d = c_download_obj[k, 4]
      
      print(a)  
      
      sql_string <- paste(
      			"insert into mytable ",
                      	"( col1, col2, col3, col4 ) values ( '", 
                      	a, 
                      	"','", 
                      	b, 
                      	"','", 
                      	c, 
                      	"','", 
                      	d, 
                      	"') ",
                      sep=""
                   )
      
      print(sql_string)  
       
      result <- tryCatch({   
        
        	dbSendQuery( mydb, sql_string )
        
      }, error = function(err) {       
        print( err$message )
      }, finally = {}) 
      
      
      
}
    
    
all_cons <- dbListConnections(MySQL())
for(con in all_cons) dbDisconnect(con)