vbs添加mysql记录

CREATE TABLE users (
    id INT AUTO_INCREMENT PRIMARY KEY,
    username VARCHAR(50) NOT NULL,
    email VARCHAR(100) NOT NULL
);

Dim conn, cmd, sql

' 数据库连接信息
Dim dbHost, dbUser, dbPass, dbName
dbHost = "localhost"
dbUser = "your_username"
dbPass = "your_password"
dbName = "your_database"

' 创建连接字符串
Dim connectionString
connectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=" & dbHost & ";Database=" & dbName & ";Uid=" & dbUser & ";Pwd=" & dbPass & ";"

' 创建连接对象
Set conn = CreateObject("ADODB.Connection")
conn.Open connectionString

' 创建SQL语句
sql = "INSERT INTO users (username, email) VALUES ('john_doe', 'john@example.com')"

' 创建命令对象
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = sql
cmd.Execute

' 关闭连接
conn.Close

Set conn = Nothing
Set cmd = Nothing