ADODB插入另一张表

我想创build另一个Excel插入命令与SQL插入命令的logging我可以select与查询，但我不知道如何插入一个logging我的代码是：

Function database_add(Urun_barkodu, Urun_kodu, Urun_adi, Urun_kategori) As String Dim cn As Object, rs As Object, output As String, sql As String, Insert As String Dim add_data As String Dim rst As ADODB.Recordset '---Connecting to the Data Source--- Set cn = CreateObject("ADODB.Connection") Set rst = New ADODB.Recordset With cn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & _ "Extended Properties=""Excel 12.0 Xml;HDR=YES"";" .Open End With add_data = "INSERT INTO [ürünler$] (columns(1),columns(2),columns(3),columns(4))" add_data = add_data & "VALUES (Urun_barkodu, Urun_kodu, Urun_adi, Urun_kategori)" cn.Close cn.Open rst.Open add_data, cn, dOpenStatic, adLockReadOnly, adCmdText '---Clean up--- rs.Close cn.Close Set cn = Nothing Set rs = Nothing End Function 

它给我一个错误，如：

INSERT INTO语句中的语法错误

Answer 1

我猜Urun_barkodu，Urun_kodu，Urun_adi和Urun_kategori是stringvariables。 您需要将它们连接到string中。

 add_data = "INSERT INTO [ürünler$] (columns(1),columns(2),columns(3),columns(4)) " add_data = add_data & "VALUES ('" & Urun_barkodu & "', '" & Urun_kodu& "', '" & Urun_adi & "', '" & Urun_kategori & "');"