Conexion de Lotus a Access
Es que tengo un problema, ya que me gustaría mandar e-mails desde lotus automáticamente, pero necesito conectarlos con una base de datos hecha en access xp, ya que la info que se va a mandar se toma de ahí, tengo instalado LotusNotes R5.
Te agradececiria tu pronta respuesta
Te agradececiria tu pronta respuesta
1 Respuesta
Respuesta de e6967712
1
Por lo que veo, necesitas comunicar dos bases de datos para después enviar correos.
La base de toda comunicación de toda la vida han sido los ODBCs vía SQL.
Por lo tanto necesitas dos drivers ODBC: NotesSQL 3 y ODBC de Access.
El ODBC de Notes SQL lo puedes descargar desde la web :
http://www14.software.ibm.com/webapp/download/preconfig.jsp?id=2003-07-03+03%3A31%3A42.005783R&S_TACT=104AH%20W42&S_CMP=&s=
Los manuales del ODBC en:
http://www-10.lotus.com/ldd/notesua.nsf/0/94e14b09320416c7852569df005a97c9?OpenDocument
Más info en:
http://www.google.es/search?q=cache:eHrRad-k9qMJ:www.mcpressonline.com/mc/1%40169.XSP1bqhtJ7n.0%40.214a2c5d+notessql+3+download&hl=es
Acuérdate que Lotus usa bases de datos no relacionales, por lo tanto este ODBC es un tanto especial.
Segun la dirección de la comunicación deberas utilizar diferentes métodos.
Por ejemplo desde algun agente en LotusScript como el siguiente:
Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim defaultQuery As String
Sub Postopen(Source As Notesuiview)
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
defaultQuery = "SELECT * FROM STUDENTS"
qry.SQL = defaultQuery
End Sub
Sub Click(Source As Button)
Dim inputSQL As String
inputSQL = Inputbox("Defaults to: " & defaultQuery, _
"SQL statement", qry.SQL)
If inputSQL = "" Then inputSQL = defaultSQL
qry.SQL = inputSQL
End Sub
Sub Click(Source As Button)
Messagebox qry.SQL,, "SQL statement"
End Sub
Sub Click(Source As Button)
Dim firstName As String
Dim lastName As String
Dim msg As String
con.ConnectTo("ATDB")
result.Execute
If result.IsResultSetAvailable Then
msg = "Student names:" & Chr(10)
Do
result.NextRow
firstName = result.GetValue("FIRSTNAME", _
firstName)
lastName = result.GetValue("LASTNAME", _
lastName)
msg = msg & Chr(10) & firstName & " " & _
lastName
Loop Until result.IsEndOfData
Messagebox msg,, "Student names"
result.Close(DB_CLOSE)
Else
Messagebox "Cannot get result set"
Exit Sub
End If
con.Disconnect
End Sub
La base de toda comunicación de toda la vida han sido los ODBCs vía SQL.
Por lo tanto necesitas dos drivers ODBC: NotesSQL 3 y ODBC de Access.
El ODBC de Notes SQL lo puedes descargar desde la web :
http://www14.software.ibm.com/webapp/download/preconfig.jsp?id=2003-07-03+03%3A31%3A42.005783R&S_TACT=104AH%20W42&S_CMP=&s=
Los manuales del ODBC en:
http://www-10.lotus.com/ldd/notesua.nsf/0/94e14b09320416c7852569df005a97c9?OpenDocument
Más info en:
http://www.google.es/search?q=cache:eHrRad-k9qMJ:www.mcpressonline.com/mc/1%40169.XSP1bqhtJ7n.0%40.214a2c5d+notessql+3+download&hl=es
Acuérdate que Lotus usa bases de datos no relacionales, por lo tanto este ODBC es un tanto especial.
Segun la dirección de la comunicación deberas utilizar diferentes métodos.
Por ejemplo desde algun agente en LotusScript como el siguiente:
Uselsx "*LSXODBC"
Dim con As ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim defaultQuery As String
Sub Postopen(Source As Notesuiview)
Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
defaultQuery = "SELECT * FROM STUDENTS"
qry.SQL = defaultQuery
End Sub
Sub Click(Source As Button)
Dim inputSQL As String
inputSQL = Inputbox("Defaults to: " & defaultQuery, _
"SQL statement", qry.SQL)
If inputSQL = "" Then inputSQL = defaultSQL
qry.SQL = inputSQL
End Sub
Sub Click(Source As Button)
Messagebox qry.SQL,, "SQL statement"
End Sub
Sub Click(Source As Button)
Dim firstName As String
Dim lastName As String
Dim msg As String
con.ConnectTo("ATDB")
result.Execute
If result.IsResultSetAvailable Then
msg = "Student names:" & Chr(10)
Do
result.NextRow
firstName = result.GetValue("FIRSTNAME", _
firstName)
lastName = result.GetValue("LASTNAME", _
lastName)
msg = msg & Chr(10) & firstName & " " & _
lastName
Loop Until result.IsEndOfData
Messagebox msg,, "Student names"
result.Close(DB_CLOSE)
Else
Messagebox "Cannot get result set"
Exit Sub
End If
con.Disconnect
End Sub
Mirate esta otra respuesta que hice:
Hola estoy aprendiendo a desarrollar en lotus y tengo una preguntica, como hago en ODBCResultSet class para el método LastRow y PrevRow que me traiga los últimos 7 registros de mi BD de Oracle, ya tengo mi conexión y me traigo data perfectamente, pero no se como decirle que me traiga los últimos 7 registros
Re: una preguntica de LastRow y PrevRow (29/05/04)
En la ayuda del Notes lo tienes todo.
1. Abres el canal ODBC con la DSN
2.Creas la query en SQL
3.Accedes a la última fila con el método lastrow
4.Creas un bucle (For) que cuente hasta 7
5. Coleptas el resultado de la fila
6. Pasas a la prevrow
7.Cierras canal
Ejemplo:
Uselsx "*LSXODBC"
Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
result.Execute
msg = "Student names:" & Chr(10)
result.LastRow
firstName = result.GetValue("FIRSTNAME", firstName)
lastName = result.GetValue("LASTNAME", lastName)
msg = msg & Chr(10) & firstName & " " & lastName
Do
result.PrevRow
firstName = result.GetValue("FIRSTNAME", firstName)
lastName = result.GetValue("LASTNAME", lastName)
msg = msg & Chr(10) & firstName & " " & lastName
Loop Until result.IsBeginOfData
Messagebox msg,, "Student Names"
result.Close(DB_CLOSE)
con.Disconnect
End Sub
Hola estoy aprendiendo a desarrollar en lotus y tengo una preguntica, como hago en ODBCResultSet class para el método LastRow y PrevRow que me traiga los últimos 7 registros de mi BD de Oracle, ya tengo mi conexión y me traigo data perfectamente, pero no se como decirle que me traiga los últimos 7 registros
Re: una preguntica de LastRow y PrevRow (29/05/04)
En la ayuda del Notes lo tienes todo.
1. Abres el canal ODBC con la DSN
2.Creas la query en SQL
3.Accedes a la última fila con el método lastrow
4.Creas un bucle (For) que cuente hasta 7
5. Coleptas el resultado de la fila
6. Pasas a la prevrow
7.Cierras canal
Ejemplo:
Uselsx "*LSXODBC"
Sub Initialize
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("ATDB")
qry.SQL = "SELECT * FROM STUDENTS ORDER BY LASTNAME"
result.Execute
msg = "Student names:" & Chr(10)
result.LastRow
firstName = result.GetValue("FIRSTNAME", firstName)
lastName = result.GetValue("LASTNAME", lastName)
msg = msg & Chr(10) & firstName & " " & lastName
Do
result.PrevRow
firstName = result.GetValue("FIRSTNAME", firstName)
lastName = result.GetValue("LASTNAME", lastName)
msg = msg & Chr(10) & firstName & " " & lastName
Loop Until result.IsBeginOfData
Messagebox msg,, "Student Names"
result.Close(DB_CLOSE)
con.Disconnect
End Sub
