在软件开发中，我们经常需要将某些数据保存到数据库中，以便于后续的数据读取或修改。而在使用Ad（AutoCAD）进行工程设计时，也同样需要保存工程的数据。本文将介绍如何使用Ad将工程保存到数据库中。

1. 数据库连接

在Ad中连接数据库需要使用ADO（ActiveX Data Objects）。ADO是一组COM（Component Object Model）组件，是由Microsoft提供的数据访问技术。使用ADO可以方便地连接数据库、执行SQL语句、读取和写入数据等。

在连接数据库之前，我们需要事先在数据库管理系统中创建好数据库，并为其分配一个合适的用户权限。在Ad中连接数据库可以使用以下代码：

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=.;Initial Catalog=TestDB;User ID=sa;Password=123456;"
conn.Open

其中，“Provider”指定了连接的数据库类型，本例中使用的是SQL Server。"Data Source"指定了数据库服务器地址，"."表示本地服务器。"Initial Catalog"指定了要连接的数据库名称。"User ID"和"Password"用于指定数据库连接的用户名和密码。

2. 创建数据表

在保存工程数据之前，需要在数据库中创建相应的数据表。数据表中包含了工程需要保存的数据信息项，比如工程名称、工程图纸、工程创建日期等。在Ad中创建数据表可以使用以下代码：

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn

Dim sql As String
sql = "CREATE TABLE Project (ID INT PRIMARY KEY, Name VARCHAR(50), Drawing IMAGE, CreateDate DATE)"
cmd.CommandText = sql
cmd.Execute

以上代码中，我们使用了SQL语句来创建“Project”表，该表包含了“ID”、“Name”、“Drawing”、“CreateDate”四个字段。其中，“ID”字段为主键，类型为整数；“Name”字段为工程名称，类型为字符串；“Drawing”字段为工程图纸，类型为二进制流；“CreateDate”字段为工程创建日期，类型为日期。

3. 将工程数据保存到数据库中

在创建好数据表之后，我们可以将工程数据保存到数据库中。在Ad中保存数据到数据库中可以使用以下代码：

Dim stm As ADODB.Stream
Set stm = New ADODB