MS Excel

V referencích VBA přidat referenci na Microsoft ActiveX Data Objects 2.8 Library.
a pak následující kód...
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=NazevDB;Data Source=NazevServeru"
conn.Open
For rd = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(rd, 1) <> "" Then
conn.Execute ("INSERT INTO TABULKA (JMENO, CAS, DUVOD) VALUES ('" & Cells(rd, 1) & "', " & Cells(rd, 2) & ", '" & Cells(rd, 3) & "'")
End If
Next
conn.Close

Použitý connection string využívá ověření windows, nikoliv SQL.
M@citovat

V příloze je příklad, Je potřeba v makru specifikovat tabulku, kam se má vkládat. No a pak pokud SQL běží doma, tak si nejsem jistý jestli by nemělo běžet přes localhost\sqlexpress.

M@citovat

Z toho plyne, že Databáze se nejmenuje Table, ale merkur, což je potřeba upravit v connection stringu
Initial Catalog=merkur
Tabulka se jmenuje TABULKA, takže je potřeba upravit i SQl.
No a poslední dost podstatné je ten čas. Jelikož se nejedná o délku trvání (číslo), ale o datum a čas, tak je potřeba ho zformátovat do podoby pro SQL, což se mi čistě vložením obsahu buňky nikdy nepodařilo, takže je potřeba jej ošetřit v dotazu...
conn.Execute ("INSERT INTO TABULKA (JMENO, CAS, DUVOD) VALUES ('" & Cells(rd, 1) & "', '" & Replace(CStr(Format(Cells(rd, 2), "yyyy.mm.dd HH:MM:SS")), ".", "/") & "', '" & Cells(rd, 3) & "')")

Určitě by šlo ošetřit i v SQL jazyce přeformátováním, ale mě se to lépe dělá už ve VB :-).

M@citovat

Co se opravy záznamu týče, tak každý záznam v SQL by měl mít jedinečné ID, přes toto pak lze použít UPDATE dotaz.
Co se makra na straně excelu týče tak bude v podstatě stejné jako v případě vkládání, akorát místo INSERTOVÉHO dotazu se bude předávat UPDATE dotaz, který má jinou syntaxi a je nutno mu dodat podmínku, která jednoznačně identifikuje záznam který chcete UPDATOVAT
"UPDATE TABULKA SET POLE = 'NovaHodnota' WHERE ID = 1".

Co se času vložení týče, tak v SQL lze vytvořit POLE typu datetime a nejlépe mu i nastavit výchozí hodnotu na SYSDATETIME(), čím se do daného pole s každým novým záznamem vloží aktuální datum a čas, tudíž vůbec není třeba řešit v dotazu.

S tím přihlášením a odhlášením už jsem to moc nepobral :-), přihlášení a odhlášení kam?

M@citovat