String VBA更新SQL Server 2014数据库表
当此代码尝试执行函数String VBA更新SQL Server 2014数据库表,string,vba,connection,sql-server-2014,String,Vba,Connection,Sql Server 2014,当此代码尝试执行函数GetinsertText时,我收到一个错误: 运行时'-214721900(80040e14)':[Microsoft][ODBC SQL Server驱动程序] [SQL Server]关键字“open”附近的语法不正确 我正在使用Microsoft ActiveX数据对象6.1作为参考。我传递的数据类型是十进制和日期吗 Option Explicit Const SQLConSTR As String = "Provider=SQLOLEDB;Data Source=T
GetinsertText
时,我收到一个错误:
运行时'-214721900(80040e14)':[Microsoft][ODBC SQL Server驱动程序]
[SQL Server]关键字“open”附近的语法不正确
我正在使用Microsoft ActiveX数据对象6.1作为参考。我传递的数据类型是十进制和日期吗
Option Explicit
Const SQLConSTR As String = "Provider=SQLOLEDB;Data Source=Test;Initial Catalog=Test1;User ID=TestTest;Password=Test123;"
Sub HITBTC_Ticker_DB_Update()
Dim HITBTCupdate As ADODB.Connection
Dim HITBTCcmd As ADODB.Command
Set HITBTCupdate = New ADODB.Connection
Set HITBTCcmd = New ADODB.Command
HITBTCupdate.ConnectionString = SQLConStr
HITBTCupdate.Open
HITBTCcmd.ActiveConnection = HITBTCupdate
HITBTCcmd.CommandText = GetinsertText
HITBTCcmd.Execute
HITBTCupdate.Close
Set HITBTCupdate = Nothing
End Sub
Function GetinsertText() As String
Dim SQLstr As String
SQLstr = "INSERT INTO tblBCNBTC(" & _
"[Column1.ask], [Column1.bid], [Column1.last], [Column1.open],Column1.low],[Column1.high], [Column1.volume], [Column1.volumeQuote], [Column1.timestamp],[Column1.symbol])" & " Values(" & _
"'0.0000005939', '0.0000005904', '0.0000005922', '0.0000005800','0.0000005686', '0.0000006000','833783600','485.83049356','2018-01-26T01:17:08.060Z','BCNBTC')"
GetinsertText = SQLstr
End Function
首先,您需要为列名使用方括号。此外,SQL语句末尾似乎缺少一个引号。请参见下面修订的SQL:
SQLstr = "INSERT INTO tblBCNBTC(" & _
"[Column1.ask], [Column1.bid], [Column1.last], [Column1.open], [Column1.low],
[Column1.high], [Column1.volume], [Column1.volumeQuote], [Column1.timestamp],
[Column1.symbol])" & " Values(" & _
"0.0000005939', '0.0000005904', '0.0000005922', '0.0000005800',
'0.0000005686', '0.0000006000','833783600','485.83049356','2018-01-
26T01:17:08.060Z','BCNBTC')"
这是你在过去45天里提出的第三个问题,你完全没有努力去格式化任何一个问题。请至少努力学习,这样我们就不必每次都为你收拾残局了。请先发你的帖子,然后点击小标题?工具栏按钮以获取有关正确格式的帮助。谢谢。@braX:如果每个人都争先恐后地为他们设置代码格式,那么这张海报将如何学习设置代码格式?@braX:海报应该负责正确地提出问题,其中包括设置代码格式。@那些有负面评论和教人方法的人,谢谢你的消极攻击性批评,但是还有其他方法可以接近那些显然有学习曲线和文化需要接触和理解的人。我非常感谢在本网站上得到的所有帮助,但请用建设性的批评来解释我的意图,不要羞辱或试图贬低某人。@Xango你需要仔细检查你的
值部分中的单引号-我发现至少有两处错误。请记住,只有字符串需要单引号,数字根本不能使用它们。