Prev: 424 Object Required Problem
Next: script to check username rights on local machine
From: Device on 11 Feb 2005 10:17
Hi

I Have this code for transfer data in a text file.
Source Data is an MDB file.

Dim Conn, RsTimbr
Dim oFs, FileLastID, FileTimbr
Dim LastId, SQLstr
Set Conn = CreateObject("ADODB.Connection")
Set RSTimbr = CreateObject("ADODB.Recordset")
Set oFs = CreateObject("Scripting.FileSystemObject")
Set FileLastID =
oFs.OpenTextFile("C:\Documenti\breda\report\LastId.txt",1,True,0)
LastId = FileLastId.ReadLine
FileLastID.Close
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documenti\breda\report\TIMBRATURA.MDB"
SqlStr = "SELECT Id,Tempo,Varco,Codice FROM Traffico WHERE (Varco=2) OR
(Varco=3) AND (LastID > " & LastID & ");"
Set RSTimbr = Conn.Execute(SQLStr)
Set FileTimb = oFs.CreateTextFile("C:\Timbrature.Txt", True)
While Not RsTimbr.EOF
LastID = RSTimbr.Fields("ID")
SQLStr = RSTimbr.Fields("Tempo") & " " & RSTimbr.Fields("Varco") & " " &
RSTimbr.Fields("Codice")
RSTimbr.MoveNext
FileTimb.WriteLine(SQLStr)
Wend
Set FileLastID = oFs.CreateTextFile("C:\Documenti\breda\report\LastId.txt",
True)
FileLastID.WriteLine(LastID)
FileLastId.Close
FileTimb.Close
RsTimbr.Close
Conn.Close

When open the recordset the WSH return this error Code 80040E10.

Where is the problem?

Thanks for help
--
Mior Devis
Ufficio CED


 | 
Pages: 1
Prev: 424 Object Required Problem
Next: script to check username rights on local machine