Domino 9 und frühere Versionen > Entwicklung
ODBC Live-Zugriff realisieren
HeiCore:
Hi!
Wie kann ich einen ODBC Live-Zugriff realisieren?
DECS funktioniert nicht wie gewünscht.
Was mache ich falsch?
Danke für die Hilfe.
Heicore
Don Pasquale:
Hallo Hei-Core,
was ist ein Live-Zugriff ?
Poste doch mal Deinen Code ?
Ciao
Don Pasquale
HeiCore:
Habe eine Maske in Notes. Diese Felder finden sich in einer SQL-Tabelle wieder. Ich möchte bei Setzung eines Flags, durch z.B. berechnete Felder einen Zugriff auf die SQL-Version per ODBC.
Ich möchte einen Austausch per Text-File vermeiden, habe nicht wirklich Script-Erfahrung.
DECS bekomme ich nicht zum laufen.
Es sollte doch möglich sein, Felder einzubinden, die per ODBC auf den SQL-Server greifen?
Lesend und schreibend.
Vielen Dank für Eure Mühe!!
Don Pasquale:
Hier ein Beispiel für einen lesenden zugriff auf eine SQL DB
Dim DSN As String
Dim USER As String
Dim PASSW As String
DSN = "NAME der ODBC Verbindung"
PASSW = "Passwort"
USER ="NAme"
Dim SQL As String
Dim SQL_NOTIZ As String
SQL_NOTIZ = "SELECT MAX (NOTIZ_ID) AS ID FROM FIRMENAKTE_NOTIZ"
Dim Con As New ODBCConnection
RetCode% = Con.ConnectTo( DSN, USER, PASSW)
If RetCode% <>-1 Then
Messagebox " Keine Verbindung zur Datenbank" & Chr$(10) & "Überprüfen Sie bitte den DSN Wert im Administrator Konfigurationsdokument" & Chr$(10)
Else
Dim Qry As New ODBCQuery
Set Qry.Connection = Con
Qry.SQL = SQL_NOTIZ
Print qry.SQL
Dim res As New ODBCResultSet
Set Res.Query = Qry
Res.Execute
RetCode% = Res.FirstRow
If RetCode% =True Then
getNewNotizID = Cint(Res.GetValue( "ID" )) + 1
End If
RetCode% = Res.Close( DB_CLOSE )
RetCode% = Con.Disconnect
End If
Ciao
Don Pasquale
HeiCore:
Und wie schreibe ich dann nach Änderung in einem Feld?
Navigation
[0] Themen-Index
[#] Nächste Seite
Zur normalen Ansicht wechseln