|
今天遇到一个很奇怪的问题,数据库连接建立数据库及表均报执行成功,但是去数据库看只有库建立成功表一个都没建立上
但是把语句单独复制出来,去navicat里执行却都是执行成功,说明语句没有问题,不知道问题出在哪里?
代码如下
局_SQL = “Create database ” + 局_换出库名 局_执行结果 = 数据库连接1. 执行SQL (局_SQL, )如果 (局_执行结果 = 真)局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 创建数据库 ” + 局_换出库名 + “ 成功”编辑框组 [6 ]. 内容 (局_显示内容 )局_错误信息 = 数据库连接1.最后错误 局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 创建数据库 ” + 局_换出库名 + “ 失败,程序终止,错误信息:” + #换行符 + 局_错误信息 编辑框组 [6 ]. 内容 (局_显示内容 )图片框组 [7 ]. 图片 (取资源图片 (2, 0, “开始”)) 返回 (0 )局_SQL = “USE ” + 局_换出库名局_执行结果 = 数据库连接1. 执行SQL (局_SQL, )如果真 (局_执行结果 = 假)局_错误信息 = 数据库连接1.最后错误 局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 切换数据库 ” + 局_换出库名 + “ 失败,程序终止,错误信息:” + #换行符 + 局_错误信息 编辑框组 [6 ]. 内容 (局_显示内容 )图片框组 [7 ]. 图片 (取资源图片 (2, 0, “开始”)) 返回 (0 )局_当前内容 = 编辑框组 [6].内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 切换数据库 ” + 局_换出库名 + “ 成功”编辑框组 [6 ]. 内容 (局_显示内容 )局_表数 = 取数组成员数 (程_表字段信息组 )计次循环首 (局_表数, 局_计数 )局_表名 = 程_表字段信息组 [局_计数 ].表名 局_字段信息组 = 程_表字段信息组 [局_计数 ].包含字段信息 局_字段数 = 取数组成员数 (局_字段信息组 )计次循环首 (局_字段数, 局_计数2 )局_字段名 = 局_字段信息组 [局_计数2 ].字段名 局_字段类型 = 局_字段信息组 [局_计数2 ].字段类型 局_字段长度 = 局_字段信息组 [局_计数2 ].字段长度 局_小数位 = 局_字段信息组 [局_计数2 ].小数位数 局_字段种类 = 局_字段信息组 [局_计数2 ].字段种类 局_是否自增 = 局_字段信息组 [局_计数2 ].是否自增 局_是否可空 = 局_字段信息组 [局_计数2 ].是否可空 局_默认值 = 局_字段信息组 [局_计数2 ].默认值 局_表项数 = 列表框组 [1 ]. 取表项数 ()局_当前位置0 = 寻找文本 (局_字段类型, “(”, 1, 真)如果真 (局_当前位置0 ≠ -1 )局_字段类型 = 取文本左边 (局_字段类型, 局_当前位置0 - 1 )局_表项索引 = 列表框组 [1].查找表项 (局_字段类型, 1, 真, 3)如果真 (局_表项索引 > 0 )局_换入类型 = 列表框组 [1 ]. 取标题 (局_表项索引, 6 )局_文本字段组 = { “char”, “nchar”, “ntext”, “nvarchar”, “varchar”, “text” }局_整数字段组 = { “bigint”, “int”, “smallint”, “tinyint”, “uniqueidentifier” }局_小数字段组 = { “decimal”, “numeric”, “real”, “float” }局_货币字段组 = { “money”, “smallmoney” }局_时间字段组 = { “date”, “datetime”, “datetime2”, “datetimeoffset”, “time”, “smalldatetime” }局_时间戳字段组 = { “timestamp” }局_逻辑字段组 = { “bit” }计次循环首 (取数组成员数 (局_文本字段组 ), 局_计数3 )如果真 (局_文本字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “文本”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_整数字段组 ), 局_计数3 )如果真 (局_整数字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “整数”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_小数字段组 ), 局_计数3 )如果真 (局_小数字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “小数”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_货币字段组 ), 局_计数3 )如果真 (局_货币字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “货币”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_时间字段组 ), 局_计数3 )如果真 (局_时间字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “时间”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_时间戳字段组 ), 局_计数3 )如果真 (局_时间戳字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “时间戳”跳出循环 ()计次循环尾 ()计次循环首 (取数组成员数 (局_逻辑字段组 ), 局_计数3 )如果真 (局_逻辑字段组 [局_计数3 ] = 局_换入类型 )局_换入字段种类 = “逻辑”跳出循环 ()计次循环尾 ()判断 (局_换入字段种类 = “文本” 且 局_换入类型 ≠ “text”)如果真 (局_字段长度 = 0 )局_字段长度 = 100 局_字段长度文本 = 到文本 (局_字段长度)局_单字段文本 = 局_字段名 + “ ” + 局_换入类型 + “(” + 局_字段长度文本 + “)”判断 (局_换入字段种类 = “小数”)局_字段长度文本 = 到文本 (局_字段长度 ) + “,” + 到文本 (局_小数位 )局_单字段文本 = 局_字段名 + “ ” + 局_换入类型 + “(” + 局_字段长度文本 + “)”局_单字段文本 = 局_字段名 + “ ” + 局_换入类型 如果 (局_是否可空 = 假)局_单字段文本 = 局_单字段文本 + “ NOT NULL”局_单字段文本 = 局_单字段文本 + “ DEFAULT NULL”如果真 (取文本长度 (局_默认值 ) > 0 )如果 (局_字段种类 = “文本” 或 局_字段种类 = “时间”)局_单字段文本 = 局_单字段文本 + “ DEFAULT '” + 局_默认值 + “'”局_单字段文本 = 局_单字段文本 + “ DEFAULT ” + 局_默认值 如果真 (局_是否自增 = 真)局_单字段文本 = 局_字段名 + “ int primary key identity(1,1)”判断 (取文本长度 (局_临时文本 ) = 0 )局_临时文本 = 局_单字段文本 局_临时文本 = 局_临时文本 + “,” + 局_单字段文本 计次循环尾 ()局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 正在创建数据表” + 局_表名 编辑框组 [6 ]. 内容 (局_显示内容 )局_语句总文本 = “CREATE TABLE ” + 程_换出库名 + “.dbo.” + 局_表名 + “(” + 局_临时文本 + “)”局_执行结果 = 数据库连接1. 执行SQL (局_SQL, )如果 (局_执行结果 = 真)局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 创建数据表 ” + 局_表名 + “ 成功”编辑框组 [6 ]. 内容 (局_显示内容 )局_临时文本 = “”局_错误信息 = 数据库连接1.最后错误 局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 创建数据表 ” + 局_表名 + “ 失败,程序终止,错误信息:” + #换行符 + 局_错误信息 编辑框组 [6 ]. 内容 (局_显示内容 )图片框组 [7 ]. 图片 (取资源图片 (2, 0, “开始”)) 跳出循环 ()计次循环尾 ()局_当前内容 = 编辑框组 [6 ]. 内容 ()局_显示内容 = 局_当前内容 + #换行符 + 时间转换 (取现行时间 (), 1 ) + “ 换库操作完成!”编辑框组 [6 ]. 内容 (局_显示内容 )图片框组 [7 ]. 图片 (取资源图片 (2, 0, “开始”))
|
|