vbs存储数据到mysql

Dim conn, cmd, sql
Dim connectionString

' 数据库连接字符串
connectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=your_server;Database=your_database;Uid=your_username;Pwd=your_password;"

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

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

' SQL语句
sql = "INSERT INTO your_table (column1, column2) VALUES (?, ?)"

' 设置参数
cmd.CommandText = sql
cmd.Parameters.Append cmd.CreateParameter("@column1", adVarChar, adParamInput, 50, "Value1")
cmd.Parameters.Append cmd.CreateParameter("@column2", adVarChar, adParamInput, 50, "Value2")

' 执行SQL语句
cmd.Execute

' 关闭连接
conn.Close

Set cmd = Nothing
Set conn = Nothing