Snasui Excel Forum

Code: Select all

Sub Button3_Click()

    Dim dbPath As String
    Dim dbConn As String
    Dim Conn As ADODB.Connection
    Dim RsInsert As Recordset
    Dim wbBook As Workbook
    Dim wsSheet As Worksheet
    Dim strNewProduct As String
    Dim curNewPrice As Currency

    Set wbBook = ThisWorkbook
    Set wsSheet = wbBook.Sheets(1)

    dbPath = "D:\All_Store\Test01\productDB.accdb"
    stConn = "Provider=Microsoft.ACE.OLEDB.12.0;" _
                        & "Data Source=" & dbPath & ";"
    
    strSQLInsert = "INSERT INTO tblProduct " _
                        & "(NAME, LAST_NAME, MON, TUE, WED, THU, THU, SAT, SUN)"
                        
    Set Conn = New ADODB.Connection
    With Conn
            .Open (stConn)
            .CursorLocation = adUseClient
    End With

    Set RsInsert = Conn.Execute(strSQLInsert)
    
    Conn.Close
    Set Conn = Nothing
End Sub

Code: Select all

INSERT INTO Customers (CustomerName, ContactName, Address, City, PostalCode, Country)
VALUES ('Cardinal','Tom B. Erichsen','Skagen 21','Stavanger','4006','Norway');