|
| |
Fortgeschrittene Programmierung| Re: Verbindung zu Oracle DB | |  | | Autor: Syca | | Datum: 04.03.02 10:50 |
| Ups sorry 
Naja schmeiss hier mal nen Beispiel rein, hoffe Du findest zurecht :
Call Oracle_connection
Dim wert As Integer
Dim zeile As Integer
Dim X As Long
Dim zeit1 As String
Dim rs As ADODB.Recordset
Dim Item As ListItem
Dim temp As String
Dim tempdate As Date
Dim KeyName As String
Dim sql As String
Screen.MousePointer = 11
wert = 0
'sql = "SELECT SSKN.TKUNDEN.adr_nr,SSKN.TKUNDEN.betrst_zab,SSKN.TKUNDEN.vorname1,SSKN.TKUNDEN.zuname1_zei1,SSKN.TKUNDEN.ort1 from SSKN.TKUNDEN where sskn.tkunden.adr_nr = 2730000299"
sql = "select sskn.tkunden.adr_nr," _
& "decode(sskn.tkunden.anr1_schl,1,'Herr',null)| |" _
& "decode(sskn.tkunden.anr1_schl,3,'Frau',null) | |" _
& "decode(sskn.tkunden.anr1_schl,6,'FIRMA',null) as Anrede1,"
sql = sql + "decode(sskn.tkunden.Titel1,null,null,sskn.tkunden.titel1 | | ' ') | |" _
& "decode(sskn.tkunden.Zus_v_zuname1,null,null,sskn.tkunden.Zus_v_zuname1 | | ' ') | |" _
& "decode(sskn.tkunden.Zuname1_zei1,null,null, sskn.tkunden.Zuname1_Zei1) | |" _
& "decode(sskn.tkunden.Zuname1_zei2,null,null, ' ' | | sskn.tkunden.Zuname1_Zei2) | |" _
& "decode(sskn.tkunden.Zus_N_Zuname1,null,null, ' ' | | sskn.tkunden.Zus_n_zuname1) as Nachname1,"
sql = sql + "decode(sskn.tkunden.anr2_schl,1,'Herr',null) ||" _
& "decode(sskn.tkunden.anr2_schl,3,'Frau',null) | |" _
& "decode(sskn.tkunden.anr2_schl,6,'FIRMA',null) as Anrede2,"
sql = sql + "decode(sskn.tkunden.Titel2,null,null,sskn.tkunden.titel2 | | ' ') | |" _
& "decode(sskn.tkunden.Zus_v_zuname2,null,null,sskn.tkunden.Zus_v_zuname2 | | ' ') | |" _
& "decode(sskn.tkunden.Zuname2_zei1,null,null,sskn.tkunden.Zuname2_Zei1) | |" _
& "decode(sskn.tkunden.Zus_N_Zuname2,null,null, ' ' | | sskn.tkunden.Zus_n_zuname2) as Nachname2,"
sql = sql + "decode(sskn.tkunden.Vorname1,null,null,sskn.tkunden.Vorname1) | |" _
& "decode(sskn.tkunden.Zus_V_Vorname1,null,null, ' ' | | sskn.tkunden.Zus_V_Vorname1) as Vorname1,"
sql = sql + "decode(sskn.tkunden.Vorname2,null,null,sskn.tkunden.Vorname2) | |" _
& "decode(sskn.tkunden.Zus_V_Vorname2,null,null, ' ' | | sskn.tkunden.Zus_V_Vorname2) as Vorname2,"
sql = sql + "decode(sskn.tkunden.adr1_erg,null,null,sskn.tkunden.adr1_erg | | ' ') | |" _
& "decode(sskn.tkunden.strasse1,null,null,sskn.tkunden.strasse1 | | ' ') | |" _
& "decode(sskn.tkunden.hsnr1,null,null,sskn.tkunden.hsnr1 | | ' ') as strasse,"
sql = sql + "decode(sskn.tkunden.plz1,null,null,sskn.tkunden.plz1 | | ' ') | |" _
& "decode(sskn.tkunden.ort1, Null, Null, sskn.tkunden.ort1) As Ort "
sql = sql + " from sskn.tkunden, sskn.tkoko where sskn.tkunden.adr_nr=sskn.tkoko.adr_nr and (sskn.tkoko.BTX_FAEHIG is not null or sskn.tkoko.KSV_HBCI_KZ is not null or sskn.tkoko.KSV_T_ONLINE_KZ is not null)and sskn.tkunden.adr_nr = 123456789"
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = conn
.CursorType = adOpenForwardOnly
.LockType = adLockReadOnly
.CacheSize = 1
.Source = sql
.CursorLocation = adUseClient
.Open sql, conn
End With | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevOutBar 4.0 
Vertikale Menüleisten
á la Outlook
Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
Sie sind aktuell nicht angemeldet.
