vbexcel导入数据库表

❶ 用vb将Excel中的数据写入数据库

Private Sub Command1_Click()
Dim fileadd As String
CommonDialog1.ShowOpen
CommonDialog1.Filter = "xls文件(*.xls)|*.xls" '选择你要的文件
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 = xlBook.Worksheets(1) '设置活动工作表
For R = 1 To 99999 '行循环
If LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) <> "" Then

Call Dosql("INSERT INTO CB_JiXieFeiYong (danwei_name) VALUES (" & LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) & ")")

Else
R = 99999 + 1
End If
Next R
xlApp.DisplayAlerts = False '不进行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing
Unload Me
End Sub

Private Sub Dosql(ByVal tn As String) '执行SQL语句
Dim sql As String
Set conn = New ADODB.Connection
conn.ConnectionString = condstr
conn.Open
conn.Execute tn
conn.Close
End Sub

这段代码估计对你有用。

❷ vb excel导入数据库怎么做

VB存数据库的做过，EXCEL的没试过，应该都差不多吧，我当时也是网上找的资料学的，你也可以查一下相关资料，有时候语句都是写的成熟的，只要替换数据库名就可以了。
另外对于你的这个存储过程，我建议你分开来做，先做全部存储。全部存储功能实现了再做数据比对及不导入操作，最后再实现提示重复订单功能。因为个人感觉这三个东西每一个处理起来都需要时间来测试的，分开来把问题简单化容易成功一些。

❸ vb将excel导入数据库

没错，Access自带导入外部数据的功能，可以直接导入Excel,不过如果你实在想了解一下用VB怎么做的话，可以参考下面是我搞过的自用的读取Excel导入数据库的代码。必须建立了数据库，以及数据表和相应字段才行，要自动创建数据表我不会。总之，这下面是导入数据的过程，希望能对你有所帮助。

数据库DataBase.mdb ，表名data
Excel文件名test.xls ，目标工作表sheet1

Private Sub Command1_Click()
'工程->引用->Microsoft ActiveX Data Objects 2.X Library
On Error Resume Next
Dim i%, n%, l%
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim Cnt As Integer
Dim xConn As New ADODB.Connection
Dim xRs As New ADODB.Recordset
Dim xCnt As Integer

Conn.CursorLocation = adUseClient
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\DataBase.mdb"
If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "select * from data", Conn, adOpenKeyset, adLockOptimistic

xConn.CursorLocation = adUseClient
'连接Excel的字符串，后面的“HDR=yes”需要注意，它的意思是把Excel表第一行作为字段名，第二行开始方是有效数据。HDR=no则反之，从第一行开始就看做有效数据。
xConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.xls;Extended Properties='Excel 8.0;HDR=yes;IMEX=1'"
If xRs.State <> adStateClosed Then xRs.Close
'像打开数据库一样，使用SQL语言，打开名称为“sheet1”的工作表
xRs.Open "select * from [sheet1$]", xConn, adOpenStatic, adLockReadOnly
xCnt = xRs.RecordCount

If xCnt = 1 Then '因为HDR=yes，必有1行表头数据
MsgBox "请确认“test.xls”的“sheet1”工作簿内容不为空！否则无法导入任何数据！"
Exit Sub
End If
ProgressBar1.Max = xCnt
ProgressBar1.Min = 0
ProgressBar1.Value = 0
Label1.Caption = "0 / " & xCnt

For i = 0 To xCnt - 1
DoEvents
'下面的SQL插入语句自行更改，注意数据格式，如果是xRs("字段名1")的值是文本，记得在两边加单引号。
Conn.Execute "insert into data values(" & xRs("列名1") & "," & xRs("列名2") & "," & xRs("列名3") & ...... & ")"
xRs.MoveNext
Label1.Caption = i + 1 & " / " & xCnt
ProgressBar1.Value = i + 1
Next

Rs.Close : xRs.Close
Conn.Close : xConn.Close
Set Rs = Nothing : Set xRs = Nothing
Set Conn = Nothing : Set xConn = Nothing
End Sub

❹ 用VB编写一个导入EXCEL文件数据到SQL2000数据库中的程序，怎么编写的

操作方法如下：
1、导入Excel数据，同时创建表:
select * into 表名 FROMopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1;DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]')。
2、在表中插入Excel数据：
insert into 表名 select * fromopenrowset( 'Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=1; DATABASE=文件路径','select * from [Excel表名(默认为Sheet1)$]')。
3、导出数据到Excel中：
insert into openrowset('Microsoft.Jet.OLEDB.4.0','EXCEL 8.0;HDR=YES;IMEX=0; DATABASE=文件路径','select* from [Excel表名(默认为Sheet1)$]') select * from 表名；需要创建Excel文件并指定列名后才可以导出。

❺ 高分，怎样用vb把excel表中的数据导入数据库中

以access 为例： 打开数据库， 找到【外部数据】 ，点击【excel】图标，选择文件即可导入！

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

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

❼ VB读取excel数据并插入到数据库

Set xlApp = CreateObject("Excel.Application") '激活EXCEL应用程序

xlApp.Visible = False '隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(FileManually) '打开工作簿，FileManually为一个EXCEL报表文件

Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text)) '设定工作表
For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count
If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then
Exit For
End If
'将xlSheet.Cells(IRowsCount,列号)的数据插入数据库中
'转换男女可以判断xlSheet.Cells(IRowsCount,列号)="男",则=1,否则=0,然后再写入数据库

Next IRowsCount

❽ 在vb.net中如何把excel表导入到mysql数据库中去

1.使用php
Excel Parser Pro软件，但是这个软件为收费软件；

2.可将EXCEL表保存为CSV格式，然后通过phpmyadmin或者SQLyog导入，SQLyog导入的方法为：
·将EXCEL表另存为CSV形式；
·打开SQLyog，对要导入的表格右击，点击“导入”-“导入使用加载本地CSV数据”；
·在弹出的对话框中，点击“改变..”，把选择“填写excel友好值”，点击确定；
·在“从文件导入”中选择要导入的CSV文件路径，点击“导入”即可导入数据到表上；

❾ vb语言将excel表中的数据导入到数据库

要用两个连接 一个连接excel 一个连access，把从excel查处的数据放到dataset里，循环dataset的记录，用另一个连接插入到access中。
********************************************************************************************************************
抱歉，没仔细看代码，你可能需要确认一下执行到conn.Open 时，conn的状态有打开,然后再执行到conn.Execute "select * into tmptable ....时确认一下ACESS中有生成tmptable 这个表，如果没有，那么再看看你传进去的路径是否正确，路径上确实存在excel和access文件，确定SQL写的空格字符什么的。