Просмотр исходного текста страницы Подключение к внешней базе данных из скрипт-функции

Ниже приведен текст процедуры, которая устанавливает соединение к внешней базе данных Firebird и выводит список пользователей из таблицы [[GD_USER]]. 

<syntaxhighlight lang="VB">
Option Explicit
Sub ExternalConnect

  Dim Creator, DB, Tr, q
  Set Creator = New TCreator
  Set DB = Creator.GetObject(nil, "TIBDatabase", "")

  DB.DatabaseName = "localhost:c:\temp\etalon.fdb"
  DB.Params.Add("user_name=sysdba")
  DB.Params.Add("password=masterkey")
  DB.Params.Add("lc_ctype=WIN1251")
  DB.LoginPrompt = False
  DB.Connected = True
  
  Set Tr = Creator.GetObject(nil, "TIBTransaction", "")
  Set Tr.DefaultDatabase = DB
  Tr.StartTransaction

  Set q = Creator.GetObject(nil, "TIBSQL", "")
  Set q.Transaction = Tr
  q.SQL.Text = "SELECT LIST(name) FROM gd_user"
  q.ExecQuery
  
  If Not q.EOF Then
    MsgBox q.Fields(0).AsString
  End If

End Sub
</syntaxhighlight>

[[Category:Импорт/экспорт данных]]