VB数据库连接和导入EXCEL.docx
- 文档编号:4629078
- 上传时间:2022-12-07
- 格式:DOCX
- 页数:3
- 大小:16.46KB
VB数据库连接和导入EXCEL.docx
《VB数据库连接和导入EXCEL.docx》由会员分享,可在线阅读,更多相关《VB数据库连接和导入EXCEL.docx(3页珍藏版)》请在冰豆网上搜索。
VB数据库连接和导入EXCEL
VB数据库连接和导入EXCEL
DimstrDBFileAsString
DimgstrFilePathAsString
DimgstrConnAsString
DimgDatabaseAsADODB.Connection
DimisConnectAsBoolean
Setconn=NewADODB.Connection
Setrs=NewADODB.Recordset
'连接数据库
Adodc1.ConnectionString="provider=microsoft.jet.oledb.4.0;datasource="+App.Path
+"\DATA\ysdzltddata.mdb;PersistSecurityInfo=False"
'conn.ConnectionTimeout=30
conn.Open(Adodc1.ConnectionString)'打开数据库
'gDatabase=NewADODB.Connection
'gDatabase.Open(gstrConn)
isConnect=True
sql="select*fromqpxx"
Adodc1.RecordSource=sql
Adodc1.Refresh
'向数据库插入数据
sql="InsertintoQPXX(windowid,ywid,NWP,DWP,NWT,DWLT,DQP,DAPT,DTIMER,TTIMER)"
sql=sql&"values("
sql=sql&"'"&CStr(WINID)&"'" '窗口
sql=sql&",'"&YWID&"'" '业务号
sql=sql&",'"&CStr(ALLWAI)&"'" '等待人数
sql=sql&",'"&CStr(MALLWAI)&"'" '当天等候最大人数
sql=sql&",'"&CStr(NW_TIME)&"'" '当前等候办理业务最长时间(秒)
sql=sql&",'"&CStr(W_TIME)&"'" '当天等候最长时间(秒)
sql=sql&",'"&CStr(WAITP)&"'" '今天已取票数
sql=sql&",'"&CStr(AV_TIME)&"'" '今天平均排队时间
sql=sql&",'"&CStr(Format(Date,"yyyymmdd"))&"'"'号号日期
sql=sql&",'"&CStr(Format(TIME,"hhmmss"))&"')" '叫号时间
conn.Execute(sql)
'module模块
'把数据导入EXCEL中
DimExcelAppAsObject'Excel.Application
DimExcelWorkBookAsObject'Excel.workbook
DimExcelWorkSheetAsObject'Excel.worksheet
PublicSubprintzh()
DimExcelSheetAsObject
DimstrSource,strDestinationAsString
OnErrorResumeNext
strSource=App.Path&"\DATA\bb.xls"
'strDestination=My.Application.Info.DirectoryPath&"\DATA\Temp.xls"
strDestination=App.Path&"\DATA\Temp.xls"
'FileCopy(strSource,strDestination)
FileCopystrSource,strDestination
'Try
SetExcelApp=CreateObject("Excel.Application")
'SetExcelApp=CreateObject("Excel.Sheet")
'打开工作薄
SetExcelWorkBook=ExcelApp.Workbooks.Open(strDestination)
'选择工作簿
SetExcelWorkSheet=ExcelWorkBook.Sheets("Sheet1")
'DimiAsLong,jAsLong,kAsLong
'Fori=0ToAdodc1.Recordset.RecordCount-1
' Ifk=DataGrid1.VisibleRowsThen
' DataGrid1.Scroll(0,DataGrid1.VisibleRows)
' k=0
' EndIf
ExcelApp.Application.Visible=True'设置Application对象使Excel可见
DimjAsInteger
'在表格的第一个单元中写些文本
ExcelSheet.cells(1,1).Value="ThisiscolumnA,row1"
ExcelWorkSheet.cells(1,1)="取号信息汇总表"
ExcelWorkSheet.cells(1,10)=Format(Date,"yyyymmdd")'&Space
(2)
ExcelWorkSheet.cells(2,1)="窗口号"
ExcelWorkSheet.cells(2,2)="业务号"
ExcelWorkSheet.cells(2,3)="当前总等待人数"
ExcelWorkSheet.cells(2,4)="当天总等候最大人数"
ExcelWorkSheet.cells(2,5)="当前等候办理业务最长时间"
ExcelWorkSheet.cells(2,6)="当天总等候最长时间"
ExcelWorkSheet.cells(2,7)="今天已取票数"
ExcelWorkSheet.cells(2,8)="今天平均排队时长"
ExcelWorkSheet.cells(2,9)="叫号日期"
ExcelWorkSheet.cells(2,10)="叫号时间"
Forj=1ToForm1.AdodcD.Recordset.RecordCount
'Form1.Adodc1.Recordset.Move(j)
'Adodc1.Recordset.MoveFirst()
'PrintDB(DataGrid1.Columns(0).Value,DataGrid1.Columns
(1).Text,DataGrid1.Columns
(2).Text)
ExcelWorkSheet.cells(j+3,1)=Form1.DataGrid1.Columns(0).Text
ExcelWorkSheet.cells(j+3,2)=Form1.DataGrid1.Columns
(1).Text
ExcelWorkSheet.cells(j+3,3)=Form1.DataGrid1.Columns
(2).Text
ExcelWorkSheet.cells(j+3,4)=Form1.DataGrid1.Columns(3).Text
ExcelWorkSheet.cells(j+3,5)=Form1.DataGrid1.Columns(4).Text
ExcelWorkSheet.cells(j+3,6)=Form1.DataGrid1.Columns(5).Text
ExcelWorkSheet.cells(j+3,7)=Form1.DataGrid1.Columns(6).Text
ExcelWorkSheet.cells(j+3,8)=Form1.DataGrid1.Columns(7).Text
ExcelWorkSheet.cells(j+3,9)=Form1.DataGrid1.Columns(8).Text
ExcelWorkSheet.cells(j+3,10)=Form1.DataGrid1.Columns(9).Text
ExcelWorkSheet.cells(j+3,11)=Form1.DataGrid1.Columns(10).Text
Form1.AdodcD.Recordset.MoveNext
'Form1.Adodc1.Recordset.Move(j+1)
'i=i+1
Nextj
'WhileForm1.Adodc1.Recordset.EOF=False
' sum=sum+CInt(CStr(Form1.Adodc1.Recordset.Fields("一般次数")))
'Form1.Adodc1.Recordset.MoveNext()
' EndWhile
'ExcelWorkSheet.Cells(32,7)=sum
'ExcelWorkSheet.Cells(Form1.Adodc1.Recordset.RecordCount+1,5)
'ExcelWorkSheet.Cells(Form1.Adodc1.Recordset.RecordCount+1,6)
'ExcelWorkSheet.Cells(Form1.Adodc1.Recordset.RecordCount+1,7)
'k=k+1
'Nexti
'向VBA传数据
'PrintDB("1","2","3") '可以是DataRow
'显示Excel
Form1.AdodcD.Recordset.MoveFirst
ExcelApp.Visible=True
ExcelWorkBook.SaveAsApp.Path&"\DATA\排队信息表.xls"'保存文件
'ExcelSheet.SaveAs"C:
\TEST.DOC"
'ExcelWorkSheet.PrintOut()'执行打印
'ExcelApp.Quit()'退出EXCEL
'删除Excel引用
ExcelWorkSheet=Nothing
ExcelWorkBook=Nothing
ExcelApp=Nothing
'垃圾回收
GC.Collect
'CatchexAsException
' MsgBox(ex)
'EndTry
EndSub
(注:
可编辑下载,若有不当之处,请指正,谢谢!
)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 数据库连接 导入 EXCEL