Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fehler beim kompilieren
Autor: marvin2k
Datum: 26.10.06 14:16
Die Stelle an der der Kompiler die Fehlermeldung ausspuckt habe ich rot markiert. Ich hoffe ihr könnt mir helfen. Ich weis leider nicht mehr weiter   it Private mDBSHDP As Database 'Connection Access Private msHDPFile As String 'INI-File HDP Private mstrIniFile As String 'IniFileName aus Regestry Private iFlagDBS As Integer '1 Kein Zugriff auf Access Private iNummer As Integer '0 10 Stellige Patnr 1 20 Stellige Patnum Private msDatenQuelle As String 'DatenQuelle Private msUser As String 'Benutzer Private msPasswd As String 'Passwort '----------------------------------------- ' Init Class '----------------------------------------- Private Sub Class_Initialize() Dim rc As Integer Dim sCon As String Set mDBSHDP = Nothing mstrIniFile = "" msHDPFile = "" msDatenQuelle = "" iFlagDBS = 0 rc = iGetIniFileName() 'IniFileName aus Reg If (rc) Then Exit Sub rc = iLeseIniFile() 'Einträge aus INI-File lesen If (rc) Then MsgBox "Fehler beim Lesen Inifile=" & mstrIniFile, vbOKOnly, "Fehler" Exit Sub End If If (msDatenQuelle <> "") Then On Error GoTo FehlerOpenDBS sCon = "ODBC;DSN=" & msDatenQuelle & ";uid=" & msUser & ";pwd=" & msPasswd Set mDBSHDP = OpenDatabase("", False, False, sCon) End If Exit Sub FehlerOpenDBS: MsgBox Err.Number & " " & Err.Description, vbOKOnly, "Fehler" iFlagDBS = 1 Resume Next End Sub '----------------------------------------- ' Terminate Class '----------------------------------------- Private Sub Class_Terminate() On Error GoTo fehler If (iFlagDBS = 0) Then mDBSHDP.Close Exit Sub fehler: Resume Next End Sub '------------------------------------------------------- ' ' Routine HDP_HoleAktuellenPatient ' ' Funktion Liefert aktuelle Patientennummer ' ' Parameter: ' Output: Patientennummer als String ' ' Returncode True wenn erfolgreich ' '------------------------------------------------------- Public Function HDP_HoleAktuellenPatient(ByRef Patnr As Long, _ ByRef Patnum As String) As Boolean Dim strErg As String Dim lng As Long Dim i As Integer Dim Flag As Integer Dim c As String Dim sPatnum As String Dim SQL As String Dim RS As Recordset HDP_HoleAktuellenPatient = False strErg = Space$(300) Call GetPrivateProfileString("PRDB", "PRDB_LETZTEPATNUM", "", strErg, 255, msHDPFile) strErg = Trim$(strErg) sPatnum = "" For i = 1 To Len(strErg) c = Mid(strErg, i, 1) If (c >= "0") Then sPatnum = sPatnum & c Next i If (sPatnum = "") Then Exit Function If (iFlagDBS) Then Exit Function On Error GoTo fehler SQL = "select patnr,patnum from patn_s where patnum = '" & sPatnum & "'" Set RS = mDBSHDP.OpenRecordset(SQL, dbOpenSnapshot) RS.MoveFirst Do Until RS.EOF Patnr = RS!Patnr Patnum = RS!Patnum RS.MoveNext Loop RS.Close If (Patnr = 0) Then Exit Function HDP_HoleAktuellenPatient = True Exit Function fehler: Resume Next End Function

Fehler beim kompilieren	1.633	marvin2k	25.10.06 14:12
Re: Fehler beim kompilieren	1.056	Martoeng	25.10.06 14:36
Re: Fehler beim kompilieren	939	marvin2k	25.10.06 14:44
Re: Fehler beim kompilieren	918	marvin2k	25.10.06 14:45
Re: Fehler beim kompilieren	940	Martoeng	26.10.06 01:16
Re: Fehler beim kompilieren	979	marvin2k	26.10.06 08:47
Re: Fehler beim kompilieren	988	vbtricks	26.10.06 14:04
Re: Fehler beim kompilieren	954	marvin2k	26.10.06 14:16
Re: Fehler beim kompilieren	973	vbtricks	26.10.06 15:21
Re: Fehler beim kompilieren	868	marvin2k	26.10.06 15:55
Re: Fehler beim kompilieren	979	Martoeng	26.10.06 18:20
Re: Fehler beim kompilieren	916	wb-soft	26.10.06 18:07
Re: Fehler beim kompilieren	953	marvin2k	27.10.06 09:41
Re: Fehler beim kompilieren	1.014	marvin2k	27.10.06 10:30

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