Ciao
io ho fatto cosė:
Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As New ODBCQuery
Dim res As New ODBCResultSet
Dim iRes As Integer
Set con = New ODBCConnection
con.SilentMode = True
iRes = con.ConnectTo ( yourDSN, yourUser, yourPsw)
If iRes = True Then
Set qry.Connection = con
Set res.Query = qry
res.CacheLimit = DB_NONE
res.FetchBatchSize = 1
res.MaxRows = 0
res.ReadOnly = True
qry.SQL = "SELECT * FROM yourtable"
res.Execute
iRes = res.IsResultSetAvailable
If iRes = True Then
Call res.NextRow
While Not res.IsEndOfData
\'I valori dal record set li puoi prendere usando res.GetValue ("nomeColonna")
Call res.NextRow
Wend
iRes = res.Close ( DB_CLOSE )
End if
End If
Set con = Nothing
Andrea Ferro - Lotus Notes Developer - www.work.it
|