急求用VB和sql server设计报表的方法和详细步骤或代码解决方案

急求用VB和sql server设计报表的方法和详细步骤或代码
急求用VB和sql server设计报表的方法和详细步骤或代码

------解决方案--------------------
网上代码很多,搜吧
用ado连接数据库,将数据导出到excel上
------解决方案--------------------
If frmflag = "SCCKbaofeidan" Then

If rst.State = 1 Then rst.Close


With rst

.Fields.Append "序号", adBSTR, 255
.Fields.Append "名称", adBSTR, 255
.Fields.Append "规格型号", adBSTR, 255
.Fields.Append "单位", adBSTR, 255
.Fields.Append "数量", adBSTR, 255
.Fields.Append "序列号", adBSTR, 255
.Fields.Append "报废原因", adBSTR, 255
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open

End With

For i = 0 To SCCKbaofeidan.MSHFlexGrid1.Rows - 2

rst.AddNew

For j = 0 To SCCKbaofeidan.MSHFlexGrid1.Cols - 1

rst.Fields(j) = SCCKbaofeidan.MSHFlexGrid1.TextMatrix(i + 1, j)

Next j

rst.Update
Next i

rst.MoveFirst

DRbaofei.Sections("Section2").Controls("Label13").Caption = SCCKbaofeidan.Combo1.Text
DRbaofei.Sections("Section2").Controls("Label18").Caption = SCCKbaofeidan.Text1(4).Text
DRbaofei.Sections("Section3").Controls("Label22").Caption = SCCKbaofeidan.Text1(9).Text
DRbaofei.Sections("Section3").Controls("Label24").Caption = SCCKbaofeidan.Text1(10).Text
DRbaofei.Sections("Section3").Controls("Label26").Caption = SCCKbaofeidan.Text1(11).Text
DRbaofei.Sections("Section3").Controls("Label32").Caption = SCCKbaofeidan.Text1(3).Text

DRbaofei.Sections("Section1").Controls("Text1").DataField = rst.Fields(0).Name
DRbaofei.Sections("Section1").Controls("Text2").DataField = rst.Fields(1).Name
DRbaofei.Sections("Section1").Controls("Text3").DataField = rst.Fields(2).Name
DRbaofei.Sections("Section1").Controls("Text7").DataField = rst.Fields(3).Name
DRbaofei.Sections("Section1").Controls("Text4").DataField = rst.Fields(4).Name
DRbaofei.Sections("Section1").Controls("Text5").DataField = rst.Fields(5).Name
DRbaofei.Sections("Section1").Controls("Text6").DataField = rst.Fields(6).Name

Set DRbaofei.DataSource = rst

DRbaofei.LeftMargin = 0
DRbaofei.RightMargin = 0
DRbaofei.TopMargin = 0
DRbaofei.BottomMargin = 0
DRbaofei.ReportWidth = 8391
Printer.Orientation = vbPRORLandscape
------解决方案--------------------
建议找个程序自己琢磨吧,我也在学
------解决方案--------------------
建议先参考一下ADO的手册中的例子。

在****上，如果不是针对具体问题，很难得到答案的。