Access 和 MySQL 都是数据库管理系统(DBMS),但它们在设计、用途和性能上有显著的区别。
' 创建一个新的Access数据库
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\path\to\your\database.accdb")
' 添加一个表
Dim tdef As DAO.TableDef
Set tdef = db.TableDefs.Add("MyTable")
tdef.Fields.Append tdef.CreateField("ID", dbInteger)
tdef.Fields.Append tdef.CreateField("Name", dbText)
' 插入数据
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("MyTable")
rs.AddNew
rs!ID = 1
rs!Name = "John Doe"
rs.Update
rs.Close
-- 创建一个新的数据库
CREATE DATABASE mydatabase;
-- 使用该数据库
USE mydatabase;
-- 创建一个表
CREATE TABLE mytable (
ID INT PRIMARY KEY,
Name VARCHAR(255)
);
-- 插入数据
INSERT INTO mytable (ID, Name) VALUES (1, 'John Doe');
领取专属 10元无门槛券
手把手带您无忧上云