Я думаю, вы ищете это:
require(ggplot2)
df <- data.frame(x=seq(1, 1e9, length.out=100), y=sample(100))
# displays x-axis in scientific notation
p <- ggplot(data = df, aes(x=x, y=y)) + geom_line() + geom_point()
p
# displays as you require
require(scales)
p + scale_x_continuous(labels = comma) # typo: label -> labels (corrected)
Создайте объект, который имеет закрытый метод для создания соединения с базой данных, и публичный метод GetData, который принимает строку sql и возвращает набор записей, используя это закрытое соединение.
Private conn as ado.connection
Private sub OpenConn()
'code to set conn
if not conn.state = adostateopen then
conn.connectionstring = "put your string here"
conn.open
end if
end sub
Public function GetData(s as string) as recordset
openconn
dim rs as recordset
set rs = conn.execute s
end function
(реплики с жалобами на то, что они не очищают входные данные и не работают с базой данных и т. Д.)