¿Qué fórmula me conecta con una tabla Access?
Create un ODBC de Access
Luego create un agente.
Parecido a éste:
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
Espero que te sirva de ayuda
Luego create un agente.
Parecido a éste:
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
Espero que te sirva de ayuda
1 Respuesta
Respuesta de e6967712
1