Ⅰ 怎麼用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