insertSql.r

df.sqlInsert <- function(dataframe) {
	count <- 1
	query_start <- "INSERT INTO EpicorReports.db_ddladmin.TempVP ("
	
	while (count <= ncol(dataframe)) {
		if (ncol(dataframe) > count) {
			query_start <- paste0(query_start, colnames(dataframe[count]), ", ")
		}
		if (ncol(dataframe) == count) {
			query_start <- paste0(query_start, colnames(dataframe[count]), ") VALUES (")
		}
		count <- count + 1
	}
	count <- 1
	while (count <= nrow(dataframe)) {
  
		if (nrow(dataframe)+1 > count) {
			subcount <- 1
      
			while (ncol(dataframe) > subcount) {
				query_start <- paste0(query_start, "'", dataframe[count, subcount], "', ")
				subcount <- subcount + 1
			}
			ifelse(count == nrow(dataframe) && ncol(dataframe) == subcount,
				query_start <- paste0(query_start, "'", dataframe[count, subcount], "')"),
				query_start <- paste0(query_start, "'", dataframe[count, subcount], "'),("))
		}
		count <- count + 1
	}	
	sqlQuery(con1,query_start)
}