#include <_SQL.au3>
$db_path = 'c:\Base\'
$db = '4'
$sql = _SQL_Startup()
_SQL_ParadoxConnect($sql, $db_path, $db_path)
;_SQL_Execute($sql, "INSERT INTO 4(OPER) VALUES ('123')") ; работает
_SQL_Execute($sql, "INSERT INTO 4(TEXT) VALUES ('some_text')")
_SQL_Close($sql)
Func _SQL_ParadoxConnect($ADODBHandle = -1, $sFilePath1 = '', $Dir='')
$SQLErr = ''
If $ADODBHandle = -1 Then $ADODBHandle = $SQL_LastConnection
If Not IsObj($ADODBHandle) Then
$SQLErr = 'Invalid ADODB.Connection object, use _SQL_Startup()'
Return SetError($SQL_ERROR, 0, $SQL_ERROR)
EndIf
$ADODBHandle.Open('Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 4.X;DefaultDir=' & $Dir & ';Dbq=' & $sFilePath1 & ';CollatingSequence=ASCII;')
If @error Then
$SQLErr = 'Connection Error'
Return SetError($SQL_ERROR, 0, $SQL_ERROR)
EndIf
Return SetError($SQL_OK, 0, $SQL_OK)
EndFunc