|

今天遇到一个很奇怪的问题,数据库连接建立数据库及表均报执行成功,但是去数据库看只有库建立成功表一个都没建立上
但是把语句单独复制出来,去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, “开始”))
|
|