Что нового

Выборка данных с dbase 3

uBaH

Новичок
Сообщения
19
Репутация
0
Можно ли приконектится к DBASE 3 так же как и к sqlite - _SQLite_Open ("data.dat") ?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: dbase 3

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"dbase 3" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 

Redline

AutoIT Гуру
Сообщения
506
Репутация
369
По идее для этого нужен установленный драйвер ODBC для данной базы, и все дальнейшие обращения будут вестись через него.
Вот выдержки для MySQL & PostgreSQL:
Код:
Func _MySQLConnect($sUsername, $sPassword, $sDatabase, $sServer, $sDriver = "{MySQL ODBC 3.51 Driver}", $iPort=3306)
	Local $v = StringMid($sDriver, 2, StringLen($sDriver) - 2)
	Local $key = "HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers", $val = RegRead($key, $v)
	If @error or $val = "" Then
		SetError(2)
		Return 0
	EndIf
	$ObjConn = ObjCreate("ADODB.Connection")
	$Objconn.open ("DRIVER=" & $sDriver & ";SERVER=" & $sServer & ";DATABASE=" & $sDatabase & ";UID=" & $sUsername & ";PWD=" & $sPassword & ";PORT="&$iPort)
	If @error Then
		SetError(1)
		Return 0
	Else
		Return $ObjConn
	EndIf
EndFunc   ;==>_MySQLConnect

Код:
$oconn = ObjCreate("ADODB.Connection")
$DSN = "DRIVER={PostgreSQL Ansi};SERVER=192.168.2.197;DATABASE=lms_db;UID=postgres;PWD=;"
$d = $oconn.Open($DSN)
$oconn.Execute("insert into t1Table values('d');")
$rst = ObjCreate("ADODB.Recordset")
$rst.Open("Select * from t1Table", $d, 2, 3)
$aResultsArray = $rst.GetRows()
_ArrayDisplay($aResultsArray, "Results")
 
Верх