Modul
Modul
library(writexl)
library(RMySQL)
#Membuka koneksi
con <- dbConnect(MySQL(), user="root", password="Muti@2121", host="localhost",
dbname="mydb", port=3306)
#Konstruksi SQL
sql <- "SELECT kode_pelanggan, nama_lengkap FROM data_pelanggan WHERE nama_lengkap
#Mengirimkan query
rs <- tryCatch(dbSendQuery(con, sql), finally = print ("query ok"))
#Menggambil data
data.pelanggan <- fetch(rs, n=-1)
data.pelanggan
data.pelanggan$nama_lengkap<-
gsub("\\bir\\b","",data.pelanggan$nama_lengkap,ignore.case = TRUE)
#Menutup Koneksi
all_cons <- dbListConnections(MySQL())
for(con in all_cons) dbDisconnect(con)