Lotus Notes - Conectar a SQL SERVER --

   
Vista:

Conectar a SQL SERVER --

Publicado por Ra (1 intervención) el 15/05/2009 13:57:14
Buenas tardes,
Intento conectarme a SQL Server importando en el Globals del formulario LSXODBC y usando las clases ODCBConnecction, ODBCQuery...
El origen de datos ODBC es correcto, ya que las INSERT y UPDATE funcionan correctamente, es la SELECT la que no consigo que funcione. Lo quiero para ir importando documentos de una tabla y creándolos en Notes.
Pero no sé porqué la SELECT no me devuelve nada.

El código resumido es éste:
///
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("OrigenODBC")
qry.SQL = "SELECT * FROM TABLA1"
result.Execute

If result.IsResultSetAvailable Then

Do
result.NextRow
cod= result.GetValue("CODIGO", cod)
Set doc = db.CreateDocument
doc.Form = "Formulario1"
doc.campo1 = cod
Call doc.Save( True, True )
Loop Until result.IsEndOfData

result.Close(DB_CLOSE)
Else
Messagebox "error"
End If
///

¿Alguien puede ayudarme?
Muchísimas gracias.
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:Conectar a SQL SERVER --

Publicado por Liza (1 intervención) el 11/03/2010 18:47:56
Intenta con algo así!!!

Set qry.Connection = con

connectTo= True

sql = |select * from | & TABLE

query.SQL = sql
Set result.Query = query

If result.Execute() Then

Else

End If

espero te sirva
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