VBA-SQL UPDATE/INSERT/SELECT到/从Excel工作表

简而言之:我正在为我的客户端制作一个调度程序,由于受到限制,它需要在一个excel文件中(尽可能小).因此,一个工作表作为UI工作,其他任何工作表将是表或设置.

我正在尝试使用SQL(我是新手)来处理单个工作表(名为"TblEmpDays")上的计划数据.所以我需要在此工作表中添加/更新和检索记录.我能够获得一个SELECT查询来处理一些任意数据(并粘贴到一个范围).但是,我无法上班INSERT或UPDATE上班.我看到它的结构为INSERT INTO [

我正在使用VBA来编写所有这些,并且我创建了一个SQL帮助程序类,以使查询执行更容易.

为了澄清,我的问题是:我如何构建INSERT和UPDATE查询？我错过了什么？我想尽可能多地发布相关信息,所以如果我错过任何内容,请告诉我.

类SQL:

Private pCn ' As Database
Private pResult 'As Recordset
Private pSqlStr As String

Public Property Get Result()
    Result = pResult
End Property

Public Function Init()
    Set pCn = CreateObject("ADODB.Connection")

    With pCn
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                            "Data Source=" & ThisWorkbook.FullName & ";" & _
                            "Extended Properties=""Excel 12.0 Macro;HDR=YES;ReadOnly=False"";"
        .Open
    End With

End Function

Public Function Cleanup()
    If Not (pCn Is Nothing) Then
        pCn.Close
        Set pCn = Nothing
    End If

    If Not pResult Is Nothing Then
        Set pResult = Nothing
    End If

End Function

Public Function CopyResultToRange(rg As Range)
    If Not rg Is Nothing And Not pResult Is Nothing Then
        rg.CopyFromRecordset pResult
    End If
End Function

Public Property Get query() As String
    query = pSqlStr
End Property
Public Property Let query(value As String)
    pSqlStr = value
End Property

Public Function Execute(Optional sqlQuery As String)
    If sqlQuery = "" Then
        sqlQuery = query
    End If

    If Not pCn Is Nothing Then
        Set pResult = pCn.Execute(sqlQuery, , CommandTypeEnum.adCmdText Or ExecuteOptionEnum.adExecuteNoRecords)
    Else
        MsgBox "SQL connection not established"
    End If

End Function

执行功能:

Dim s As SQL ' this is the SQL class '
Dim tbl As String
' rcDay=date string, rcIn & rcOut = time strings, rcVac=boolean string, rcSls=number string'
Dim rcName As String, rcDay As String, rcIn As String, rcOut As String, rcVac As String, rcSls As String
Dim qry As String

tbl = "[TblEmpDays$]"
qry = "INSERT INTO  (name, date, in, out, vac, sales)" & vbNewLine & _
        "VALUES ('', '', '', '', '', );"

' Set rc* vars '

s.Init
s.query = Replace(Replace(Replace(Replace(Replace(Replace(Replace(qry, _
                                    "", tbl), _
                                    "", rcSls), _
                                    "", rcVac), _
                                    "", rcOut), _
                                    "", rcIn), _
                                    "", rcDay), _
                                    "", rcName)
MsgBox s.query
s.Execute
s.Cleanup

我看了一遍都找不到解决办法.我确定我没有搜索过正确的短语或简单的东西.

LEEstarmmmmm

这个屌丝很懒，什么也没留下！

关注作者

Tags | 热门标签

• elasticsearch
• json
• mariadb
• memcached
• mongodb
• mysql
• nosql
• redis
• sql
• sqlite

RankList | 热门文章

• 1打开日期选择器日历,而不显示xamarin.forms中的edittextbox
• 2`[AnyObject]`到NSMutableArray
• 33年前golang中的时间戳？
• 4无法加载AngularJS 2路由器
• 5字符串拆分Java中的错误
• 6如何处理Angular中的浏览器选项卡关闭事件？只关闭,不刷新
• 7有多种快速方法可以在多个选择中粘贴连续数字吗？
• 8根据所选选项卡设置按钮的可见性
• 9在Windows 10更新后,vagrant up停止工作
• 10按日期键排序python字典
• 11我应该制作自己的操作系统内核ELF还是原始二进制文件？
• 12jQuery和行高
• 13如何在django-rest-framework的序列化器中格式化时间？
• 14Vectorize Triple Loop - MATLAB
• 15是否不支持NUnit异步安装？
• 16cordova离子框架:获取位置后台服务
• 17href ="mailto:"无法在任何浏览器上运行
• 18如何使不规则形状的SVG重叠,同时保持所有区域可点击？
• 19Python:不以#开头的行
• 20如何更换一个句子

DevBox开发工具箱 | 专业的在线开发工具网站    京公网安备 11010802040832号  |  京ICP备19059560号-6
Copyright © 1998 - 2020 DevBox.CN. All Rights Reserved devBox.cn 开发工具箱 版权所有