Autor Thema: Notes to SQL  (Gelesen 1781 mal)

Offline kruemelmaus

  • Frischling
  • *
  • Beiträge: 22
Notes to SQL
« am: 11.09.09 - 09:06:57 »
Hallo zusammen,

mal eine grundsätzliche Frage, ist es möglich per Button in Notes
Daten aus einen Notesdokument in eine SQL Table zu "pumpen"

Gruß

Oliver

Offline ZaLudtske

  • Senior Mitglied
  • ****
  • Beiträge: 319
  • Geschlecht: Männlich
  • carpe diem
Re: Notes to SQL
« Antwort #1 am: 11.09.09 - 09:15:29 »
Da gibt es mehre Möglichkeiten schau mal unter LSDO oder LEI nach.

HTH

Rainer

Rainer Zaske

MCSD - C#

Offline ata

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re: Notes to SQL
« Antwort #2 am: 11.09.09 - 11:06:47 »
... grundsätzlich auf jeden Fall ja - alles was sich per SQL-Statement absetzen lässt...

Toni
Grüßle Toni :)

Offline Raymond

  • Aktives Mitglied
  • ***
  • Beiträge: 111
  • Geschlecht: Männlich
  • who notes?
    • Who Notes
Re: Notes to SQL
« Antwort #3 am: 11.11.09 - 16:41:57 »
Schau mal die ODBCConnection und die ODBCQuery Klasse an. Damit kannst du via ODBC auf SQL Server zugreifen und SQL Statements absetzen... Bei diesem Ansatz ist einfach wichtig, dass die ODBC Data Source auf der Maschine konfiguriert ist, wo du den Code laufen lässt.

Beispiel aus der Designer-Hilfe:


The following agent creates a query that retrieves all the rows in the STUDENTS table of the ATDB data source.
Code
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"
  result.Execute
  msg = "Student names:" & Chr(10)
  If result.IsResultSetAvailable Then
    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 for STUDENTS"
    Exit Sub
  End If
  con.Disconnect
End Sub

Gruss
Ray
aktuelle Versionen:
Lotus Notes/Domino 7
Lotus Notes/Domino 8.5

dabei seit Lotus Notes 4.x

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz