title image


Smiley Zähl halt die Fehleingaben hoch und brech nach einer Maximalzahl ab...




Set Con = New ADODB.Connection

Set aRS = New ADODB.Recordset

Con.CommandTimeout = 600



OK = False

For I = 1 to 3

DWHuser = InputBox("Bitte DWH User eingeben", "DWH User", "KAN10****")

DWHpw = InputBox("Bitte DWH Passwort eingeben", "DWH Passwort", "z*******")

On Error resume Next

err.Clear

Con.Open "DRIVER={Teradata};UID= " & DWHuser & ";DBCNAME=127.0.0.1;DATABASE=DWH_Table;", DWHuser, DWHpw

If err.Number = 0 then

OK = True

exit for

end if

On Error goto Er

Next I



If Not OK then

MsgBox "Das war nichts!"

Application.Quit

end if





oder wie auch immer


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: