S
Steven M. Britton
I am trying to access a lotus notes database through ADO and when I do a few
of the fields are having their information truncated so I am only getting
the first 254 characters. How through VBA can I select those fields and get
ALL the data in them?
Here is the test code I am playing with...
Function ReadLotusECNExport()
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
myServerName = "ARLNotes1/USMARINE"
myDbName = "BBGCorAct.nsf"
'Connect to a Database
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={Lotus NotesSQL Driver (*.nsf)};SERVER=" &
myServerName & ";DATABASE=" & myDbName
oConn.Open
'Create a recordset object
Set rs = CreateObject("ADODB.RecordSet")
rs.ActiveConnection = oConn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic
strSQL = "SELECT Main.Description FROM Main WHERE
((Main.Status)<>'Closed');"
rs.Open strSQL
Do
Debug.Print rs!Description
rs.MoveNext
Loop Until rs2.EOF
rs.Close
End Function
of the fields are having their information truncated so I am only getting
the first 254 characters. How through VBA can I select those fields and get
ALL the data in them?
Here is the test code I am playing with...
Function ReadLotusECNExport()
Dim oConn As ADODB.Connection
Dim rs As ADODB.Recordset
myServerName = "ARLNotes1/USMARINE"
myDbName = "BBGCorAct.nsf"
'Connect to a Database
Set oConn = CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={Lotus NotesSQL Driver (*.nsf)};SERVER=" &
myServerName & ";DATABASE=" & myDbName
oConn.Open
'Create a recordset object
Set rs = CreateObject("ADODB.RecordSet")
rs.ActiveConnection = oConn
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.LockType = adLockPessimistic
strSQL = "SELECT Main.Description FROM Main WHERE
((Main.Status)<>'Closed');"
rs.Open strSQL
Do
Debug.Print rs!Description
rs.MoveNext
Loop Until rs2.EOF
rs.Close
End Function