无法连接SQL服务器时，如何用R自动生成建表及插数SQL代码？

以下几种方法可以帮你自动生成CREATE TABLE和INSERT INTO语句，无需连接SQL服务器：

方法1：利用DBI包生成适配数据库的语句 #

DBI包的函数可以模拟数据库连接，生成对应数据库语法的SQL语句（以MySQL为例）：

# 安装并加载依赖包
install.packages(c("DBI", "RMySQL"))
library(DBI)

# 创建模拟的MySQL连接（无需真实服务器）
con <- dbConnect(RMySQL::MySQL(), dbname = "dummy", host = "localhost", username = "user", password = "pass")

# 生成CREATE TABLE语句
create_stmt <- sqlCreateTable(con, "my_table", my_table)

# 生成INSERT语句的数值部分，拼接完整插入语句
insert_data <- sqlData(con, my_table)
insert_stmt <- sprintf(
  "INSERT INTO my_table (%s) VALUES \n%s",
  paste(colnames(my_table), collapse = ", "),
  paste(apply(insert_data, 1, function(row) paste0("(", paste(row, collapse = ", "), ")")), collapse = ",\n")
)

# 输出结果
cat(create_stmt, "\n\n", insert_stmt)

如果需要适配PostgreSQL、SQLite等其他数据库，替换对应的驱动包（如RPostgres、RSQLite）即可，sqlCreateTable会自动调整类型映射。

方法2：使用sqldf包快速生成语句 #

sqldf包可以直接基于数据框生成SQL语句，默认适配SQLite语法，也可指定其他数据库：

install.packages("sqldf")
library(sqldf)

# 生成CREATE TABLE语句（指定mysql可适配MySQL语法）
create_stmt <- createTableSQL("my_table", my_table, dbname = "sqlite")

# 生成INSERT语句的行数据
insert_rows <- apply(my_table, 1, function(x) {
  paste0("(", paste(sQuote(x, q = FALSE), collapse = ", "), ")")
})
insert_stmt <- sprintf(
  "INSERT INTO my_table VALUES \n%s",
  paste(insert_rows, collapse = ",\n")
)

cat(create_stmt, "\n\n", insert_stmt)

方法3：自定义轻量函数 #

如果不想依赖第三方包，可以自己写一个简单函数，灵活控制类型映射：

generate_sql <- function(df, table_name) {
  # 定义R类型到SQL类型的映射（可根据需求扩展）
  type_map <- function(x) {
    switch(class(x)[1],
           integer = "INT",
           numeric = "FLOAT",
           character = "VARCHAR(255)",
           Date = "DATE",
           POSIXct = "DATETIME",
           "TEXT")
  }
  col_types <- sapply(df, type_map)
  
  # 生成CREATE TABLE语句
  create_stmt <- sprintf(
    "CREATE TABLE %s (\n  %s\n);",
    table_name,
    paste(paste(colnames(df), col_types), collapse = ",\n  ")
  )
  
  # 生成INSERT语句的行数据，处理特殊字符和NA
  insert_rows <- apply(df, 1, function(row) {
    processed <- sapply(row, function(val) {
      if (is.na(val)) return("NULL")
      if (is.character(val) || inherits(val, "Date")) {
        return(paste0("'", gsub("'", "''", val), "'"))
      }
      as.character(val)
    })
    paste0("(", paste(processed, collapse = ", "), ")")
  })
  
  insert_stmt <- sprintf(
    "INSERT INTO %s (%s) VALUES \n%s",
    table_name,
    paste(colnames(df), collapse = ", "),
    paste(insert_rows, collapse = ",\n")
  )
  
  list(create_table = create_stmt, insert_data = insert_stmt)
}

# 使用函数生成代码
sql_output <- generate_sql(my_table, "my_table")
cat(sql_output$create_table, "\n\n", sql_output$insert_data)

内容的提问来源于stack exchange，提问作者stats_noob