Ⅰ 怎么用vb写语句把数据库的值写到报表里
在sql SERVER里往Excel插入数据:
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)
T-SQL代码：
INSERT INTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]
(bestand, prokt) VALUES (20, 'Test')
Ⅱ Vb与报表
报表是企业管理的基本措施和途径，是企业的基本业务要求，报表可以帮助企业访问、格式化数据，并把数据信息以可靠和安全的方式呈现给使用者。 简单来说,报表就是通过表格,图表等来对数据的呈现.没有计算机的时候,人们就用纸和笔来对账目进行记录汇总分析等.当计算机出现之后，人们利用计算机处理数据和界面设计的功能来生成、展示报表。计算机上的报表的主要特点是数据动态化，格式多样化，并且实现报表数据和报表格式的完全分离，用户可以只修改数据，或者只修改格式.今后为了提高报表的制作效率,更是出现了专门制作报表的工具. 而在vb中报表的使用整个过程分这个几个阶段. 首先 是报表设计器的安装和报表模版的建立 其次 是报表和数据库的连接最后vb代码的实现
Ⅲ VB 中如何调用 ACCESS 数据报表
可以用控件绑定数据库或者语句直接连接数据库。。。
Ⅳ vb调用数据库表中数据啊，查询并生成报表。。求大神啊，急急急！！！求大神qq
大神，我看你这么急，都想化身为大神去解救你了
Ⅳ 用vb实现 数据库报表打印 datagrid+adodc +access
前提：加载adodc控件，datagrid控件
1、在窗口创建adodc控件，datagrid控件
2、adodc的属性里，设置
a)连接数据库,可使用字符串方式(microsoft jet 3.51 ole db)，access文件
b)记录源，cmdtext，满足条件的sql语句。
3、设置datagrid的属性：
c）datasourse设置为adodc1
4、打印可以考虑execl
菜单-》工程-》引用-》excel打钩
参考打印代码
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlApp As Excel.Application
Dim strSource, strDestination As String
Dim i As Integer
Dim j As Integer
cmdPrint.Enabled = False
Screen.MousePointer = vbHourglass
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
'xlApp.Visible = False
strSource = App.Path & "\newtable.xls"
strDestination = App.Path & "\Temp.xls"
On Error GoTo COPYERR
FileCopy strSource, strDestination
On Error GoTo 0
Set xlBook = xlApp.Workbooks.Open(strDestination)
If bTest Then
Set xlSheet = xlBook.Worksheets(5)
Else
Set xlSheet = xlBook.Worksheets(3)
End If
If msgData.Rows > 3 Then
xlSheet.Cells(1, 1) = lblTitle
xlSheet.Cells(2, 1) = lbl1(0)
For i = 2 To Datagrid.Rows - 1
For j = 0 To Datagrid.Cols - 1
xlSheet.Cells(i + 3, j + 1) = Datagrid.TextMatrix(i, j)
Next j
Next i
xlBook.Save
If bPrint Then xlSheet.PrintOut
End If
xlApp.Quit
Screen.MousePointer = vbArrow
cmdPrint.Enabled = True
Exit Sub
COPYERR:
MsgBox Err.Description
Screen.MousePointer = vbArrow
cmdPrint.Enabled = True