求助：帮忙将其调试下，谢谢 - 编程论坛

#2

Artless2014-01-19 11:19

调试

#3

lowxiong2014-01-19 11:33

试了，正常。可以输入、查询派工记录的，你有什么具体问题没有？

#4

recool2014-01-21 14:35

在我这里怎么调试不过呀。。

#5

recool2014-01-21 14:36

需要安装什么东西吗。。。

#6

recool2014-01-21 14:58

提示SQL不存在或拒绝访问

#7

recool2014-01-21 14:59

只有本站会员才能查看附件，请登录

#8

lowxiong2014-01-21 16:04

回复 7楼 recool

应该是你没有建立sql数据库。

#9

recool2014-01-21 16:35

版主，你用的是SQL什么版本，你是直接调试了下就成功了，还是创建了个，名字是什么，本人菜鸟，刚接触VB

#10

lowxiong2014-01-21 17:57

我用的是sql server2000，你提供的压缩包里有个备份我无法用，但有一个txt文件里是一个存储过程，运行后就自动创建数据库了。当然我2000还无法运行整个存储过程，我手动建立一个“工作安排系统”数据库，然后截取txt文件里两个创建数据表的sql语句，建立了程序所需要的表，运行程序后一切正常，sql数据库见下图：

只有本站会员才能查看附件，请登录

#11

recool2014-01-22 08:13

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

#12

recool2014-01-22 10:35

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

#13

lowxiong2014-01-22 18:12

回复 12楼 recool

帮你弄了个可以自动创建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

#14

recool2014-01-23 17:00

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

只有本站会员才能查看附件，请登录

#15

lowxiong2014-01-23 18:28

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

#16

recool2014-01-23 19:39

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

#17

recool2014-01-23 19:44

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

#18

recool2014-01-23 19:46

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

#19

lowxiong2014-01-23 20:32

回复 18楼 recool

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