Lotus Notes - Vista en Obc

 
Vista:

Vista en Obc

Publicado por Irma Villeda (4 intervenciones) el 11/03/2005 05:26:13
Hola:

Necesito hacer una vista que extraiga datos del una tabla de SQL, lo he intentado con @dbcolumn, pero no me trae ninguna informacion.
Agradezco su ayuda
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Vista en Obc

Publicado por Pedro Meza (89 intervenciones) el 16/03/2005 19:21:24
@Dbcolumn y @dblokup no funcionan en vistas
te recomiendo que crees un formulario en notes con los campos de tu tabla en SQL y luego creas un Lotus Script que exporte los registros a Notes
sobre el formulario, luego la vista la haces sobre el formulario.
te mando un código en LS para conectarse a cualquier base de datos
por ODBC

Option Public
Uselsx "*LSXODBC"

Sub conexion(sql As String,dsn As String,us As String,pw As String,doc As notesdocument)
On Error Goto errh

Dim conn As ODBCConnection
Dim qry As ODBCQuery
Dim rs As ODBCResultSet
Dim newdoc As NotesDocument
Dim s As New notessession
Dim db As notesdatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument



Set db = s.currentdatabase
Set conn = New ODBCConnection
Set qry = New ODBCQuery
Set rs = New ODBCResultSet

conn.SilentMode = True ' esto es para que no aparesca la confirmacion del odbc por pantalla
conn.ConnectTo dsn,us,pw
qry.SQL = sql
Set qry.Connection = conn
Set rs.Query = qry
If rs.Execute Then
If rs.IsEndOfData Then
Call Doc.ReplaceItemValue("Flag","1") ' indica que no se encontro el codigo
Exit Sub
End If
Call rs.FirstRow



While Not rs.IsEndOfData
con rs.GETValue(1) capturas el primer campo y asi tambien los demas
......aqui lo que quieras hacer....

rs.movenext
Wend

Exit Sub
errh:
Msgbox Erl() & ": " & Error()
Exit Sub
End Sub


SUERTE!!!

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar