This seems to work in VBScript but I can't be able to port to Kix, not to get it working anyway. Anyone have an idea what i'm doing wrong?
VBScript:
code:
Dim connect, connect_str, query, output, msg
Set connect = CreateObject("ADODB.Connection")
connect_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
connect.Open connect_str
query = "SELECT * FROM MyTable"
Set query = connect.Execute(query)
Do while not query.EOF
output = query("MyRecord")
query.movenext
loop
msg = "Results: " &output
msgbox msg
And the kix script:
code:
break on
$connect = CreateObject("ADODB.Connection")
$connect_str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb"
$connect.Open($connect_str)
$query = "SELECT * FROM MyTable"
$query = $connect.Execute($query)
while not $query.EOF
$output = $query("MyRecord")
$query.movenext
loop
? "Results: " + $output