tag:blogger.com,1999:blog-7276932864923291634Thu, 04 Mar 2010 10:19:42 +0000Sammlung von Codeschnipseln zu Programmierproblemen.<br>Daten aus fremden Quellen unterliegen deren Rechten.<br> Siehe auch: Disclaimer auf www.computer-schroeder.dehttp://blog.computer-schroeder.de/index.htmnoreply@blogger.com (Schröder)Blogger77125tag:blogger.com,1999:blog-7276932864923291634.post-2199157498346823069Sat, 28 Nov 2009 00:05:00 +00002009-11-28T02:37:56.782+01:00Die Fehlerbehandlung soll so unaufdringlich wie möglich sein und vom eigentlichen Code möglichst nicht ablenken. Zugleich soll sie aber auch den Ort des Fehlers liefern.Als zusätzliches Feature wird unterschieden zwischen "erwarteten" und anderen Fehlern. Erwartet sind Anwenderfehler udgl., die der Programmierer selbst mit Err.Raise wirft bzw. die in der Fehlerroutine speziell abgefangen werden. http://blog.computer-schroeder.de/2009/11/fehlerbehandlung-vba.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-5391432767743514271Tue, 29 Sep 2009 19:57:00 +00002010-01-31T19:29:40.507+01:00FehlerAccessVBAADPSQL ServerSQLSystem: Access 2003 (ADP mit SQL Server 2005)Dies ist ein Hinweis auf eine fehlerhafte SQL-Anweisung.Bei mir entstand der Fehler, als die SQL-Anweisung zusammengestückelt wurde:DoCmd.RunSQL "INSERT INTO myTAB (Wert) VALUES (" & txtFeld & ")"Alles geht gut, wenn in txtFeld eine ganze Zahl steht. Steht aber eine Kommazahl (z.B. 0,5) drin, dann erscheint in der VALUES-Liste das  Komma, was bedeutet:http://blog.computer-schroeder.de/2009/09/fehler-8155-keine-spalte-wurde-fur.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-5838770933033145784Tue, 11 Aug 2009 21:09:00 +00002009-08-11T23:11:23.878+02:00PHPFehlerIISVerbindungASP.NETADPBerechtigungConnectionSQL ServerSQLFrontendDer SQL Server 2005 erlaubt einer Web-Lösung (hier PHP) keinen Zugriff auf eine DB-Tabelle? Hier ein Beispiel für eine Fehlermeldung:Warning: mssql_query() [function.mssql-query]: message: Die SELECT-Berechtigung wurde für das 'xxxx'-Objekt, 'yyyy'-Datenbank, 'dbo'-Schema verweigert. (severity 14) in C:\www\zzzz.php on line 26Lösung:Es gibt den speziellen Datenbankbenutzer *.IUSR_* (* für lokale http://blog.computer-schroeder.de/2009/08/web-zugriff-auf-sql-server.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-3817180610078651029Tue, 23 Jun 2009 17:30:00 +00002009-06-23T20:10:49.062+02:00FormularControlAccessVBAReportKombinationsfeldListboxSQLFrontendBei Änderungen an der Datenbankstruktur sollen auch Tabellen- und Feldnamen geändert werden. In Modulen geht das einfach durch STRG + H (Ersetzen). Die in Access-Objekten eingebetteten SQL-Anweisungen werden so nicht erwischt. Hierzu folgende Funktion, die zweckmäßigerweise aus einem Makro (s. Abb.) aufgerufen werden kann.Argumente:oldString: das alte Textstück (z.B. "Länderschlüssel")newString: http://blog.computer-schroeder.de/2009/06/in-datenherkunft-von-formularen-und.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-994755302848614706Tue, 02 Jun 2009 14:02:00 +00002009-06-04T11:31:20.728+02:00FormularAccessVBARequeryDatensatzDonkarl.com 4.5 empfiehlt die Bookmark-Methode:Me.Painting = False 'Bildschirmflackern reduzieren... 'SQL o.a.Dim v 'Variantv = Me.Recordset.BookmarkMe.Requery 'Requery zeigt normal den ersten Datensatz anMe.Bookmark = vMe.Painting = TrueDie Suchmethode:Me.Painting = False 'Bildschirmflackern reduzieren ... 'SQL o.a.'nach Löschbefehl: auf nächste Zeile'DoCmd.GoToRecord , , acNextDim pos As http://blog.computer-schroeder.de/2009/06/access-formular-beim-datensatz-bleiben.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-3877351922221493766Sun, 10 May 2009 19:08:00 +00002009-05-10T21:21:25.232+02:00FehlerAccessVBAExcelWordRegistryInstallationDie Lösungauf: http://www.herber.de/forum/archiv/716to720/t716089.htmvon: Christoph DümmenGeschrieben am: 07.01.2006 16:05:30thanks to Tony Jollans in microsoft.public.word.vba.generalThis sounds like corruption. If reinstalling Office doesn't help, trydeleting the VBA key in the registry (which is left unchanged by(re)installation) ... HKEY_CURRENT_USER\Software\Microsoft\VBAIf you delete this http://blog.computer-schroeder.de/2009/05/vba-in-ms-office-bringt-unerwarteter.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-3715889047585551449Fri, 03 Apr 2009 13:51:00 +00002009-04-03T15:51:42.846+02:00AccessVBAVBFunctionExcelWordPublic Function PosHsNrInStrasse(Strasse As String) As Integer     Dim Zaehler     As Integer     Dim Laenge      As Integer     Dim X           As String     Dim Ergebnis    As String         Laenge = Len(Strasse)     PosHsNrInStrasse = 0 'von rechts nach links durch Strassennamen gehen 'bis auf die 3 linken Zeichen damit Strassen, die mit Zahl beginnen '(z.B. 3. Terwestenweg) nicht als http://blog.computer-schroeder.de/2009/04/feldinhalt-aufteilen-zb-strae-und.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-5202958017232000037Wed, 01 Apr 2009 17:56:00 +00002009-04-01T19:58:54.361+02:00TextmarkeAccessVBADokumentvorlageVBBookmarkWordfilesys:       Filesystemobjekt (vorher angelegt)wdApp:         Word.Application-Objekt (vorher angelegt)TEMPLATENAME:  Dateiname (inkl. Pfad) einer .DOT-DateiSTRINGCONTROL: Textbox o.a., enthält Name der Textmarke... 'existiert die Dokumentvorlage?      Dim bEx As Boolean    On Error GoTo Er    If Not filesys.FileExists(TEMPLATENAME) Then        MsgBox "Die Dokumentvorlage " & TEMPLATENAME & " http://blog.computer-schroeder.de/2009/04/aus-vba-word-dokument-erzeugen-und.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-7634478591297102889Wed, 01 Apr 2009 17:36:00 +00002009-04-01T19:36:54.249+02:00AccessVBAVBListboxPublic Sub SelectedFromStringToListBox(ByVal gesamtString As String, Liste As ListBox)    On Error GoTo Er    Dim v    Dim i As Integer    Dim j As Integer    With Liste        For Each v In .ItemsSelected            .Selected(v) = False        Next v        v = Split(gesamtString, "; ")        For i = 0 To UBound(v)            For j = 0 To .ListCount - 1                If v(i) = .ItemData(j) http://blog.computer-schroeder.de/2009/04/die-ausgewahlten-items-einer-listbox-in.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-251714624843895989Mon, 19 Jan 2009 18:22:00 +00002009-11-28T03:15:56.236+01:00AccessVBAADPSQL ServerDas Problem taucht in Accessprojekten (2002/2003) auf Basis SQL Server 2005 auf. Die Datenherkunft darf in der ORDER BY-Klausel keine Bezeichnungen wie "XY.ID" enthalten. Erlaubt sind in dieser Klausel nur reine unqualifizierte Feldnamen wie "ID".Hilfen:Bearbeite die ORDER BY-Klausel für diesen Zweck in der SQL-Box, nicht per Abfrageassistent (er fügt den Tabellennamen bzw. -alias wieder zu). http://blog.computer-schroeder.de/2009/01/unterformular-zeigt-leeres-rechteck.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-7941388213111410866Tue, 16 Dec 2008 17:54:00 +00002009-01-10T19:43:11.461+01:00DTPickerAccessVBADatumeingabeValue kann nur eingegeben werden, wenn CheckBox auf True steht.Value = Empty für das aktuelle Datum (als Voreinstellungswert?).DTPicker1.CheckBox=False läßt die doofe Checkbox schließlich verschwinden.(Achtung, die CheckBox-Eigenschaft kommt nicht in der Auswahlliste vor!)---------------------------------------------------------Praktische Anwendung:a) DTPicker1 an kein Feld der Tabelle binden!b) http://blog.computer-schroeder.de/2008/12/dtpicker-zur-datumeingabe.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-2598236003393781120Tue, 28 Oct 2008 21:33:00 +00002008-10-28T22:38:10.518+01:00JavaScriptAppletAudioJavaSoundHTMLKlang<html><head><title>AudioBox Sample</title></head><body><applet code="AudioBox.class" name="AudioBox" width=5 height=5><param name="ab0" value="sonar.au#babam.au#"></applet><p>Press a button to play a sound.  Sounds will composite when overlapped.<form>   <input type="button" value="Sonar" onClick="AudioBox.playSoundtrack('sonar.au')">   <input type="button" value="Babam" onClick="http://blog.computer-schroeder.de/2008/10/audio-applet_28.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-7039326546410568004Mon, 29 Sep 2008 09:58:00 +00002008-09-29T12:01:55.090+02:00AccessVBAReportDim view As Long, merk As StringPrivate Sub btnAnsicht_Click()'Druckvorschau oder Ausdruck?  If Me!btnAnsicht Then    Me!btnAnsicht.Caption = "Ansicht"    view = acPreview  Else    Me!btnAnsicht.Caption = "Drucken"    view = acNormal  End IfEnd SubPrivate Sub btnDruck_Click()  DoCmd.OpenReport "rptTest", viewEnd SubPrivate Sub kmbDrucker_AfterUpdate()'Ein Drucker wurde gewähltDim tmp As String  http://blog.computer-schroeder.de/2008/09/drucken-mit-vba.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-2322029622201446278Wed, 13 Aug 2008 13:43:00 +00002008-08-13T20:53:29.951+02:00AccessVBAVerbindungADPConnectionSQL ServerFolgende VBA-Prozedur weist dem ADP eine neue Verbindung zu:Public Sub OpenADPConnection(ByVal strUser As String, ByVal strPassword As String)Const strCONNECTION_STRING As String ="Provider=SQLOLEDB;Data Source=deinServer;Initial Catalog=deineDatenbank"CurrentProject.OpenConnection strCONNECTION_STRING, strUser, strPasswordIf Not CurrentProject.IsConnected Then MsgBox "Es konnte keine http://blog.computer-schroeder.de/2008/08/verbindung-eines-adp-zur-laufzeit_13.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-4081462327544701521Fri, 08 Aug 2008 17:18:00 +00002008-08-08T19:20:23.783+02:00Option Compare DatabaseOption Explicit'Define Special Folder ConstantsPublic Const CSIDL_PROGRAMS = 2 'Program Groups FolderPublic Const CSIDL_PERSONAL = 5 'Personal Documents FolderPublic Const CSIDL_FAVORITES = 6 'Favorites FolderPublic Const CSIDL_STARTUP = 7 'Startup Group FolderPublic Const CSIDL_RECENT = 8http://blog.computer-schroeder.de/2008/08/spezialordner-systemordner_1881.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-4640251874707980262Sun, 03 Aug 2008 13:39:00 +00002008-08-03T15:40:42.581+02:00DatumKonvertierenSQL ServerWandle das heutige Datum in Text um:CONVERT(nvarchar, getdate(), x)Dabei ergibt sich je nach x:100: Jul 31 2008 11:49PM101: 07/31/2008102: 2008.07.31103: 31/07/2008104: 31.7.2008110: 07-31-2008112: 20080731120: 2008-07-31 23:48:13http://blog.computer-schroeder.de/2008/08/sql-server-convert-datetime_03.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-1869120922810015835Sun, 13 Jul 2008 16:19:00 +00002008-07-14T19:52:57.026+02:00myUser.IP = Request.UserHostAddressMulticast-Adressen: Dim lastServerIP As String = "" Dim adapters As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces() Dim adapter As NetworkInterface 'Ermittle die IP-Adressen des Rechners For Each adapter In adapters Dim adapterProperties As IPInterfaceProperties = adapter.GetIPProperties() Dim multiCast As http://blog.computer-schroeder.de/2008/07/eigene-ip-adresse-ermitteln.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-2277717241358802104Mon, 23 Jun 2008 19:51:00 +00002008-06-23T21:58:43.615+02:00WindowsUpdateRegistryHKEY_LOCAL_MACHINE\ Software\ Policies\ Microsoft\ Windows\ WindowsUpdate\ AUEinträge:RebootRelaunchTimeoutEnabled = 1RebootRelaunchTimeout = 720(720 = 12 Stunden, beliebige Werte mögl.)http://blog.computer-schroeder.de/2008/06/neustart-nach-windows-update-verlngern.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-7949226579471759476Thu, 29 May 2008 14:52:00 +00002008-05-29T17:05:41.529+02:00''' <summary>''' Stammdaten zu allen möglichen Xxxxxs''' </summary>''' <remarks>ID ist XxxxxColor</remarks>Public Class Xxxxxs   ''' <summary>   ''' Stammdaten zu einer möglichen Xxxxx   ''' </summary>   ''' <remarks>nicht zur externen Verwendung bestimmt - Zugriff nur über Class Xxxxxs</remarks>   Public NotInheritable Class Xxxxx      Private mImageName As String      ''' <summary>      ''' http://blog.computer-schroeder.de/2008/05/stammdaten-klasse.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-4431714384550593210Fri, 18 Apr 2008 15:19:00 +00002008-04-18T17:30:45.150+02:00Bekannt sind der NameSpace, der Name der enthaltenden Assembly und derName der Klasse(n). Die jeweiligen Klasse realisieren ganz verschiedeneDinge (Objekte), doch muß eine einheitliche Schnittstelle eingehaltenwerden. Die Anwendung benötigt nur die drei Namen als String für alleZugriffe.a) Für alle Objekte verbindliche Schnittstelle:Public Interface IInterfaceAllg   Property Key() As String   http://blog.computer-schroeder.de/2008/04/createinstance-unbekannte-objekte.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-8122837363428614415Sat, 01 Mar 2008 19:20:00 +00002008-03-02T14:06:47.354+01:00ColorSystemfarbeAccessWindowsFarbe-2147483647 Desktop (background)-2147483636 Hintergrund der Anwendung (appworkspace)-2147483643 Fenster (window)-2147483642 Fensterrahmen (windowframe)-2147483638 Rahmen akt. Fenster (activeborder)-2147483637 Rahmen eines inaktiven Fensters (inactiveborder)-2147483640 Fenstertext (windowtext)-2147483646 Titelleiste akt. Fenster(activecaption)-2147483645http://blog.computer-schroeder.de/2008/03/access-systemfarben.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-698693190315640051Wed, 23 Jan 2008 13:03:00 +00002009-01-31T21:38:16.880+01:00MsgBoxVBASubFunctionoptionalPublic Function MsgBox(strText As String, _ Optional intSymbol As VbMsgBoxStyle= vbOKOnly, _ Optional strTitel As String = "Anwendung") As VbMsgBoxResult If Left(strText, 6) = "Fehler" And IsMissing(strTitel) Then MsgBox = VBA.MsgBox(strText, intSymbol, strTitel & " - Fehlermitteilung") Else MsgBox = VBA.MsgBox(strText, intSymbol, strTitel) End IfEnd FunctionHinweise:Den Standardwert http://blog.computer-schroeder.de/2008/01/msgbox-berschreiben.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-1704733007771876493Wed, 16 Jan 2008 13:13:00 +00002008-01-18T14:53:40.242+01:00ProtokollEventLogVBLogIn *.vb:''' <summary>''' Gibt Meldungen in die Ereignisanzeige (Anwendung) aus''' </summary>''' <param name="message">Die Nachricht</param>''' <param name="type ">optionaler Parameter</param>Private Sub WriteEventLog(ByVal message As String, Optional ByVal type As EventLogEntryType = EventLogEntryType.Information) Try ' Create an EventLog instance and assign its source. Dim myLog http://blog.computer-schroeder.de/2008/01/eventlog-ereignisprotokoll.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-2005020586788343920Thu, 10 Jan 2008 12:17:00 +00002008-01-10T13:18:48.823+01:00ErrorFehlerAJAXASP.NEThttp://blog.computer-schroeder.de/2008/01/ajax-10-enabled-aspnet-20-program.htmlnoreply@blogger.com (Schröder)0tag:blogger.com,1999:blog-7276932864923291634.post-1535705546258626394Fri, 21 Dec 2007 08:49:00 +00002010-03-04T11:19:42.949+01:00IISASP.NETDas Konto, welches ASP.Net ausführt, hat im .Net FW keine Berechtigung, die Metabasis zu lesen. Normalerweise wird das bei der Installation von .Net automatisch gesetzt. Leider nur, wenn dann schon die IIS installiert sind. Wenn man IIS NACH .NET installiert, muß man das manuell machen: Konsole: (als Admin? - weiß ich nicht) im Windows Verzeichnis: >> cd Microsoft.Net\Framework\v2.0.'blabla' >> http://blog.computer-schroeder.de/2007/12/fehler-beim-zugriff-auf-die-iis.htmlnoreply@blogger.com (Schröder)1