ADO Field Size SELECT

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top