sql语句将数据库表中的数据导出到excel,怎么操作??
你用的什么包导出的excel啊,poi还是jxl还是其他的?
poi和jxl都提供将图片以流形式导入到excel中的方法。
怎样从数据库里把自己需要的数据导出到excel表格中?
给你一段,你照着写应该就可以了:
Private
Sub
Command5_Click()
Dim
rs
As
DAO.Recordset
Dim
Filnum
As
Long
Dim
Recnum
As
Long
Dim
xlapp
As
Object
Set
rs
=
Me.打印价签导窗体.Form.Recordset
Set
xlapp
=
CreateObject("excel.application")
xlapp.Visible
=
True
xlapp.Workbooks.Open
("D:\购好超市\促价格管理\标签格式\促销标签打式--特价.xlsx")
Dim
sheet
As
Object
Set
sheet
=
xlapp.sheets("内容")
rs.MoveFirst
Recnum
=
2
Do
Until
rs.EOF
For
Filnum
=
0
To
rs.Fields.Count
-
1
sheet.cells(Recnum,
Filnum
1)
=
rs.Fields(Filnum)
Next
Recnum
=
Recnum
1
rs.MoveNext
Loop
Set
sheet
=
xlapp.sheets("格式1")
End
Sub
如何把2个表(数据库中的)导出到一个excel表中?
图像插EXCEL你应该知道了
那我就告诉你怎么从数读出数据吧,主要是数据流的形式。
我贴分代码 我是DELPHI7 ORACLE,可以成功运行
先做点说明,
ADOTable_main是TADOTABLE控件,连接上数据库某一个表
当移动记录的时候,在Timage中显示对应的图片,以下是在ADOTable_mainAfterScroll事件中写入。
procedure TFrm_base_cup_line.ADOTable_mainAfterScroll(DataSet: TDataSet);
var
jpg:TJPEGImage;
myStream:TmemoryStream;
begin
if (TBlobField(adotable_main.FieldByName('line_sample')).BlobSize>0) then
begin
try
jpg:=TJPEGImage.Create;
myStream:=TMemoryStream.Create;
TBlobField(adotable_main.FieldByName('line_sample')).SaveToStream(myStream);
myStream.Position:=0;
jpg.LoadFromStream(myStream);
image1.Picture.Assign(jpg);
finally
jpg.Free;
myStream.Free;
end;
end;
selquery(query_qt,'select shape_name from joint.base_cup_shape'
' where shape_id=''' adoTable_main.fieldByName('shape_id').AsString '''');
end;
将数据库表或者视图中的数据导出到EXCEL中的SQL语...
你用的什么包导出的excel啊,poi还是jxl还是其他的?
poi和jxl都提供将图片以流形式导入到excel中的方法。
Java 怎么把服务器中的图片导出到excel(图片的路...
你用的什么包导出的excel啊,poi还是jxl还是其他的?
poi和jxl都提供将图片以流形式导入到excel中的方法。