菜问题:怎么把一个ACCESS数据库中一个表的部分字段导出到另一个数据库(或EXCEL中)中阿? 在Excel中"数据"菜单->"获取外部数据"->"新建数据库查询"选择驱动程序为Access,选择数据库名字选择表,字段导入这样做还可以根据最新的数据库的跟新来跟新数据 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 嗯,好像是有点。就是在一台计算机上有一个存储数据的MDB,其中有一个表中的数据的一部分要提取出来成EXCEL表格或生成新的MDB,存到软盘中。我想用一个VB的小程序实现,但水平有限,所以求助阿... 可先用数据管道在PB中建立(或导入到)一个数据库,在通过数据窗口保存为你想要的任何格式的文件包括excelString ls_File, ls_Path, ls_ExtInteger li_Valueli_Value = GetFileSaveName ("打印到文件", ls_Path, ls_File, "DOC", &"文本文件; (*.CSV), *.CVS," + &"文本文件Tab (*.TXT), *.TXT," + &"dBASE II (*.DBF), *.DBF," + &"dBASE III (*.DBF), *.DBF," + &"DIF文件 (*.DIF), *.DIF," + &"Excel文件 (*.XLS), *.XLS," + &"HTML文件 (*.HTM), *.HTM," + &"PSR文件 (*.PSR), *.PSR," + &"SQL文件 (*.SQL), *.SQL," + &"多格式文件 (*.SYL), *.SYL," + &"Lotus1-2-3 (*.WKS), *.WKS," + &"Lotus1-2-3 (*.WK1), *.WK1," + &"WMF Windows (*.WMF), *.WMF")IF li_Value <> 1 THEN RETURNIF ls_Path = '' THEN RETURNIF FileExists(ls_Path) THEN Beep(3) IF MessageBox('系统信息', '文件:'+ls_Path+'已存在, 覆盖吗(Yes/No)?', Question!, YesNo!, 2)=2 THEN RETURNEND IFls_Ext = Upper(Right(ls_Path, 3))CHOOSE CASE ls_Ext // CASE "prn" // dw_preview.Object.Datawindow.Print.FileName = ls_Path // dw_preview.Print() CASE 'CSV' li_Value = dw_preview.SaveAs(ls_Path, CSV!, FALSE) CASE 'DBF' li_Value = dw_preview.SaveAs(ls_Path, dBASE3!, FALSE) CASE 'DIF' li_Value = dw_preview.SaveAs(ls_Path, DIF!, FALSE) CASE 'XLS' li_Value = dw_preview.SaveAs(ls_Path, Excel!, FALSE) CASE 'HTM' li_Value = dw_preview.SaveAs(ls_Path, HTMLTable!, FALSE) CASE 'PSR' li_Value = dw_preview.SaveAs(ls_Path, PSReport!, FALSE) CASE 'SQL' li_Value = dw_preview.SaveAs(ls_Path, SQLInsert!, FALSE) CASE 'SYL' li_Value = dw_preview.SaveAs(ls_Path, SYLK!, FALSE) CASE 'TXT' li_Value = dw_preview.SaveAs(ls_Path, Text!, FALSE) CASE 'WKS' li_Value = dw_preview.SaveAs(ls_Path, WKS!, FALSE) CASE 'WK1' li_Value = dw_preview.SaveAs(ls_Path, WK1!, FALSE) CASE 'WMF' li_Value = dw_preview.SaveAs(ls_Path, WMF!, FALSE)END CHOOSEBeep(3)IF li_Value=1 THEN MessageBox('系统信息', '数据保存完毕!')ELSE MessageBox('系统信息', '数据保存错误!')END IF 基础问题求教 sql server 中有idle time 这个属性吗 ? 一个面试题目:关于事务的 100分请教 升级到2005的问题 简单语句,中文简体插入到繁体数据库中的问题 简单问题:一条时间判断语句 有关存储过程和复杂SQL优化的办法.. 在LISTBOX的MOUSEMOVE事件中怎样写鼠标移到哪条item,即选取该item 执行存储过程时,造成前台程序死机的问题???紧急!!!!!!!! 大家看看这段关于游标的错在哪里 请教高手系统表sysobjects的status列的含义(问题解决立刻给分) 我用asp访问sqlserver出现如下错误
Integer li_Valueli_Value = GetFileSaveName ("打印到文件", ls_Path, ls_File, "DOC", &
"文本文件; (*.CSV), *.CVS," + &
"文本文件Tab (*.TXT), *.TXT," + &
"dBASE II (*.DBF), *.DBF," + &
"dBASE III (*.DBF), *.DBF," + &
"DIF文件 (*.DIF), *.DIF," + &
"Excel文件 (*.XLS), *.XLS," + &
"HTML文件 (*.HTM), *.HTM," + &
"PSR文件 (*.PSR), *.PSR," + &
"SQL文件 (*.SQL), *.SQL," + &
"多格式文件 (*.SYL), *.SYL," + &
"Lotus1-2-3 (*.WKS), *.WKS," + &
"Lotus1-2-3 (*.WK1), *.WK1," + &
"WMF Windows (*.WMF), *.WMF")IF li_Value <> 1 THEN RETURN
IF ls_Path = '' THEN RETURN
IF FileExists(ls_Path) THEN
Beep(3)
IF MessageBox('系统信息', '文件:'+ls_Path+'已存在, 覆盖吗(Yes/No)?', Question!, YesNo!, 2)=2 THEN RETURN
END IF
ls_Ext = Upper(Right(ls_Path, 3))CHOOSE CASE ls_Ext
// CASE "prn"
// dw_preview.Object.Datawindow.Print.FileName = ls_Path
// dw_preview.Print()
CASE 'CSV'
li_Value = dw_preview.SaveAs(ls_Path, CSV!, FALSE)
CASE 'DBF'
li_Value = dw_preview.SaveAs(ls_Path, dBASE3!, FALSE)
CASE 'DIF'
li_Value = dw_preview.SaveAs(ls_Path, DIF!, FALSE)
CASE 'XLS'
li_Value = dw_preview.SaveAs(ls_Path, Excel!, FALSE)
CASE 'HTM'
li_Value = dw_preview.SaveAs(ls_Path, HTMLTable!, FALSE)
CASE 'PSR'
li_Value = dw_preview.SaveAs(ls_Path, PSReport!, FALSE)
CASE 'SQL'
li_Value = dw_preview.SaveAs(ls_Path, SQLInsert!, FALSE)
CASE 'SYL'
li_Value = dw_preview.SaveAs(ls_Path, SYLK!, FALSE)
CASE 'TXT'
li_Value = dw_preview.SaveAs(ls_Path, Text!, FALSE)
CASE 'WKS'
li_Value = dw_preview.SaveAs(ls_Path, WKS!, FALSE)
CASE 'WK1'
li_Value = dw_preview.SaveAs(ls_Path, WK1!, FALSE)
CASE 'WMF'
li_Value = dw_preview.SaveAs(ls_Path, WMF!, FALSE)
END CHOOSEBeep(3)
IF li_Value=1 THEN
MessageBox('系统信息', '数据保存完毕!')
ELSE
MessageBox('系统信息', '数据保存错误!')
END IF