need help: vbscript to autoit

[carabusu]

how this code look in autoit, i need exactly this code because i have problems with tnsname.ora file and this works in vbscript

tnx

Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
         "CONNECTSTRING=(DESCRIPTION=" & _
         "(ADDRESS=(PROTOCOL=TCP)" & _
         "(HOST=mysrv)(PORT=7001))" & _
         "(CONNECT_DATA=(SERVICE_NAME=MYDB))); uid=read;pwd=read;"

Dim oCon: Set oCon = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("SELECT myfield FROM mytable)
While Not oRs.EOF
    WSCript.Echo oRs.Fields(0).Value
    oRs.MoveNext
Wend
oCon.Close
Set oRs = Nothing
Set oCon = Nothing

[PsaltyDS]

Well, this has to be closer than what you had, but I can't tell if it's completely right:

Dim $strCon = "Driver={Microsoft ODBC for Oracle}; " & _
         "CONNECTSTRING=(DESCRIPTION=" & _
         "(ADDRESS=(PROTOCOL=TCP)" & _
         "(HOST=mysrv)(PORT=7001))" & _
         "(CONNECT_DATA=(SERVICE_NAME=MYDB))); uid=read;pwd=read;"

Dim $oCon = ObjCreate("ADODB.Connection")
Dim $oRs = ObjCreate("ADODB.Recordset")
$oCon.Open($strCon)
$oRs = $oCon.Execute("SELECT myfield FROM mytable")
While Not $oRs.EOF
    ConsoleWrite($oRs.Fields(0).Value & @LF)
    $oRs.MoveNext
Wend
$oCon.Close
$oRs = ""
$oCon = ""