WORD VBA SQL data to table

Pozdravljen,

VBA lepo sodeluje z ODBC in ne potrebuješ nobenih posebnih funkcij, saj lahko preprosto bereš VSE ODBC povezave ter rezultate pišeš v katerikoli Office program. Tudi v primeru Excela si se moral na bazo povezati, odpreti recordset in potem to izpisati v tabelo. Funkcija CopyFromRecordset ti je samo poenostavila for zanko.

Podajam primer, ki iz tabele Messages izpiše vsa sporočila (Message) ter posloedično deluje v vseh Office programih:

Const uporabnisko_ime As String = "matjaz"
Const geslo As String = "geslo123*"
Const baza As String = "test"
Const streznik As String = ".\SQLEXPRESS"


Sub test()
  Dim povezava
  Set povezava = CreateObject("ADODB.Connection")
  povezava.ConnectionString = "" & _
   "DRIVER=SQL Server;" & _
   "UID=" & uporabnisko_ime & ";" & _
   "PASSWORD=" & geslo & ";" & _
   "DATABASE=" & baza & ";" & _
   "SERVER=" & streznik & ""
  povezava.Open
  
  Dim zapisi
  Set zapisi = CreateObject("ADODB.Recordset")
  zapisi.ActiveConnection = povezava
  zapisi.Source = "SELECT message from Messages "
  zapisi.Open
  
  Do While (Not zapisi.EOF)
   Debug.Print (zapisi.Fields("Message").Value)
   zapisi.MoveNext
  Loop
  
  zapisi.Close
  
  Set zapisi = Nothing
  Set povezava = Nothing
End Sub