當前位置:首頁 » 數據倉庫 » vb調用資料庫報表
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

vb調用資料庫報表

發布時間: 2022-10-01 20:02:47

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