1
我有从我的工作簿中取出数据并将其加载到SQL数据库中的代码。它工作得很好,但我只是意识到,一旦我插入了一些内容并为该行生成主键,我想将它添加到我的Excel工作簿中,以便可以针对它们运行更新语句。Excel VBA和MYSQL的Select LAST_INSERT_ID();
在SQL中,我知道我可以运行
Insert into reports (blah, blah, blah, etc...)
Values (1,2,3, etc....)
Select LAST_INSERT_ID();
,并获得新行我刚插入的主键,但我想不出如何获取该选择LAST_INSERT_ID的输出() ;回到Excel中....
我的代码如下所示:
SQLINSERT = "Insert into `dwInvoice`.`report` (`TrackNumber`, `RegNSB`, `TrackCount`, `TrackNSB`, `TotalBacklog`, `AverageBacklogTrackMargin`, `RegRGP`, `RGPPercent`, `PriceCode`, `PMName`, `PMComments`, `PMMRecommendations`, `Outcome`, `NewGPPercent`, `AdditionalGP`, `HomeBranch`, `HomeBranchCode`, `BranchCode`, `PMM`, `FSRName`, `SMRName`, `DateReport`, `NEDA`, `NEDAName`, `HomeNEDA`, `HomeNEDAName`, `InvCustEB`, `InvCustNum`, `InvCustName`, `InvCustDWIndicator`, `RegNum`, `AppDate`, `InvoiceDate`, `InvoiceNumber`, `PartNumber`, `DWCustEB`, `DWCustNumb`, `DWCustName`, `DWIndicator`, `DRAWstatus`, `MarginType`, `UnitResale`, `UnitCost`, `PriceCost`, `UnitsShipped`, `TeamNum`, `TeamName`, `IndirectCustNum`, `IndirectCustDWCode`, `IndirectCustEB`, `IndirectCustName`) VALUES("
SQLOUTPUT = "Select LAST_INSERT_ID()"
For Each c In Range("A2:A" & lastRow)
SQLBODY = "'" & c.Value & "','" & c.Offset(0, 1).Value & "','" & c.Offset(0, 2).Value & "','" & c.Offset(0, 3).Value & "','" & c.Offset(0, 4).Value & "','" & c.Offset(0, 5).Value & "','" & c.Offset(0, 6).Value & "','" & c.Offset(0, 7).Value & "','" & c.Offset(0, 8).Value & "','" & c.Offset(0, 9).Value & "','" & c.Offset(0, 10).Value & "','" & c.Offset(0, 11).Value & "','" & c.Offset(0, 12).Value & "','" & c.Offset(0, 13).Value & "','" & c.Offset(0, 14).Value & "','" & c.Offset(0, 15).Value & "','" & c.Offset(0, 16).Value & "','" & c.Offset(0, 17).Value & "','" & c.Offset(0, 18).Value & "','" & c.Offset(0, 19).Value & "','" & c.Offset(0, 20).Value & "','" & c.Offset(0, 21).Value & "','" & c.Offset(0, 22).Value & "','" & c.Offset(0, 23).Value & "','" & c.Offset(0, 24).Value & "','" & c.Offset(0, 25).Value & "','" & c.Offset(0, 26).Value & "','" _
& c.Offset(0, 27).Value & "','" & c.Offset(0, 28).Value & "','" & c.Offset(0, 29).Value & "','" & c.Offset(0, 30).Value & "','" & c.Offset(0, 31).Value & "','" & c.Offset(0, 32).Value & "','" & c.Offset(0, 33).Value & "','" & c.Offset(0, 34).Value & "','" & c.Offset(0, 35).Value & "','" & c.Offset(0, 36).Value & "','" & c.Offset(0, 37).Value & "','" & c.Offset(0, 38).Value & "','" & c.Offset(0, 39).Value & "','" & c.Offset(0, 40).Value & "','" & c.Offset(0, 41).Value & "','" & c.Offset(0, 42).Value & "','" & c.Offset(0, 43).Value & "','" & c.Offset(0, 44).Value & "','" & c.Offset(0, 45).Value & "','" & c.Offset(0, 46).Value & "','" & c.Offset(0, 47).Value & "','" & c.Offset(0, 48).Value & "','" & c.Offset(0, 49).Value & "','" & c.Offset(0, 50).Value & "')"
SQLEND = ";"
SQL_GET = "" & SQLIF & SQLINSERT & SQLBODY & SQLEND
cmd.CommandText = SQL_GET
Set rs = cmd.Execute
next c
我知道这是很长...但它的工作原理。
我可以修改改变SQL_GET的声明:
SQL_GET = "" & SQLIF & SQLINSERT & SQLBODY & SQLEND & SQLOUTPUT & SQLEND
到Select LAST_INSERT_ID() ;
添加到SQL语句的结束,但我仍然不知道如何真正得到该值就是输出反馈到Excel中。任何想法如何让这发生?
第一 - 谢谢!我会(尝试)尽快对此进行测试。现在,我收到以下错误: '系统消息:[MySQL] [ODBC 5.3(w)驱动程序] [mysqld-5.6.20]在'Select LAST_INSERT_ID()'附近的SQL语法错误第1行' 语法正是我如何将它输入到实际的SQL查询中。.... – lordterrin 2014-09-30 18:32:12
哦,从来没有 - 我只是在原始查询结束时运行没有SQLOUTPUT,然后运行你提供的这段代码。非常感谢! – lordterrin 2014-09-30 18:37:15