关于VB 与数据库的问题 请大侠们帮忙

来源：百度知道 编辑：UC知道 时间：2024/07/05 01:20:06
我想用VB实现 EXCEL与SQL SERVER 之间的数据转换，请高手给我些思路和想法吧，怎么写才能完成它们俩之间的转换呢，谢谢了，
比如我把EXCEL里的数据用LABEL控件在VB的窗体上显示出来了，那怎么样才能把这些显示的数据导入到SQL server里呀？我是个菜鸟，大家帮帮忙，会加分的

给你一段以前我的程序参考下~
Private Sub ImputDatatoOracle()
On Error GoTo errHandle

Dim Bhao, CnName, Tim, Bwei, Djing, Qya, Maxfs, Maxfl, YiSu, YiXi, SeFb, TeFb As String
Dim HTxt, Bname, Typ, Enname As String
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim intRow As Integer

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(txtpath) '打开已经存在的EXCEL工件簿文件
Set xlSheet = xlBook.sheets(1)
xlApp.Visible = False '设置EXCEL对象可见（或不可见）
'设置进度条
ProgressBar1.Min = 1
ProgressBar1.Max = xlSheet.usedrange.rows.Count + 1
ProgressBar1.Value = 1

For intRow = xlSheet.usedrange.rows.Count To 1 Step -1
Bhao = xlSheet.cells(intRow, 1)
CnName = xlSheet.cells(intRow, 2)
StatusBar1.Panels(1).Text = CnName
Tim = Format(xlSheet.cells(intRow, 3), "mmddhh") '将数据处理成易于存储的形式
B