Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: SQL Server 2000 & ADO Abfrage
Autor: look
Datum: 03.11.04 07:59
Voraussetzung ist das der ODBC Treiber für AS400 Installiert ist z.B Client Access Über ein Formular z.B. frmLogin wird die zugangsberechtigung (Benutzer, Passwort) von der AS400 verwendet (keine eigene Benutzerverwaltung) Global IPAdresse As Variant Global Zähler As Variant Global Benutzer As Variant Global Password As Variant Function Daten() Password = frmLogin.txtPassword.Text IPAdresse = "127.0.0.1" 'IPAdresse der AS400" PROV = "provider=ibmda400;data source=" & IPAdresse & ";" Exit Function End Function Function Daten_laden() Set DBcc = New ADODB.Connection Set RScc = New ADODB.Recordset DBcc.Open PROV, Benutzer, Password RScc.CursorLocation = adUseClient RScc.Open SQL, DBcc, adOpenDynamic, adLockReadOnly End Function Private Sub cmdOK_Click() On Error GoTo Fehler Benuter = txtUserName.Text If txtUserName.Text = "" Then Msgbox " Benutzer ist Leer" exit Sub ElseIf txtPassword.Text = "" Then Msgbox " Passwort ist leer" exit Sub End If 'eine Kleine Datenbank oder Abfrage der AS400 SQL = "select * from repdbf.rpeecpp where repdbf.rpeecpp.eefacd = '80'and repdbf.rpeecpp.EEE8NB = 1031026" Daten_laden If Zähler = 1 Then frmLogin.Visible = False ElseIf Zähler > 3 Then Msgbox " Passwort oder Benutzer Falsch" exit Sub End If exit Sub Fehler: txtUserName.SetFocus Exit Sub end Sub

SQL Server 2000 & ADO Abfrage	1.026	donelonzo	01.11.04 23:18
Re: SQL Server 2000 & ADO Abfrage	750	look	02.11.04 08:38
Re: SQL Server 2000 & ADO Abfrage	699	donelonzo	02.11.04 21:50
Re: SQL Server 2000 & ADO Abfrage	868	look	03.11.04 07:59

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen