當前位置:首頁 » 編程語言 » excel運行sql
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

excel運行sql

發布時間: 2023-01-26 18:46:01

A. 如何在EXCEL中運行sql查詢

SubTest()
'工具->引用->MicrosoftActiveXDataObjects2.0
'定義連接對象

DimcnnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
'連接字元串
strcn="Driver=sqlserver;Server=伺服器;database=資料庫;uid=sa;pwd=密碼"
cnn.Openstrcn

DimD1AsDate'開始日期
DimD2AsDate'結束日期

D1=Range("B2").Text
D2=Range("B3").Text

IfIsDate(D1)AndIsDate(D2)Then
rs.Open"sp_djcount'"&D1&"','"&D2&"'",strcn,3,1'存儲過程
rs.Open"Select*From表",strcn,3,1'sql語句
Range("A5").CopyFromRecordsetrs

MsgBox"成功!!!",vbInformation+vbOKOnly,"溫馨提示"
Else
MsgBox"請輸入開始日期和截止日期",vbQuestion+vbOKOnly,"溫馨提示"
EndIf
'關閉連接
cnn.Close
Setrs=Nothing
Setcnn=Nothing
EndSub

B. 如何在EXCEL中使用SQL進行數據處理與分析

在EXCEL中使用SQL進行數據處理與分析步驟有:

工具原料:excel2013版本

  1. 打開「excel」,在「數據」選項卡中,找到「自其他來源」;




    C. 使用SQL語句如何對Excel工作表數據進行查詢

    SQL語句是一種標準的資料庫語言,其可以在任何關系型資料庫管理系統中使用。在 Excel 表格中,使用SQL語句可以實現對Excel工作表數據進行查詢的 方法 。以下是我為您帶來的關於使用SQL語句對Excel工作表數據進行查詢,希望對您有所幫助。

    使用SQL語句對Excel工作表數據進行查詢

    1、啟動Excel並打開工作簿,在這個工作簿中,工作表Sheet1放置商品信息記錄,如圖1所示;工作表Sheet2用於對商品記錄進行查詢,其結構如圖2所示。

    圖1放置商品信息記錄的工作表

    圖2用於商品記錄查詢的工作表

    2、打開Visual Basic編輯器,在工程資源管理器中插入一個模塊,在模塊的「代碼」窗口中輸入如下程序代碼:

    Sub CheckData()

    Dim cnn As ADODB.Connection '聲明連接對象變數

    Dim rs As ADODB.Recordset '聲明記錄集對象

    Dim strSql As String

    Dim str As String

    On Error Resume Next

    Set cnn=CreateObject("ADODB.Connection") '創建連接對象變數

    Set rs=CreateObject("ADODB.Recordset") '創建記錄集對象記錄

    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;"_&"Extended Properties=Excel 8.0;"_&"Data Source="&ThisWorkbook.FullName

    str=ActiveSheet.Range("B1").Value '獲取當前單元格內容

    strSql="Select*FROM[Sheet1$]Where商品like '%"&str&"%'"'創建數據篩選命令

    rs.Open strSql,cnn,adOpenStatic

    With ActiveSheet

    .Range("A4:D100").ClearContents '清除單元格記錄

    .Range("A4").CopyFromRecordset rs '復制篩選結果

    End With

    rs.Close

    cnn.Close

    Set rs=Nothing

    Set cnn=Nothing

    End Sub

    3、首先在Sheet2工作表中輸入需要查詢的商品名稱,如圖3所示。運行CheckData()過程,在Sheet2工作表中將列出查詢結果,如圖4所示。

    圖3輸入商品名稱

    圖4獲得查詢結果


    使用SQL語句如何對Excel工作表數據進行查詢相關 文章 :

    ★ excel2007使用sql語句查詢的方法

    ★ excel2007寫sql語句的教程

    ★ 如何將excel數據導入sql的方法

    ★ Excel2013使用教程基礎

    ★ excel數據導入SQL資料庫的教程

    ★ excel表導入sql資料庫的教程

    ★ excel導入sqlserver資料庫方法

    ★ 計算機英語

    ★ excel表格製作教程

    var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm..com/hm.js?"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();

    D. 如果excel中想使用sql語句怎麼使用

    excel中使用sql語句,使用快捷鍵alt+d+d+d調出鏈接表的對話框,選擇你要連接的表,然後確定,在編輯查詢命令文本中要寫sql語句,sql在excel中使用的是select語句。其實使用select主要是對數據的查詢和匯總,匯總時輸入聚合函數。總之有許多的知識需要學習,你可以在網上查閱一下sql
    select語句的具體知識。

    E. EXCEL中能不能直接執行SQL語句

    1、需要導入的數據如圖。

    F. 如何在EXCEL中運行SQL查詢

    Sub Test() '工具->引用->Microsoft ActiveX DataObjects 2.0 '定義連接對象 Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset'連接字元串 strcn = "Driver=sql server;Server=伺服器;database=資料庫;uid=sa;pwd=密碼" cnn.Open strcn Dim D1 As Date '開始日期 Dim D2 As Date '結束日期 D1 = Range("B2").Text D2 = Range("B3").Text If IsDate(D1) And IsDate(D2) Then rs.Open "sp_djcount '" & D1 & "','" & D2 & "'", strcn, 3, 1 '存儲過程 rs.Open "Select * From 表 ", strcn, 3, 1 'sql語句 Range("A5").CopyFromRecordset rs MsgBox "成功!!!", vbInformation + vbOKOnly, "溫馨提示" Else MsgBox "請輸入開始日期和截止日期", vbQuestion + vbOKOnly, "溫馨提示" End If '關閉連接 cnn.Close Set rs = Nothing Set cnn = NothingEnd Sub

    G. 如何在excel中執行sql存儲過程

    Sub Test()
    '工具->引用->Microsoft ActiveX DataObjects 2.0
    '定義連接對象

    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    '連接字元串
    strcn = "Driver=sql server;Server=伺服器;database=資料庫;uid=sa;pwd=密碼"
    cnn.Open strcn

    Dim D1 As Date '開始日期
    Dim D2 As Date '結束日期

    D1 = Range("B2").Text
    D2 = Range("B3").Text

    If IsDate(D1) And IsDate(D2) Then
    rs.Open "sp_djcount '" & D1 & "','" & D2 & "'", strcn, 3, 1 '存儲過程
    rs.Open "Select * From 表 ", strcn, 3, 1 'sql語句
    Range("A5").CopyFromRecordset rs

    MsgBox "成功!!!", vbInformation + vbOKOnly, "溫馨提示"
    Else
    MsgBox "請輸入開始日期和截止日期", vbQuestion + vbOKOnly, "溫馨提示"
    End If
    '關閉連接
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
    End Sub