1 数据源连接

Set conn = CreateObject("ADODB.Connection")

Set rst = CreateObject("ADODB.Recordset")

conn.Open "Provider=MSDASQL;DSN="&Database_Name&""

2.新建数据库

SQL_Table = "CREATE DATABASE " & SmartTags("szDatabase")

Set rst = conn.Execute(SQL_Table)

3.删除数据库

SQL_Table = "DROP DATABASE " & SmartTags("szDatabase")

4.新建表

SQL_Table = "CREATE TABLE "& SmartTags("szTableName") & " (Nr SMALLINT, " _

            & SmartTags("szName_1") & " CHAR(30), " & SmartTags("szName_2") & " SMALLINT, " _

            & SmartTags("szName_3") & " SMALLINT)"

5.删除表

SQL_Table = "DROP TABLE  "& SmartTags("szTableName")

6.查找项

SQL_Table = "SELECT * FROM " & SmartTags("szTableName") & " WHERE Nr = " & SmartTags("nDat_No")

7.插入项

SQL_Table = "INSERT INTO "& SmartTags("szTableName") & " VALUES ('" & SmartTags("nDat_No") & _

            "' , '" & SmartTags("nValue_1") & "' , '" & SmartTags("nValue_2") & _

            "' , '" & SmartTags("nValue_3") & "')"

8.删除项

SQL_Table = "DELETE FROM " & SmartTags("szTableName") &" WHERE Nr = " & SmartTags("nDat_No")  

9，编辑/修改项目

SQL_Table = "UPDATE "& SmartTags("szTableName") & " Set " & SmartTags("szName_1") & " = '" & SmartTags("nValue_1")