请问如何把sybase数据库中的表导入到excel中?

时间:2022-11-17 13:16:23
用了excel的导入外部数据功能,可是导进来的表中文部分都是乱码,请问该如何解决呢?请高手帮帮忙,谢谢

6 个解决方案

#1


先bcp出来,再导入excel

#2


用PB试试看呢

#3


这个跟odbc的字符集配置有关系,修改一下字符集,跟server匹配

#4


写一段程序,从数据窗口中导出去到EXCEL中就行了,
代码如下:
constant string ls_filename = "c:\medicine.xls"

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret
numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )

if ret < 0  then
MessageBox("Connect to Excel Failed !",string(ret))
    return
end if
try
xlsub = xlApp.Application.Workbooks.Add()
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlApp.Application.Visible = true
string ls_name
for c=1 to numcols //写标题
ls_name = dw_1.describe( "#" + string(c) + ".name" )
xlsub.cells[1,c] = ls_name
next
for r = 1 to numrows//写行
for c = 1 to numcols
xlsub.cells[r+1,c] = dw_1.object.data[r,c]
next
next
xlsub.saveas(ls_filename)
xlApp.Application.Workbooks.close()
catch ( runtimeerror re )
MessageBox ( string(re.number), re.getmessage())
end try
xlApp.DisConnectObject()
Destroy xlapp
messagebox("提示","导出Excel成功,文件位置及名称:C盘medicine.xls")


#5


该回复于2008-05-04 09:54:47被版主删除

#6


bcp dbname..table_name out file_name.xls -U -P -S -c

#1


先bcp出来,再导入excel

#2


用PB试试看呢

#3


这个跟odbc的字符集配置有关系,修改一下字符集,跟server匹配

#4


写一段程序,从数据窗口中导出去到EXCEL中就行了,
代码如下:
constant string ls_filename = "c:\medicine.xls"

long numcols , numrows , c, r
OLEObject xlapp , xlsub
int ret
numcols = long(dw_1.Object.DataWindow.Column.Count)
numrows = dw_1.RowCount()
xlApp = Create OLEObject
ret = xlApp.ConnectToNewObject( "Excel.Sheet" )

if ret < 0  then
MessageBox("Connect to Excel Failed !",string(ret))
    return
end if
try
xlsub = xlApp.Application.Workbooks.Add()
xlsub = xlapp.Application.ActiveWorkbook.Worksheets[1]
xlApp.Application.Visible = true
string ls_name
for c=1 to numcols //写标题
ls_name = dw_1.describe( "#" + string(c) + ".name" )
xlsub.cells[1,c] = ls_name
next
for r = 1 to numrows//写行
for c = 1 to numcols
xlsub.cells[r+1,c] = dw_1.object.data[r,c]
next
next
xlsub.saveas(ls_filename)
xlApp.Application.Workbooks.close()
catch ( runtimeerror re )
MessageBox ( string(re.number), re.getmessage())
end try
xlApp.DisConnectObject()
Destroy xlapp
messagebox("提示","导出Excel成功,文件位置及名称:C盘medicine.xls")


#5


该回复于2008-05-04 09:54:47被版主删除

#6


bcp dbname..table_name out file_name.xls -U -P -S -c