====== 4.3 Pisanje podatkov z VBA ======

Ustvarjanje, spreminjanje in brisanje zapisov.

===== Vstavljanje novega zapisa =====

<code vb>
Sub NovaStranka()
    Dim http As Object
    Dim url As String
    Dim body As String

    url = "http://localhost:5000/api/v1/dsn/demo/tables/Customers"
    body = "{""Name"":""Nova Firma d.o.o."",""Country"":""Slovenia""}"

    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "POST", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.send body

    If http.Status = 200 Then
        MsgBox "Uspešno ustvarjeno!"
    Else
        MsgBox "Napaka: " & http.responseText
    End If
End Sub
</code>

===== Posodabljanje zapisa =====

<code vb>
Sub PosodobiStranko()
    Dim body As String
    body = "{""primaryKey"":{""Id"":42},""fields"":{""Name"":""Posodobljeno""}}"

    http.Open "PUT", url, False
    http.setRequestHeader "Content-Type", "application/json"
    http.send body
End Sub
</code>

===== Brisanje zapisa =====

<code vb>
Sub IzbrisiStranko()
    http.Open "DELETE", url & "?Id=42", False
    http.send
End Sub
</code>