народ, хакер, а помогите плиз код на php в vb6.0 перевести

[kibernetics]

вот код:

Код: Выделить всё

$c="Driver={Transbase ODBC TECDOC CD 1_2009};Database=TECDOC_CD_1_2009@localhost";
$con = odbc_connect($c,"tecdoc","tcd_error_0") or odbc_errormsg();

$sel = "SELECT * FROM TECDOC.TOF_AXLES";

$exec = odbc_exec($con,$sel);

while($row = (odbc_fetch_array($exec)))
// eventually, if you need some field $serv[odbc_result($exec,'NAME_OF_FIELD')] = $row;
$serv[odbc_result_all($exec)] = $row;
print_r($serv);

[iGrok]

Ну как-то так..

Код: Выделить всё

Dim oConn as New ADODB.Connection
Dim oRec as New ADODB.Recordset
Dim i As Long, s as string

oConn.CursorLocation = adUseClient
oConn.Open "Driver={Transbase ODBC TECDOC CD 1_2009};Database=TECDOC_CD_1_2009@localhost;;UID=tecdoc;PWD=tcd_error_0"

oRec.Open "SELECT * FROM TECDOC.TOF_AXLES", oConn, adOpenStatic, adLockOptimistic

        oRec.MoveFirst
        Do Until oRec.EOF
            For i = 0 To oRec.Fields.Count - 1
                s = s & oRed.Fields(i).Name & " => " & iif(isnull(oRec.Fields(i).Value), "NULL", oRec.Fields(i).value) & vbTab
            Next i
            s = s & vbcrlf
            oRec.MoveNext
        Loop
oRec.Close
oConn.Close
Debug.Print s


[kibernetics]

iGrok, грация сеньор