用VB做怎么将Excel数据导入SQL数据库中?

用VB做怎么将Excel数据导入SQL数据库中?

用VB做,将Excel数据导入SQL数据库中:
法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。
方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。
温馨提示:内容为网友见解,仅供参考
第1个回答  2016-01-23
首先需要在工程中引用Microsoft Excel Object Library

代码参照下边的例子

Dim sA, sB, sC, sD, sE, sF, sG, sH, sName, sDistrictName, sDepName, sDepNameOld, sDepID, sParentID, sFeeID
Dim oRdA As New ADODB.Recordset
Dim oRdB As New ADODB.Recordset
Dim oXl As Excel.Application
Dim oWb As Workbook
Dim oWs As Excel.Worksheet
Dim iA, iB, iC, iD, iError
Dim lCount
Dim bExcelRunning 'Excel是否已运行

If mlErrors <> 0 Then
MsgBox "请先检查导入数据的正确性!检查通过后方可进行导入!", vbOKOnly, "系统提示"
Exit Sub
End If
'0 要求对数据导入进行确认
'1 获得导入的数据源并打开
'1.1获得导入的数据源

sName ="你的excel文件名全路径"

If sName = "" Then Exit Sub
sA = Dir(sName, vbNormal)
If sA = "" Then Exit Sub
'1.2 打开数据源
Screen.MousePointer = vbHourglass
On Error GoTo ConnectError
lblInfo.Caption = "打开数据源"
Set oXl = GetObject("", "Excel.Application")
Set oWb = oXl.Workbooks.Open(sName)

lblInfo.Caption = "连接数据库"
'2 打开数据库连接
sA = "Provider=SQLOLEDB; Data Source=数据库服务器ID,1433; Network Library=DBMSSOCN;" & _
";Initial Catalog=数据库名;User ID=用户ID;Password=密码"
'oracle方式

' sA = "Provider=OraOLEDB.Oracle;Data Source=net服务名;User Id=用户ID;Password=密码"

goConnect.ConnectionString = sA
goConnect.Open

On Error GoTo Morn

'4 清理数据库
's_ClearAllTable '调用清理数据库过程把以前数据清理掉
'5 导入信息
Set oWs = oXl.Worksheets(1)

'.2开始数据导入 1万行一提交

goConnect.BeginTrans

With oWs
For iA = 2 To Prb.Max

lCount = lCount + 1
sA = "insert into department(DEPID,DEPNAME,DEPCODE,depCompleteName,depAddress,deleted) values('" & _
CStr(lCount) & "','" & .Cells(iA, 2) & "','" & .Cells(iA, 1) & "','" & .Cells(iA, 4) & _
"','" & .Cells(iA, 3) & "',0)"
goConnect.Execute sA

Next

End With
goConnect.CommitTrans
第2个回答  2011-11-04
首先在vb中引用Excel对象库,版本11对应Office2003
用以下对象读取Excel的数据:
Excel.Application对象打开Excel
Excel.Workbook 对象打开Excel文件
Excel.Worksheet 对象(xlSheet)打开页
xlSheet.Cells(Row,Col) 读取某个单元格的内容
写入数据库可以用ADO,用记录集打开表(表可以手动建立或者用SQL建立),用循环逐项写入并保存即可。
Dim rs As ADODB.Recordset
...
rs("Name") = xlSheet.Cells(3, 2)
rs.Update
...本回答被网友采纳
第3个回答  2011-11-02
1、从EXCEL读取数据
2、将读取到的数据按照SQL表的格式整理好
3、插入到SQL数据库中
4、循环以上过程 完成后提交事物

用VB做怎么将Excel数据导入SQL数据库中?
法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。

用VB做怎么将Excel数据导入SQL数据库中
fileadd = CommonDialog1.FileName If fileadd = "" Then Exit Sub Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 Set xlBook = xlApp.Workbooks.Open(fileadd) '打开已经存在的EXCEL工件簿文件 xlApp.Visible = False ' = True '设置EXCEL对象可见(或不可见)Set xlSheet ...

VBA把excel备份至SQL或者实现数据交换 提示下标越界 重金悬赏大神解决...
1、你的表格首先没有标定的唯一行(也就是数据库表中的键值),因此不管是哪个操作者任意更新一行或增加(删除)一行(或修改一行中某元的内容)形成新的数据表格后,在数据库中是很难界定的(这一点不知道您是否理解!)。如果没有唯一(键值)来约束的话,只能按顺序的方式来从数据库中下载内容到...

vb如何读取excel数据并存入数组?
读写EXCEL表: \\x0d\\x0a1、在工程中引用Microsoft Excel类型库: \\x0d\\x0a\\x0d\\x0a从"工程"菜单中选择"引用"栏;选择Microsoft Excel 12.0 Object Library(EXCEL2007),然后选择"确定"。表示在工程中要引用EXCEL类型库。 \\x0d\\x0a\\x0d\\x0a2、在通用对象的声明过程中定义EXCEL对象: ...

怎样利用VB将EXCEL中的数据导入ACCESSvb怎么将数据导入到excel中
Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = \\"Open files\\"CommonDialog1.Filter = ...

vb6.0怎么把excel的数据导入到access中?能给个源码么 谢谢
cn.Execute sql, n m = m + n rs.MoveNext Wend Set rs = Nothing Set cn = Nothing MsgBox "成功写入数据:" & m End Sub 要求:1、当前文件夹下有数据库test.mdb,里面有一个表的名字叫tb,它的字段id,num,dt,第一个是字符型的,第二个是数值型的,第三个是日期型的。2、EXCEL...

vb怎么批量将excel文件导入到access(mdb)的表中?
我知道两个方法。1、如果EXCEL数据不多可以用这个方法。workbooks.open(“路径")打开EXCEL,再逐个的用INSERT语句导入到ACCESS里面。2、就是EXCEL本身也是一个数据库,第一行是字段,用连接数据库的方式连接EXCEL直接一条SQL导入到SQL。这对格式有点要求,就是第一行必须是字段,数据比较整齐。

vb.net怎么把excel 读到DataSet中?
excel数据导入dataset如下代码:'创建Workbook对象并加载Excel文档 Dim workbook As New Workbook()workbook.LoadFromFile("F:\\ExportData.xlsx", ExcelVersion.Version2013)'获取第一张sheet Dim sheet As Worksheet = workbook.Worksheets(0)'设置range范围 Dim range As CellRange = sheet.Range(sheet....

把EXCEL转化到SQL
最简单的方式就是编辑一个公式,比如列F =insert into table_name (aa,bb,cc,dd) values (A:1,B:1,C:1,D:1);然后复制出脚本在sqlserver里运行 不需要VB 如果非要用编程的方式,那么可以配置odbc,或者用excel的com组件解析excel然后倒入 ...

VB 把多个Excel表批量导入access数据库怎样做?
文件流呗,先把Excel文件都获取(.net的库中有相关函数),然后循环处理(一个Excel文件一个的处理),循环中的处理如下:把Excel中的数据读取保存在datatable中,然后插入到assess数据库。

相似回答