MySQL DB Connection - VBScript [Updated]

Hi all,

Short piece of code this time demonstrating a MySQL connection with VBScript.
Script makes use of Local DSN.

Substitute your own DSN name in the DBConnect function. (objDB.open "portal")
And obviously substitute your own Table name ("SELECT * FROM martin")
 
[Update]:
I'd like to extend my thanks to ehvbs for his PM x2( it was quite long ;) - I was shown a more 'conventional' approach for extracting DB data.
Please review the following.
 

 '******************************************************************************************
 'Script Name: mysqltest.vbs 
 'Author: Martin Lydon
 'Created: 26/06/2006
 'Description: First attempt at MySQL Connection using local DSN - MySQL 3.51 ODBC Connector
 '******************************************************************************************
 'Script Initialisation
 
 OPTION EXPLICIT
 Dim objDB,arrRecord,strRecord,strOutput
 Dim oRS, nRec, oFld
 
 'Main Processing section
 'Database connection & select all from Table
 Set objDB = DBConnect()
 Set oRS = objDB.Execute("SELECT * FROM martin LIMIT 3")
 'Dump Records from Table
 WScript.Echo "Recordset Dump:"
 nRec = 0
 Do While Not oRS.EOF
    WScript.Echo "-----", nRec : nRec = nRec + 1
    For Each oFld In oRS.Fields
        WScript.Echo oFld.Name & " = " & oFld.Value
    Next
    oRS.MoveNext
 Loop
 
 'Procedures section
 'This function sets up DB Connection using specified DSN
    Function DBConnect
    Set objDB = CreateObject("ADODB.Connection")
    objDB.Open "portal"
    Set DBConnect = objDB
 End Function
 
  
 
 

Hi All,
Thanks for the script.  I tried to work with it but i am getting the following error.
I have created the ODBC DSN connection and the user for the DB is sa with Null password.
In the ODBC test everything is working fine. TEST SUCCESSFULL
and when i try to run the script this is the error i get.
Can anybody point me what am i doing wrong?
I also need to now if there is a script that will create an automatic ODBC connection.
 
Line 32
Char 3
Error: [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user '(null)'. Reason: Not associated with a trusted SQL Server connection
Code: 80040E4D
 
 
 
Regards,
Buff