jscript syntax to vbscript using ADO

Can anyone help with taking the below example of jscript to work with
vbscript.

strConnection = "Driver={Microsoft Text Driver (*.txt;
*.csv)};Dbq=C:\\TESTDATA\\;Extensions=asc,csv,tab,txt;";
adoConn = new ActiveXObject("ADODB.Connection");
adoConn.ConnectionString = strConnection;
adoConn.Open();
//@cc_on

rs = adoConn.Execute("Select * , ((TSHourAfter * 60) + TSMinuteAfter) -
((TSHourBefore * 60) + TSMinuteBefore) as TotalStoreMin From
09122005.csv");

while(!rs.EOF)
{
// @If (TotalStoreMin = 0)
WScript.Echo(rs.Fields("TSDate").Value + ',' + rs.Fields("TSBUnit").Value
+ ',' + rs.Fields("TSStoreNumber").Value + ',' +
rs.Fields("TSTimeZone").Value + ',' + rs.Fields("TSDST").Value + ',' +
rs.Fields("TSHourAfter").Value + ',' + rs.Fields("TSMinuteAfter").Value +
',' + rs.Fields("TSHourBefore").Value + ',' +
rs.Fields("TSMinuteBefore").Value + ',' + rs.Fields("TotalStoreMin").Value);
// @End

rs.moveNext();
}

eric
Wed Sep 14 17:08:08 CDT 2005



Hi Big D-

I'm not a jscript expert, so that my hurt my interpretation here.
Caution *air code*, but should be close:

*******************
Dim sCnn, adoCnn, rs, sSQL

' Open Connection to DB
sCnn = "Driver={Microsoft Text Driver (*.txt;
*.csv)};Dbq=C:\\TESTDATA\\;Extensions=asc,csv,tab,txt;"
Set adoCnn = CreateObject("ADODB.Connection")
adoCnn.ConnectionString = sCnn
adoCnn.Open

' Get our recordset
sSQL = "Select * , ((TSHourAfter * 60) + TSMinuteAfter) -
((TSHourBefore * 60) + TSMinuteBefore) as TotalStoreMin From
09122005.csv"
Set rs = adoCnn.Execute(sSQL)

' Do what we need to do.
While Not rs.EOF
' If rs.Fields("TotalStoreMin") = 0 Then
WScript.Echo(rs.Fields("TSDate") & "," & rs.Fields("TSBUnit") & "," &
<etc etc etc>)
' End If
rs.MoveNext
Wend
*******************

*** Sent via Developersdex http://www.developersdex.com ***

eric
Wed Sep 14 17:12:57 CDT 2005


By the way, don't forget to:

' Clean up.
rs.Close
adoCnn.Close
Set rs = Nothing
Set adoCnn = Nothing

e


*** Sent via Developersdex http://www.developersdex.com ***