功能 抽查导出数据_点击()
//直接把数据库里的数据写入到excel文件中,当然包括ID号也要导出.ID号在数据库中是唯一健,一般创建记录后,就不会更改了.
//但一定要记的当数据库清空后,重新导入EXCELL中的数据后,ID号会变,这时为了备分还需要再把数据库的数据导出,以保证的ID的不变性.
//不从表格中导出数据到EXCELL,是因为窗口中的表格增加了五人元素,这些元素是没有意义的.
var c**tr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&sysgetprocesspath()&"/date/ssjdate.mdb"
var sql= "SELECT * FROM dxx"
var line = 0
var ret_array
var err
var ret
ret = database(c**tr,sql,line,ret_array,err)
// 字符串转数组(ret_array)
消息框 ("=========================================================\n"&sysgetprocesspath())
//由于系统工作路径函数得到了类似于:c:\xxx\xx\x\的路径,所以后面的文件夹前就不需要再加\,每个文件夹名称前面加两个\的原因是,转义符.
// excel写(sysgetprocesspath()&"export\\jc\\"&时间年(当前时间())&时间月(当前时间())&时间日(当前时间())&时间时(当前时间())&时间分(当前时间())&时间秒(当前时间())&".xls",ret_array,"sheet1")
//特别注意:上表中当字段内容超过4000字符时,TC导出时就生成不了EXCELL文件.因此使用插件看能否实现.以下的是使用插件的代码.
变量 文件路径
文件路径=sysgetprocesspath()&"export\\jc\\"&时间年(当前时间())&时间月(当前时间())&时间日(当前时间())&时间时(当前时间())&时间分(当前时间())&时间秒(当前时间())&".xls"
变量 LazyExcel,path,Index,LArr,SIndex,SName,RCount,CCount,Rangeend,Rangestart,Str
//定义一个插件对象,然后就用这个对象去调用插件命令的接口
LazyExcel = 插件("Lazy.LxjExcel")
//打开EXCEL文件,并隐藏
Index = LazyExcel.ExcelOpen(文件路径, 0)
// //获取第一个标签页的名称,得到导入EXCELL中数据中所需要的第一个参数
// SName = LazyExcel.SheetGetName(1,Index)
var size=数组大小(ret_array)
var 尾部字段的索引值=数组键查找(ret_array[0],"AddDate")
var key,值
for(var i=0;i< size;i++)
for (var j=0;j< 尾部字段的索引值+1;j++)
数组获取元素(ret_array[i],j,值,key)
LazyExcel.ExcelWrite(1,i+1,j+1,值,Index)
// 消息框(值,key)
end
end
LazyExcel.ExcelClose(Index)
结束 |