Quoting Marco Bambini <[EMAIL PROTECTED]>:
Before this line:
curRecord.Column("pathname") = thePath
you should add:
curRecord = New DatabaseRecord
You need to create a new DatabaseRecord for each insert inside the
loop...
Thanks Marco -
I've moved that out of the Dim into the loop. Also, the issue of
the rs
returned from the select:
Dim curRecord As DatabaseRecord
Dim rs As New RecordSet
Dim f As FolderItem
Dim fs As TextInputStream
Dim curline, thePath, theFile As String
f = GetFolderItem("/private/tmp/runoutput1.log", _
FolderItem.PathTypeShell)
fs = f.OpenAsTextFile
While Not fs.EOF
curline = fs.ReadLine
If Left(curline, 3) = "VL:" Then
// This gets the full file and path from the text file
thePath = NthField(curline, "|", 6)
// this gets the files path (dirname)
thePath = dirname(thePath)
// send the result to my Debug class
Debug.Print "SQL Select: " + "select * from paths where
pathname='" _
+ thePath + "'"
rs = CatalogDB.SQLSelect("select * from paths where
pathname='" _
+ thePath + "'")
if CatalogDB.Error Then
That last line ^^^^^^^^^^
Was changed to read:
If rs.RecordCount <> 0 Then
and the lookups are now reacting properly.
I have one remaining issue - when I insert the record into the
paths datatable,
how can I determine what the rowID was for that table? When I use
the
"thePathID = app.BRUCatalogDB.LastRowID"
command, I get the last rowid for any insert and the rowid's for
the files table
could be MUCH larger than the ID that was actually assigned to the
path insert.
Here's my (sort-of) working code:
Dim curRecord As DatabaseRecord
Dim rs As New RecordSet
Dim f As FolderItem
Dim fs As TextInputStream
Dim curline, thePath, theFile, theArchiveID, theLink As String
Dim theVol, theQFA, thePathID, lnCount As Integer
Dim theSize As Int64
f = GetFolderItem("/private/var/lib/bru/tmp/brucat1.log", _
FolderItem.PathTypeShell)
fs = f.OpenAsTextFile
lnCount = 0
While Not fs.EOF
curline = fs.ReadLine
lnCount = lnCount + 1
If Left(curline, 13) = "archive ID = " Then
theArchiveID = NthField(curline, "= ", 2)
ElseIf Left(curline, 3) = "VL:" Then
theVol = Val(NthField(curline, "|", 3))
theSize = Val(NthField(curline, "|", 4))
theQFA = Val(NthField(curline, "|", 5))
// This gets the full file and path from the text file
thePath = NthField(curline, "|", 6)
// this gets the files path (dirname)
If InStr(thePath, Chr(0)) <> 0 Then
thePath = NthField(thePath, Chr(0), 1)
theLink = NthField(thePath, Chr(0), 2)
Else
theLink = ""
End If
thePath = dirname(thePath)
theFile = filename(thePath)
Debug.Print "SQL Select: " + "select * from paths where
pathname='" _
+ thePath + "'"
rs = App.BRUCatalogDB.SQLSelect("select * from paths where
pathname='" _
+ thePath + "'")
if rs.RecordCount = 0 Then
curRecord = New DatabaseRecord
Debug.Print "No matching records for " + thePath + " in
paths table"
EditField1.SelText = thePath + EndOfLine
curRecord.Column("pathname") = thePath
App.BRUCatalogDB.InsertRecord("paths", curRecord)
thePathID = app.BRUCatalogDB.LastRowID
Debug.Print "PathID " + Str(thePathID) + " = " + thePath
curRecord = Nil
Else
Debug.Print "Recordset count = " + Str(rs.RecordCount) +
", " + _
"Lastrow was " + Str(app.BRUCatalogDB.LastRowID)
thePathID = Val(rs.Field("pathid").Value)
Editfield1.SelText = "Path entry is " + Str(thePathID) +
EndOfLine
End If
curRecord = New DatabaseRecord
curRecord.IntegerColumn("pathid") = thePathID
curRecord.Column("filename") = theFile
curRecord.Column("archiveid") = theArchiveID
curRecord.IntegerColumn("volume") = theVol
curRecord.Int64Column("filesize") = theSize
curRecord.IntegerColumn("qfa_start") = theQFA
curRecord.Column("linkpath") = theLink
App.BRUCatalogDB.InsertRecord("files", curRecord)
End If
If lnCount \ 100 = 0 Then
App.BRUCatalogDB.Commit
End If
Wend
Everything looks good except the rowID for the path may not
actually match the
inserted row value in the paths datatable.
Tim
--
Tim Jones
[EMAIL PROTECTED]
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
