版主，能将你建立的数据库打包，发上来吗，谢谢了！！！！

我已经手动建立个个工作安排系统的数据库了，但是不会创建那2个表，请教请教！！！！

帮你弄了个可以自动创建sql数据库和数据表的，在我的sql2000上调试成功

现贴出在sql server中创建数据库和数据表的代码，供各爱好者参考。

Private Sub Form_Load()
  Dim con As New ADODB.Connection, SQL As String, rst As New Recordset
  On Error Resume Next     '错误处理
  '以下是自动创建数据库和数据表的代码,如果存在不会重复创建的
  SQL = " Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog"
  con.Open SQL
  SQL = "CREATE DATABASE 工作安排系统"
  con.Execute SQL   '新建数据库，如果已经有该数据库则出错跳过
  con.Close
  SQL = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工作安排系统"
  con.Open SQL
  SQL = "CREATE TABLE [dbo].[安排信息表] ("
  SQL = SQL & "[name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & "[ftime] [datetime] NOT NULL ,"
  SQL = SQL & "[etime] [datetime] NOT NULL ,"
  SQL = SQL & "[content] [text] COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & "[task] [text] COLLATE Chinese_PRC_CI_AS NULL ,"
  SQL = SQL & "[status] [char] (6) COLLATE Chinese_PRC_CI_AS NOT NULL "
  SQL = SQL & ") ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
  con.Execute SQL  '新建表1，如果存在该数据表则出错跳过
  SQL = "CREATE TABLE [dbo].[日志信息表] ("
  SQL = SQL & "[id] [numeric](18, 0) IDENTITY (1, 1) NOT NULL ,"
  SQL = SQL & "[name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & "[type] [char] (6) COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & "[datet] [datetime] NOT NULL ,"
  SQL = SQL & "[remark] [text] COLLATE Chinese_PRC_CI_AS NULL "
  SQL = SQL & ") ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
  con.Execute SQL  '新建表2，如果存在该数据表则出错跳过
  con.Close
End Sub

在企业管理器中没看到创建的数据库，我一点安排工作，就报出一个如下错误

不清楚你的运行环境，无法模拟你的错误。看情况似乎还是创建数据库不成功，你可以吧我给你加的代码中“on error resume next”语句注释掉，然后运行看错在哪一步，错误提示是什么。我这里运行很正常的。

我的运行环境是XP，数据库是SQL2000

OK 在家里的电脑上调试通过了

家里电脑中的企业管理器中怎么没有找不到数据库呀。。

要在企业管理器里按鼠标右键-刷新一下就出来了。