Что нового

[Сеть, интернет] Реализация подключения к БД FireBird 2.*

drd0s

Новичок
Сообщения
19
Репутация
2
Добрый вечер.
Я только начал знакомиться с AutoIT, который в свою очередь мне очень понравился :smile:
Возник такой вопрос, ни у кого нету скрипта который производить подключение в БД FireBird 2.0, по работе очень нужно?! :scratch:
Я видел пример с подключением к MySQL там все понятно, а вот как подключиться к FB не пойму. Подскажите, пожалуйста, какой драйвер использовать или как это можно реализовать не прибегая к помощи сторонних языков.
 
Автор
drd0s

drd0s

Новичок
Сообщения
19
Репутация
2
Видимо придется писать на php и сокетах. Тема закрыта.
 

Redline

AutoIT Гуру
Сообщения
506
Репутация
375
Вот что-то, сам не тестировал!
Код:
#include <GUIConstants.au3>
#include <ListviewConstants.au3>

Opt("TrayIconDebug", 1)
Opt("ExpandEnvStrings", 1)
Opt("ExpandVarStrings", 1)

Dim $header = ""
Dim $quantity = 0
Dim $dsncount = 1
Dim $button3
Dim $username = "", $password = "", $aRecords, $list, $i, $i1, $i2, $button1
Dim $databaseread = IniRead("c:\delfin\system\control.sys", "Database", "Path", "")
Dim $query = "select username, passwd from cci_credit_check"
Dim $DSN = "DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA; PWD=password; DBNAME=" & $databaseread & ";"

$out = getData($DSN)
ToolTip("")
WinSetTitle("TempWindowName", "", $out & " Rows fetched")

While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $button3
         ExitLoop
   EndSelect
WEnd

Func getData($DSN)
	$cmboVal = ""
	$adoCon = ObjCreate("ADODB.Connection")
	$adoCon.Open($DSN)
	$adoRs = ObjCreate("ADODB.Recordset")
	$adoSQL = $query
	$adoRs.CursorType = 2
	$adoRs.LockType = 3
	$adoRs.Open($adoSQL, $adoCon)
	GUICreate("TempWindowName", 420, 250)
	$button3 = GUICtrlCreateButton("OK", 180, 220, 70, 20)
	With $adoRs
		For $n = 0 To .Fields.Count - 1
			$header = $header & .Fields($n).Name & "|"
		Next
		$list = GUICtrlCreateListView(StringTrimRight($header, 1), 10, 10, 400, 200, $LVS_REPORT, $LVS_EX_GRIDLINES)
		If .RecordCount Then
			$count = 0
			While Not .EOF
				$count = $count + 1
				ToolTip("record search #" & $count, 0, 0)
				For $colum = 0 To .Fields.Count - 1
					$cmboVal = $cmboVal & "" & .Fields($colum).Value & "|"
				Next
				$cmboVal = StringTrimRight($cmboVal, 1) & @CR

				GUICtrlCreateListViewItem($cmboVal, $list)
				$cmboVal = ""
				.MoveNext
			WEnd
			GUISetState()
		EndIf
	EndWith
	$adoCon.Close
	Return $count
EndFunc   ;==>getData

Но нужны ODBC драйвера для FireBird http://www.firebirdsql.org/index.php?op=files&id=odbc
 
Верх