vbexcel导入数据库

㈠ 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和数据库编了一个系统，现在遇到一个难题：怎么用VB语言将excel表导入到数据库中谢谢！

具体操作可以按以下步骤进行：

1、启动MicrosoftAccess2000；

2、建立一个空数据库student；

3、在对象栏中选择“表”选项，执行“文件→获取外部数据→导入”命令，打开“导入”对话框；

4、选择文件类型“为MicrosoftExecl”，单击“查找范围”右边的向下黑三角，选择.xls文件所在的目录，再选择要导入数据的工作薄文件；

5、单击“导入”按钮，进入“导入数据表向导”对话框．

6、按“下一步”，选中“第一行包含列标题”前面的复选框；

7、按“下一步”，进入“请选择数据的保存位置”页，假如你不想保存在现有的表中，那么选择“新表中”，否则保持默认值“现有的表中”再选择表名；（我这里以选择新表）

8、按“下一步”，进入“字段选择”页，保持默认值。

9、按“下一步”，进入图3所示页面，选择“自行选择主键”。

10、按“下一步”，进入图4所示的界面，在“导入到表”输入框中输入表名，我这里输入“一班”。

11、“完成”按钮，此时系统会弹出一个导入完成的对话框，按“确定”按钮。

完成以上步骤，我们就成功的把数据就从Excel中导入到Access中了。

㈢ vb excel导入数据库怎么做

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

㈣ 用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数据导入SQL数据库中

这里是我用的代码，估计对你有用：

'On Error Resume Next
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
sybw.Adodc3.Refresh
sybw.Adodc3.Recordset.Find "ShiGongBuWei_Name='" & LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1))) & "'"
If sybw.Adodc3.Recordset.EOF Then
sybw.Adodc3.Recordset.AddNew
sybw.Adodc3.Recordset!ShiGongBuWei_Name = LTrim(RTrim(xlBook.Worksheets(1).Cells(R, 1)))
sybw.Adodc3.Recordset!FenXiangGongCheng_ID = bb
sybw.Adodc3.Recordset.Update
sybw.Adodc3.Refresh
' Call log(MM_Users_NameTrue, "增加了施工部位", MM_Companys_ID)
Else
' MsgBox " 施工部位重复！ ", vbOKOnly, "用户信息"
End If
Else
R = 99999 + 1
End If
Next R

xlApp.DisplayAlerts = False '不进行安全提示 '
Set xlSheet = Nothing '
Set xlBook = Nothing '
xlApp.Quit '
Set xlApp = Nothing

㈥ 用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导入数据库

没错，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表中的数据导入数据库中

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

㈨ vb 从excel表格导入到数据到access数据库问题

你只是要删除数据而不是删除表，所以用 Delete 语句而不是 Drop Table，后面不加 where 子句就是删除全部数据。
插入数据用 Insert into ... (select ...)
如果还是不行，你可以借助记录集对象 Recordset 把数据读出来，然后再写入Access，这样需要一个循环，额外花费一点时间。一般来说这样需要两个Connection对象来分连接Excel和Access，当然你的代码直接把数据库写在 Select 语句中也可以，就是不好排错。