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 語句中也可以，就是不好排錯。