Hi,
Looking for some help or advice please as got a bit of a head scratcher ........
Trying to pull in SQL data for display in a dialog box so user can select an entry.
We are currently in the long process of migrating Notes databases into a new SQL platform.
I am using Notrix to bridge the gap for most things which is grand. A great tool. Works a treat.
However, ideally, for some picklists in Notes, I'd like to pull in the SQL data on the fly. As we have Notrix jobs running on a schedule to pull data from SQL into Notes currently.
Current script I am using is as below ... up to about 2500 rows returned, dialog box opens fine and all is well. Beyond that number nothing happens. No dialog box. Script is certainly processing all 4500 ish rows but no dialog box..!
Is this a limitation of how much data can be displayed in a dialog box or am I missing something. .. ?
Any help or thoughts greatly received .....
Many thanks.
Dim sqlvalues() As Variant
Dim i As Integer
Dim response As Variant
sqlsvr = SERVER
sqldb = DATABASE
sqluname = USERNAME
sqlpw = PASSWORD
Const tn = "TABLE"
' Build SQL string
sql = {SELECT * FROM } & tn
strConn = |Provider=SQLOLEDB.1;Server=| + sqlsvr + |;Database=| + sqldb + |;UID=| + sqluname + |;PWD=| + sqlpw
Set adoConn = CreateObject ( "ADODB.Connection" )
Call adoConn.Open ( strConn )
Set rs = CreateObject ( "ADODB.Recordset" )
rs.open sql, adoConn
i = 0
Do While Not rs.eof
i = i + 1
Print "SQL Rows Processed ... " & i
Redim Preserve sqlvalues ( i )
sqlvalues ( i ) = rs.fields ( "FULLNAME" ).value
rs.movenext
Loop
finish:
response = ws.Prompt ( PROMPT_OKCANCELLIST, "Select an entry (SQL)", "Select an entry", sqlvalues(1), sqlvalues )