ADODB Legen Sie in ein anderes Blatt

Question

ich auf einem anderen, einen Datensatz zu erstellen versuchen Excel-Sheet mit SQL Befehl insert ich in der Lage bin mit Abfrage zu wählen, aber ich weiß nicht genau, wie ein Datensatz einfügen meines Code:

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 

Es gibt mir einen Fehler wie:

Syntaxfehler in der INSERT INTO-Anweisung

Answer 1

ich vermute, dass Urun_barkodu, Urun_kodu, Urun_adi und Urun_kategorie sind String Vars. Sie müssen sie in die Zeichenfolge verketten.

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 & "');"