Microsoft-Programmierer FORUM

vb net SQL Server wird nicht erkannt

von Mitglied 2 — Sat, 04 Feb 2012 08:31:nn G2T

nach der installation des SQL Servers kann ich diesen dennoch nicht per Programm im vb net code finden sobald der Server aufgerufen wird wird ein Fehler zurückgegeben Aufruf im Code im folgenden Code wird der SQL server aufgerufen ab der Zeile new sqlclient wird der sql string auf richtigkeit geprüft sobald dann die cn open ausgeführt wird stellt sich fest ob der Server verfügbar ist Sollte hier eine Fehler entstehen dann muß man über die Tools den SQL Browser starten code Public Shared Function getDataset ByVal sql As String As DataSet getDataset Try ein Dataset zurueckgeben Dim cn As New SqlClient SqlConnection cnString If Not cn State ConnectionState Open Then cn Open End If record oeffnen Dim cmd As New SqlCommand sql cn cmd CommandTimeout 3600 Dim Adapter As New SqlDataAdapter cmd Dim ds As New DataSet nur Tabellen oder Abfragen ohne parameter Adapter Fill ds sql lade ds Rueckgabe Return ds ABSCHLUSS ds Dispose Catch ex As Exception frmEmail fxLog schreiben ex Message Return Nothing End Try getDataset End Function code um den Server auf einem lokalen Rechner anzusprechen kann man mit der Serverbezeichnung local auf den eigenen Server zugreifen dann ist man nicht auf die komplizierte Namensfindung gebunden bei local wird eigentlich nur der Namen des eigenen PCs eingesetzt die app config die den Connectionstring enthält sollte wie folgt aussehen code applicationSettings VespaMail My MySettings setting name DB Connectionstring serializeAs String value Data Source local Initial Catalog meineDatenbank Trusted Connection True value setting setting name Looptimer Emails inSekunden serializeAs String value 300 value setting code
Kategorie: SQL-Server

vb net app config werte in ein Formular lesen und speichern

von Mitglied 2 — Thu, 02 Feb 2012 05:58:nn G2T

mit dem folgenden Code kann man die Benutzerwerte der app config datei im Ausgabeordner einer vb net Application zur laufzeit lesen und schreiben das Formular ist im Anhang als datei inklusive Code code Imports System Xml Public Class frmEinstellungen Region Variablen Region Variablen Region Variablen End Region Region Formular Region Formular Private Sub frmEinstellungen Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load fxLade ConfigFile End Sub Region Formular End Region Region Buttons Region Buttons Private Sub btnLoad Config Click ByVal sender As System Object ByVal e As System EventArgs Handles btnLoad Config Click fxLade ConfigFile End Sub Private Sub btnSpeichern Click ByVal sender As System Object ByVal e As System EventArgs Handles btnSpeichern Click fxSpeichern ConfigFile End Sub Region Buttons End Region Region Funktionen Region Funktionen Private Function fxLade ConfigFile As Boolean fxLade ConfigFile Try init lblStatus Text Lade app config ctlGrid Rows Clear init config Datei laden Dim strFile As String strFile My Application Info DirectoryPath amp app config Dim docXml Config As New XmlDocument docXml Config Load strFile config Datei laden Node Application ermitteln Dim nodeAppsSettings As XmlNode docXml Config GetElementsByTagName applicationSettings 0 Node Application ermitteln Loop Subnodes For Each objXmlNode As XmlNode In nodeAppsSettings FirstChild ChildNodes ctlGrid Rows Add objXmlNode Attributes 0 Value objXmlNode Attributes 1 Value objXmlNode FirstChild InnerText Next Loop Subnodes Abschluss lblStatus Text Lade app config Abschluss Catch ex As Exception MessageBox Show ex Message Me Text MessageBoxButtons OK MessageBoxIcon Error End Try Return True fxLade ConfigFile End Function Private Function fxSpeichern ConfigFile As Boolean fxSpeichern ConfigFile init lblStatus Text Speichern app config init Try config Datei laden Dim strFile As String strFile My Application Info DirectoryPath amp app config Dim docXml Config As New XmlDocument docXml Config Load strFile config Datei laden Node Application ermitteln Dim nodeAppsSettings As XmlNode docXml Config GetElementsByTagName VespaMail My MySettings ItemOf 0 Node Application ermitteln Loop GridRows For iRow As Integer 0 To ctlGrid Rows Count 1 Dim objRow As DataGridViewRow ctlGrid Rows iRow Dim sColName As String objRow Cells colName Value Suche subnode For Each objXmlNode As XmlNode In nodeAppsSettings ChildNodes Dim objXmlElement As XmlElement objXmlNode Item If objXmlNode Attributes name Value sColName Then objXmlNode FirstChild InnerText objRow Cells colWert Value Exit For End If Next Suche subnode Next Loop GridRows Speichern docXml Config Save strFile Speichern MessageBox Show Die Werte wurden gespeichert Me Text MessageBoxButtons OK MessageBoxIcon Information Catch ex As Exception MessageBox Show ex Message Me Text MessageBoxButtons OK MessageBoxIcon Error End Try Abschluss lblStatus Text Speichern app config Return True Abschluss fxSpeichern ConfigFile End Function Region Funktionen End Region End Class code
Kategorie: Net vb.net

vb net xmlDocument wird als Fehler ausgewiesen

von Mitglied 2 — Thu, 02 Feb 2012 02:21:nn G2T

in meinem importierten Code wird xmlDocument als Fehler ausgewiesen code Dim strFile As String Dim ConfigDoc As New XmlDocument Store the name of the file strFile String Format 0 ReadConfigurationAppSettingSection exe config Directory GetCurrentDirectory ToString Load the configuration file as XML document ConfigDoc Load strFile Assign the applicationSettings node Dim applicationSettingsNode As XmlNode ConfigDoc GetElementsByTagName applicationSettings 0 For reading the user settings use below Dim applicationSettingsNode As XmlNode ConfigDoc GetElementsByTagName userSettings 0 ConfigSettingsList Clear code was muß man tun lösung entweder man schreibt im Code Xml XmlDocument also mit dem Verweis zuvor oder man schreibt oben in die Datei die Importanweisung wie folgt code Imports System Xml Public Class frmEinstellungen Private m strSettingName As String Private ConfigSettingsList As New List Of clsConfigSettings Private Sub frmEinstellungen Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load bsEinstellungen DataSource My Settings End Sub Private Function fxLoad ConfigFile Try Dim strFile As String Dim ConfigDoc As New XmlDocument Store the name of the file code
Kategorie: Net vb.net

Access Daten sammeln über Email

von Mitglied 2 — Thu, 02 Feb 2012 11:46:nn G2T

ab der Version Office 2007 besteht mit Access die Möglichkeit Daten per Email zu versenden und zu sammeln dabei muß nur der Hauptrechner mit Office 2007 ausgestattet sein Die zielpersonen können auch ohne Office arbeiten http office microsoft com de de access help sammeln von daten mithilfe von e mail nachrichten HA010015427 aspx
Kategorie: Access

Hardware Probleme mit der USB 3 0 Schnittstelle im Sony Vaio

von Mitglied 2 — Thu, 02 Feb 2012 11:23:nn G2T

ich besitze ein Sony Vaio mit Windows 7 Das Notebook hat USB 2 anschlüße auf der linken Seite und einen USB 3 0 Anschluß auf der rechten Seite Doch der USB 3 0 Anschluß wird weder mit USB 2 noch USB 3 Devices oder Geräten erkannt die aktuelle Version ist 2 0 32 0 doch auf der Sony Seite ist eine neuere Version zum Download aber nur für spezielle Geräte zur Verfügung den Treiber für die Schnittstelle findet man unter http www sony de support de product VPCSA3C5E downloads RNDUSB 00250654 0042 5958
Kategorie: Hardware Sonstige Geräte

Office 2012 neue Screenshots und der blog

von Mitglied 2 — Wed, 01 Feb 2012 09:42:nn G2T

Wann kommt endlich das Office 2012 oder Office 15 und was wird anders und besser hierzu kommen erste Meldungen die man im Chip findet und im Office Blog http www chip de news Office 15 Technical Preview released Beta folgt 53017784 html sp office 15 N 0 pos 1 den Office Blog von Mr Hugh findet man unter http blogs office com b office exec archive 2012 01 30 quot office 15 quot begins technical preview aspx und den RSS Feed http blogs office com b office exec rss aspx den Blog zu Access findet man unter http blogs office com b microsoft access sowie den zugehörigen RSS Feed
Kategorie: Office

SQL Server Express

von Mitglied 2 — Wed, 01 Feb 2012 09:13:nn G2T

die SQL Server Version 2011 als Express Edition kann hier heruntergeladen werden http www microsoft com germany express products database aspx Sinnvoll sind auch die Tools an der rechten Bildschirmleiste zitat Laden Sie das kostenfreie Datenbankpaket herunter das Ihren Bedürfnissen entspricht SQL Server 2008 R2 Express SQL Server 2008 R2 Express und Verwaltungswerkzeuge SQL Server 2008 R2 Express und Advanced Services zitat für viele Programmierarbeiten ist diese Version völlig ausreichend in den Verwaltungstools ist auch das graphische Management Studio dabei Dieses empfiehlt sich für Standard Benutzer SQL Server Express mit Verwaltungstools ist eine benutzerfreundliche Version der SQL Server 174 Express Datenplattform die das grafische Verwaltungstool SQL Server Management Studio SMSS Express umfasst
Kategorie: SQL-Server

Access alle Tabellenverknüpfungen aktualisieren

von Mitglied 2 — Tue, 24 Jan 2012 01:11:nn G1T

ich möchte alle Tabellenverknüpfungen in meiner Datenbank aktualisieren leider habe ich hierfür keinen Docmd oder Runcmd gefunden der den Tabellenverknüpfungsmanager ersetzen könnte Deshalb hier die vba Code Lösung code Private Sub fxTest init Dim sConnect As String On Error Resume Next Dim objTabledef As TableDef For Each objTabledef In CurrentDb TableDefs addLog objTabledef Name objTabledef RefreshLink Next Abschluss MsgBox Fertig Module ermitteln Abschluss End Sub code
Kategorie: Access

sql server führende Nullen bei zahlen erzeugen

von Mitglied 2 — Tue, 24 Jan 2012 09:24:nn G1T

ich möchte eine integer Zahl mit 4 Vorkomma Stellen ausgeben also die Zahl mit nullen füllen in Access geht das mit dem Format befehl aber in sql server habe ich das nicht gefunden Lösung man erstellt einen String mit vielen führenden Nullen und wendet anschließend die RIGHT sText nAnzahl funktion durch Beispiel code If bServer mode True Then SQL SERVER sSQL Master sSQL Master amp RIGHT 0000 CAST sortkey AS nvarchar 4 Master AS Sortkey Ext SQL SERVER Else ACCESS sSQL Master sSQL Master amp format sortkey 0000 amp Master AS Sortkey Ext ACCESS End If code Quellen Replicate zahl http www ms office forum net forum showthread php t 172648 version mit von right rechts ermitteln http geekswithblogs net nagendraprasad archive 2009 03 19 formatting number to add leading zeros sql server aspx dann die STR function http www berndjungbluth de sqlfaq faqa7 htm STR a 6
Kategorie: SQL-Server

Energisparmodus Netwerkkarte ausschalten

von Mitglied 2 — Fri, 13 Jan 2012 09:24:nn G1T

ich hatte bei meinem Notebook das Problem dass der Energiesparmodus immer wieder von selbst startete Bei der untersuchung stellte ich fest daß die Netzwerkkarte zu den Geräten gehörte die den Wakeup verursachen könnten Zum Ausschalten der Netzwerkkarte kann man nicht über die Energiesparoptionen gehen sondern über System Hardwaremanager und dann auf die Netzwerkkarte dort die optionen und diese dann ausschalten zitat Mit den Optionen dieses Registers erweitern Sie die Fähigkeiten der Energieverwaltungs Standardoptionen Durch Hervorheben einer Option zeigen Sie dazu Hilfeinformationen an Energiesparoptionen bestimmen wann und wie der Adapter den Stromverbrauch reduziert Wake on LAN Optionen ermöglichen es Ihnen die Ereignisse festzulegen bei denen der Computer aktiviert wird Wenn die WakeOnLAN Optionen nicht aktiviert sind veranlassen Intel 174 Adapter den Computer immer das Gerät herunterzufahren wenn der Computer in der Ruhephase oder im Standby Modus ist zitat wichtig man muß die Magic Packet ausschalten Ermöglicht es dieser Verwaltungsstation den Computer aus dem Standby oder Ruhephasemodus zu aktivieren wenn ein Magic Packet direkt an den Adapter gesendet wird
Kategorie: Windows

Ruhezustand unter Vista wieder herstellen

von Mitglied 2 — Fri, 13 Jan 2012 08:39:nn G1T

ich hatte das Problem daß unter Windows Vista auf meinem Notebook der Ruhezustand nicht mehr zur Verfügung stand Hier die Lösung wie man den Ruhezustand wieder zur Verfügung bringen kann unter Start Ausführen cmd eingeben dann powercfg h on danach steht die Auswahl Ruhezustand unter Windows Energiesparoptionen wieder zur Verfügung folgende die weiteren möglichkeiten unter powercfg code Microsoft Windows Version 6 0 6002 Copyright c 2006 Microsoft Corporation Alle Rechte vorbehalten C Users Raimund ACER powercfg h on C Users Raimund ACER powercfg Ungültige Parameter Geben Sie ein um die Hilfe anzuzeigen C Users Raimund ACER powercfg POWERCFG Beschreibung Dieses Befehlszeilenprogramm ermöglicht Benutzern die Energieeinstellungen in einem System zu steuern Parameterliste LIST L Führt alle Energieschemas in der Umgebung des Benutzers auf Syntax POWERCFG LIST QUERY Q Zeigt den Inhalt des angegebenen Energieschemas an Syntax POWERCFG QUERY optional gibt das GUID des aktiven Energie schemas an das angezeigt werden soll und ist durch powercfg l verfügbar optional gibt das GUID der Untergruppe an das angezeigt werden soll Erfordert Angabe eines SCHEME GUID Wenn weder SCHEME GUID noch SUB GUID zur Verfügung stehen werden die Einstellungen des aktiven Energieschemas des aktuellen Benutzers angezeigt Wenn SUB GUID nicht angegeben ist werden alle Einstellungen in dem angegebenen Energieschema angezeigt CHANGE X Ändert einen Einstellungswert im aktuellen Energieschema Syntax POWERCFG X Gibt eine der folgenden Optionen an monitor timeout ac monitor timeout dc disk timeout ac disk timeout dc standby timeout ac standby timeout dc hibernate timeout ac hibernate timeout dc Beispiel POWERCFG Change monitor timeout ac 5 Hierdurch wird der Zeitüberschreitungswert für die Leerlaufzeit des Monitors im Netzbetrieb auf 5 Minuten festgelegt CHANGENAME Ändert den Namen eines Energieschemas und optional die Beschreibung Syntax POWERCFG CHANGENAME Falls keine Beschreibung angegeben ist wird nur der Name geändert DUPLICATESCHEME Dupliziert das angegebene Energieschema Die entstehende GUID die das neue Schema darstellt wird angezeigt Syntax POWERCFG DUPLICATESCHEME Gibt ein Schema GUID an das durch powercfg l verfügbar ist Wenn ausgelassen wird wird ein neues GUID für das duplizierte Schema erstellt DELETE D Löscht das Energieschema mit der angegebenen GUID Syntax POWERCFG DELETE das durch den LIST Parameter verfügbar ist DELETESETTING Löscht Energieeinstellungen Syntax POWERCFG DELETESETTING Gibt das GUID der Untergruppe an Gibt das Energieeinstellungs GUID an SETACTIVE S Aktiviert das angegebene Energieschema im System Syntax POWERCFG SETACTIVE Gibt die Schema GUID an GETACTIVESCHEME Ruft das momentan aktive Energieschema ab Syntax POWERCFG GETACTIVESCHEME SETACVALUEINDEX Legt einen mit einer angegebenen Energieeinstellung verbundenen Wert fest während das System mit Wechselstrom betrieben wird Syntax POWERCFG SETACVALUEINDEX Gibt die GUID eines Energieschemas an und kann mit PowerCfg L abgerufen werden Gibt eine Untergruppe der GUID einer Energie einstellung an und kann durch PowerCfg Q abgerufen werden Gibt eine individuelle GUID einer Energie einstellung an und kann mit PowerCfg Q abgerufen werden Gibt an auf welche Liste der möglichen Werte diese Energieeinstellung festgelegt wird Beispiel POWERCFG SetAcValueIndex 5 Hierdurch wird der Wechselstromwert der Energieeinstellung auf den Eintrag in der Liste der möglichen Werte für diese Energieeinstellung festgelegt SETDCVALUEINDEX Legt einen mit einer angegebenen Energieeinstellung verbundenen Wert fest während das System mit Gleichstrom betrieben wird Syntax POWERCFG SETDCVALUEINDEX Gibt die GUID eines Energieschemas an und kann mit PowerCfg L abgerufen werden Gibt eine Untergruppe der GUID einer Energie einstellung an und kann mit PowerCfg Q abgerufen werden Gibt eine individuelle GUID einer Energieeinstellung an und kann mit PowerCfg Q abgerufen werden Gibt an auf welche Liste der möglichen Werte diese Energieeinstellung festgelegt wird Beispiel POWERCFG SetDcValueIndex 5 Hierdurch wird der Gleichstromwert der Energieeinstellung auf den 5 Eintrag in der Liste der möglichen Werte für diese Energie einstellung festgelegt HIBERNATE H Aktiviert bzw deaktiviert das Feature Ruhezustand Zeitüber schreitung im Ruhezustand wird nicht von allen Systemen unterstützt Syntax POWERCFG H AVAILABLESLEEPSTATES A Meldet die im System verfügbaren Ruhezustandfunktionen Erstellt einen Bericht mit Gründen warum Ruhezustandfunktionen nicht verfügbar sind DEVICEQUERY Gibt eine Liste der Geräte zurück die die angegebenen Kriterien erfüllen Syntax POWERCFG DEVICEQUERY Definiert eines der folgenden Kriterien wake from S1 supported Gibt alle Geräte zurück die das Reaktivieren des Systems aus dem S1 Standbymodus unterstützen wake from S2 supported Gibt alle Geräte zurück die das Reaktivieren des Systems aus dem S2 Standbymodus unterstützen wake from S3 supported Gibt alle Geräte zurück die das Reaktivieren des Systems aus dem S3 Standbymodus unterstützen wake from any Gibt alle Geräte zurück die das Reaktivieren des Systems aus beliebigen Standbyzuständen unterstützen S1 supported Führt Geräte auf die den S1 Standbymodus unterstützen S2 supported Führt Geräte auf die den S2 Standbymodus unterstützen S3 supported Führt Geräte auf die den S3 Standbymodus unterstützen S4 supported Führt Geräte auf die den Ruhezustand unterstützen wake programmable Führt Geräte auf die vom Benutzer konfiguriert werden können um das System aus dem Standbymodus zu reaktivieren wake armed Führt Geräte auf die zurzeit so konfiguriert sind dass sie das System aus dem Standbymodus reaktivieren all devices Gibt alle im System vorhandenen Geräte zurück all devices verbose Gibt eine ausführliche Liste der Geräte zurück Beispiel POWERCFG DEVICEQUERY wake armed DEVICEENABLEWAKE Ermöglicht das Reaktivieren des Geräts aus einem Standbymodus Syntax POWERCFG DEVICEENABLEWAKE Gibt ein Gerät an das mit PowerCfg DEVICEQUERY wake programmable abgerufen wurde Beispiel POWERCFG DEVICEENABLEWAKE Microsoft USB IntelliMouse Explorer DEVICEDISABLEWAKE Gerät kann den Standbymodus nicht aufheben Verhindert dass das Gerät das System aus einem Standbymodus reaktiviert Syntax POWERCFG DEVICEDISABLEWAKE Gibt ein Gerät an das mit PowerCfg DEVICEQUERY wake armed abgerufen wird IMPORT Importiert alle Energieeinstellungen aus der angegebenen Datei Syntax POWERCFG IMPORT Gibt den vollqualifizierten Pfad einer Datei an die mit dem Parameter PowerCfg EXPORT generiert wurde optional Die Einstellungen werden in ein Energieschema geladen das durch diese GUID dargestellt wird Wird der Parameter nicht angegeben wird von powercfg eine neue GUID generiert und verwendet Beispiel POWERCFG IMPORT c scheme pow EXPORT Exportiert das Energieschema das durch die angegebene GUID dargestellt wird in die angegebene Datei Syntax POWERCFG EXPORT Gibt den vollqualifizierten Pfad einer Zieldatei an Gibt die GUID eines Energieschemas an und kann mit PowerCfg L abgerufen werden Beispiel POWERCFG EXPORT c scheme pow 381b4222 f694 41f0 9685 ff5bb26 0df2e LASTWAKE Gibt an wodurch das System aus dem letzten Ruhezustand reaktiviert wurde HELP Zeigt Informationen zu Befehlszeilenparametern an ALIASES Zeigt alle Aliasnamen und die entsprechende GUID an Der Benutzer kann diese Aliasnamen anstelle einer GUID in der Befehlszeile verwenden SETSECURITYDESCRIPTOR Legt eine Sicherheitsbeschreibung fest die einer angegebenen Energieeinstellung einem Energieschema oder einer Aktion zugeordnet ist Syntax POWERCFG SETSECURITYDESCRIPTOR Gibt die GUID eines Energieschemas oder einer Energieeinstellung an Kann eine der folgenden Zeichenfolgen sein ActionSetActive ActionCreate ActionDefault Gibt eine gültige Sicherheitsbeschreibungs zeichenfolge im SDDL Format an Rufen Sie POWERCFG GETSECURITYDESCRIPTOR auf um ein Beispiel für eine SDDL ZEICHENFOLGE zu sehen GETSECURITYDESCRIPTOR Ruft eine Sicherheitsbeschreibung ab die einer angegebenen Energieeinstellung einem Energieschema oder einer Aktion zugeordnet ist Syntax POWERCFG GETSECURITYDESCRIPTOR Gibt die GUID eines Energieschemas oder einer Energieeinstellung an Kann eine der folgenden Zeichenfolgen sein ActionSetActive ActionCreate ActionDefault C Users Raimund ACER powercfg a Die folgenden Ruhezustandfunktionen sind auf diesem System verfügbar Standby S3 Ruhezustand Hybrider Standbymodus Die folgenden Ruhezustandfunktionen sind auf diesem System nicht verfügbar Standby S1 Die Systemfirmware unterstützt diesen Standbystatus nicht Standby S2 Die Systemfirmware unterstützt diesen Standbystatus nicht C Users Raimund ACER powercfg devicequery wake armed Agere Systems HDA Modem HID Tastatur HID konforme Maus 002 Intel R 82566MM Gigabit Network Connection C Users Raimund ACER code
Kategorie: Windows

Ruhezustand unter Vista wieder herstellen

von Mitglied 2 — Fri, 13 Jan 2012 08:39:nn G1T

Kategorie: _Allgemeines

Google kann man einen News Feed an Google anbinden

von Mitglied 2 — Tue, 03 Jan 2012 12:09:nn G1T

ich betreibe eine kleine Homepage mit einzelnen Beiträgen Die Beiträge würde ich gerne automatisch an Google anbinden damit ich nicht jeden Beitrag zusätzlich in Goolge posten muß kann man nicht per News Feed die Nachrichten auch an Google anbinden
Kategorie: Suchmaschinen Google

Excel einen String nach mehreren Werten vergleichen

von Mitglied 2 — Tue, 03 Jan 2012 11:59:nn G1T

ich soll einen alten Code umformen der einen Wert auf drei Möglichkeiten vergleicht der Code lautet bisher if sCode 1 or sCode 2 or sCode 4 then endif es ist in diesem Fall wesentlich übersichtlicher wenn man den Wert mit Like und Wildcard Funktionen nutzt Wenn man auf vergleicht kann man das folgendermaßen erledigen code Dim vPerson As Variant vPerson zelle Value If Not IsEmpty vPerson True Then If vPerson Like name Then Dim sCode As String sCode tkp Cells zelle Row code s If Not sCode Like 1 2 4 Then Auftragszeile oder Gemeinkostenzeile zeile n zelle Row auftr n tkp Cells zeile n auftr s Value baugr n tkp Cells zeile n baugr s Value auftr pos n tkp Cells zeile n auftr pos s Value psp pos n tkp Cells zeile n psp pos s Value n n 1 Auftragszeile oder Gemeinkostenzeile End If End If End If code
Kategorie: Excel VBACode

vba Array Variable mit Integer werten

von Mitglied 2 — Fri, 23 Dec 2011 12:06:nn G12T

in einem Projekt wird ein Array benötigt das aus Integer zahlen besteht hier die Definition und die Dimensionierung code Die Definition findet statt wie Dim zeile As Integer die Dimensionierung alsoe wieviele Elemente wie ReDim Preserve zeile 1 To letzte 5 das müßte ich nochmals prüfen der Zugriff findet später statt wie zeile n zelle Row code danach hat man ein Array zur Verfügung das mit Integerwerten gefüllt und bearbeitet werden kann
Kategorie: Excel VBACode

Exce Statusmeldung anzeigen

von Mitglied 2 — Fri, 23 Dec 2011 09:44:nn G12T

für ein Kundenprojekt soll in einem alten Code die aktuelle Bearbeitungszeile oder Kommentare angezeigt werden Folgend die Anzeige von Kommentaren und Texten über die Statusbar untere Zeile im Excel Fenster code Zeile für Zeile aktualisieren Achtung x entspricht hier einer Zeile also y For x monat z To letzte Wenn in der Ist Spalte keine Formel und nicht die 4 Zeile der TKP dann aktualisiern If Not tkp Cells x ist s HasFormula And Not x jahr z Then Application StatusBar bearbeite Zeile amp x amp von amp letzte Fehler abfangen wenn z B Zeichen statt Zahlen in den Zellen stehen On Error GoTo fehler code danach wird jede Ausgabe von Text unten in der letzten zeile des Excelfensters angezeigt Die Ausgabe muß über die Anweisung Application Statusbar erzeugt werden
Kategorie: Excel VBACode

Windows Sidebar Notizzettel

von Mitglied 2 — Thu, 22 Dec 2011 09:42:nn G12T

kleine Linksammlung zu Notizprogrammen für die sidebar Miniaturanwendungen apps http www sticky notes net mit detailscreenshots auf http www sticky notes org oder http www veign com application php appid 102 ein kleines Programm mit dem man Notizen machen kann Leider nicht für die Sidebar oder als Minianwendung oder StickyNotes http download cnet com Stickies 3000 2074 4 10330903 html tag recommendedDownloads aber für die Sidebar so als tab habe ich noch nichts gefunden die Stikynot exe wiederum läuft nicht als minianwendung als browserbasierendes Tool gibt es auch ein Notizzettel system http webstickynotes codeplex com oder desknotes als ausgeklügelte Applikation http desknotes codeplex com
Kategorie: Windows

sevGrid Verzögerungszeit bei Combolisten einstellen

von Mitglied 2 — Thu, 08 Dec 2011 09:11:nn G12T

beim Verwenden des sevGrid Controls werden oft Combolisten verwendet Combolisten sind dropdown Listen die nicht editiert werden können während der Auswahl im Gegensatz zu Comboboxen Damit nun in einen Liste von Einträgen automatisch zum richtigen Zeile gesprungen wird kann man mehrere Buchstaben eingeben Innerhalb einer einstellbaren Verzögerungszeit erkennt die Liste ob man zu Fa oder zu F und dann zu a springen will der code zum Einstellen folgt wie hier code Public Sub fxGrid Einstellungen ByRef frm As Form fxGrid Einstellungen Objects Dim objGrid As sevGrid Set objGrid frm Grid1 Object Dim ctlGrid As Control Set ctlGrid frm Grid1 Objects dynamische Einstellungen Dim sFontName As String Dim intFontSize As Integer Dim intZeilen Hoehe As Integer Dim intHeader Hoehe As Integer Dim bEingabe Grid As Boolean Verzoegerungszeit Combolist Dim intDelayTimeComboListSearch As Integer intDelayTimeComboListSearch fxSQL getSetting DelayTimeComboListSearch objGrid DelayTimeComboListSearch intDelayTimeComboListSearch Verzoegerungszeit Combolist code
Kategorie: Software sevGrid

Access RGB Farbwerte ermitteln

von Mitglied 2 — Thu, 08 Dec 2011 08:44:nn G12T

für ein Projekt sollte ich kurz die RGB Farbwerte ermitteln die ich einer Funktion übergeben möchte um die Werte schnell zu ermitteln mache ich folgendes 1 ein Formular im Entwurf öffnen 2 auf eine Stelle im Formular klicken 3 die Eigenschaften hierzu öffnen 4 die Hintergrundfarbe mit öffnen dann bei der Registerkarte Benutzerdefiniert öffnen dort stehen die drei Werte für Rot Grün Blau
Kategorie: Access VBACode

Access den aktuellen Computer auslesen

von Mitglied 2 — Tue, 06 Dec 2011 06:41:nn G12T

mit dem folgenden Code kann man den aktuellen Computer ermitteln unter access code Public Function fxSYS getComputerName As String fxSYS getComputerName fxSYS getComputerName Environ computername fxSYS getComputerName End Function code
Kategorie: Access VBACode

Windows7 Netzwerkpfad als Laufwerk anbinden

von Mitglied 2 — Tue, 06 Dec 2011 02:10:nn G12T

unter windows7 hat sich der Punkt geändert wo man einen Pfad im Heimnetzwerk als festes Laufwerk zuordnen kann Vorgehensweise man macht den Explorer auf wechselt auf die Icone des Computers dort kann man Netzlaufwerk verbinden wählen
Kategorie: Windows

Access vba Funktion zum Berechnen der Twips pro Pixel

von Mitglied 2 — Tue, 06 Dec 2011 12:52:nn G12T

mit der folgenden funktion kann man die Twips pro Pixel ausrechnen lassen grob gesschätzt 15 Twips pro Pixel code Bildschirm zur berechnung von bildschirm pixel und twips Public Declare Function apiGetDC Lib user32 Alias GetDC ByVal hWnd As Long As Long Public Declare Function apiGetDeviceCaps Lib gdi32 Alias GetDeviceCaps ByVal hDC As Long ByVal nIndex As Long As Long die ReleaseDC sollte ausgefuehrt werden nach getDC da ansonsten viele Resourcen gesperrt bleiben Public Declare Function apiReleaseDC Lib user32 Alias ReleaseDC ByVal hWnd As Long ByVal hDC As Long As Long Bildschirm Public Function api fx TwipsPerPixel Y As Long api fx TwipsPerPixel Y berechne Anzahl Twips pro Pixel Positionen in Access sind in Twips Positionen von vb net Controls sind in Pixel Dim intPixel per Inch As Long Vertical intPixel per Inch apiGetDeviceCaps apiGetDC 0 90 apiReleaseDC 0 apiGetDC 0 speicher freigeben Ausgabe api fx TwipsPerPixel Y apcTWIPS PER INCH intPixel per Inch apcTWIPS PER INCH 144 Ausgabe api fx TwipsPerPixel Y End Function code
Kategorie: Access VBACode

sevGrid positionsberechnung der aktuellen Zeile

von Mitglied 2 — Tue, 06 Dec 2011 12:45:nn G12T

Wenn ich die aktuelle Zeile berechnen will die ich im sevgrid gerade habe bei einer Postion eines Cursors oder Controls hier lblMovePanel in Pixel dann kann man mit der folgenden Funktion die aktuelle zugeordnete Row des SevGrid berechnen code Pos ermitteln Dim intMovePanel Top As Long intMovePanel Top lblMovePanel Top Dim intTwipsPerPixel As Double intTwipsPerPixel api fx TwipsPerPixel Y Dim dblRow As Double dblRow intMovePanel Top ctlGrid Top objGrid FilterHeight objGrid ColumnHeaderHeight intTwipsPerPixel objGrid RowHeight intTwipsPerPixel dblRow dblRow objGrid TopRow 1 Dim intRow As Integer intRow Fix dblRow Pos ermitteln code
Kategorie: Access VBACode

Access vba double als Integer oder Ganzzahl

von Mitglied 2 — Tue, 06 Dec 2011 12:20:nn G12T

ich bekomme in Access vba code eine Kommazahl vom Typ Double zum Beispiel 3 6 Bei der Convertierung mit CLng zahl wird daraus 4 ich möchte aber dass alle 3 zu 3 abgeschnitten werden Wie heißt die Funktion in vba die umrechnung mit round ging auch nicht code Dim dblRow As Double dblRow intMovePanel Top ctlGrid Top objGrid FilterHeight objGrid ColumnHeaderHeight intTwipsPerPixel objGrid RowHeight intTwipsPerPixel dblRow dblRow objGrid TopRow 1 MsgBox dbouble amp dblRow amp amp CInt amp CInt dblRow amp amp GanzZahl amp Round dblRow code Lösung die Lösung kommt über fix Pos ermitteln Dim intMovePanel Top As Long intMovePanel Top lblMovePanel Top Dim intTwipsPerPixel As Double intTwipsPerPixel api fx TwipsPerPixel Y Dim dblRow As Double dblRow intMovePanel Top ctlGrid Top objGrid FilterHeight objGrid ColumnHeaderHeight intTwipsPerPixel objGrid RowHeight intTwipsPerPixel dblRow dblRow objGrid TopRow 1 MsgBox dbouble amp dblRow amp amp CInt amp CInt dblRow amp amp GanzZahl amp Fix dblRow Pos ermitteln
Kategorie: Access VBACode

Windows7 Remoteunterstützung msra exe

von Mitglied 2 — Tue, 06 Dec 2011 11:31:nn G12T

schnell und unkompliziert eine Windows Remoteunterstützung mit einem anderen PC aufbauen in Windows 7 in Programme Suche msra eingeben dann die msra exe starten und schon kann per Dialog eine Verbindung mit einem Remotepc aufgebaut werden Achtung 1 die Firewall des Routers muß für Eingänge freigeschaltet sein 2 scheinbar macht das uac User Access Control manchmal probleme beim Aufbau
Kategorie: Windows

sevGrid aktuelle Position berechnen

von Mitglied 2 — Tue, 06 Dec 2011 08:36:nn G12T

wenn man bei SevGrid die aktuelle Position berechnen will dann kann man folgend vorgehen Position Y aktuelle Reihe erste sichtbare Reihe Filterhöhe Spaltenheader TopPosition des Controls Wichtig man muss die erste Sichtbare Zeile berücksichtigen sobald der Scroll vertikal getätigt wurde code Position einstellen Pos ermitteln Dim intY As Long intYCursor As Long Dim intRand As Integer intRand 0 intY ctlGrid top objGrid FilterHeight objGrid RowHeight objGrid Row objGrid TopRow objGrid ColumnHeaderHeight 15 Dim intX As Long intX 100 Pos ermitteln einstellen On Error Resume Next lblMovePanel Move intX intY On Error GoTo 0 einstellen Position einstellen code
Kategorie: Access VBACode

Grid für PHP apPHP

von Mitglied 2 — Sat, 03 Dec 2011 11:47:nn G12T

http www apphp com php datagrid index php
Kategorie: Software

Grid von PHPGrid

von Mitglied 2 — Sat, 03 Dec 2011 11:26:nn G12T

unter http phpgrid com ein editbeispiel findet man unter http phpgrid com example edit datagrid unterhalb des Codes steht das see example Codebeispiel code dg new C DataGrid SELECT FROM Orders orderNumber Orders change column titles dg set col title orderNumber Order No dg set col title orderDate Order Date dg set col title shippedDate Shipped Date dg set col title customerNumber Customer No enable edit dg enable edit INLINE CRUD hide a column dg set col hidden requiredDate read only columns one or more columns delimited by comma dg set col readonly orderDate customerNumber required fields dg set col required orderNumber customerNumber multiple select dg set multiselect true second grid as detail grid Notice it is just another regular phpGrid with properites sdg new C DataGrid SELECT orderNumber productCode quantityOrdered priceEach FROM OrderDetails orderNumber OrderDetails sdg set col title orderNumber Order No sdg set col title productCode Product Code sdg set col title quantityOrdered Quantity sdg set col title priceEach Unit Price sdg set col dynalink productCode http www example com orderLineNumber amp foo sdg set col format orderNumber integer array thousandsSeparator defaultValue sdg set col currency priceEach define master detail relationship by passing the detail grid object as the first parameter then the foriegn key name dg set masterdetail sdg orderNumber dg display See Live Example code
Kategorie: Software

Grid für PHP KoolGrid

von Mitglied 2 — Sat, 03 Dec 2011 11:18:nn G12T

unter Alle Komponenten von KoolPHP http demo koolphp net Examples KoolPHPSuite index php das Datengrid ist unter http demo koolphp net Examples KoolGrid Columns Resizing index php Codierungsbeispiel code php require KoolControlsFolder KoolAjax koolajax php koolajax scriptFolder KoolControlsFolder KoolAjax require KoolControlsFolder KoolGrid koolgrid php ds new MySQLDataSource db con This db con link has been created inside KoolPHPSuite Resources runexample php ds SelectCommand select orderNumber orderDate status comments from orders ds UpdateCommand update orders set orderDate orderDate status status where orderNumber orderNumber grid new KoolGrid grid grid scriptFolder KoolControlsFolder KoolGrid grid styleFolder default grid AjaxEnabled true grid DataSource ds grid MasterTable Pager new GridPrevNextAndNumericPager grid Width 655px grid AllowResizing true column new GridBoundColumn column DataField orderNumber column HeaderText Order Number column ReadOnly true column Align center grid MasterTable AddColumn column column new GridDateTimeColumn column DataField orderDate column HeaderText Date column FormatString M d Y column Align center grid MasterTable AddColumn column column new GridDropDownColumn column DataField status column HeaderText Status column Align center column AddItem In Process column AddItem On Hold column AddItem Disputed column AddItem Resolved column AddItem Shipped grid MasterTable AddColumn column column new GridBoundColumn column DataField comments column HeaderText Comments column HeaderStyle Align center column Wrap true grid MasterTable AddColumn column grid Process form id form1 method post php echo koolajax Render div style padding top 10px php echo grid Render div form code
Kategorie: Software

Grid unter Javascript Treegrid

von Mitglied 2 — Sat, 03 Dec 2011 11:11:nn G12T

ein Datengrid unter javascript basierend http www treegrid com treegrid www ASP VBScript ASP NET C Visual Basic JSP Java PHP HTML all other EJS TreeGrid can be used also in any other server script environment that can handle and process XML or JSON data
Kategorie: Software

Telerik Gridview Silverlight

von Mitglied 2 — Sat, 03 Dec 2011 10:46:nn G12T

um ein dynamischen Grid zu nutzen kann man die Componenten von Telerik nutzen hier die Gridview von Telerik mit Silverlight http demos telerik com silverlight GridView ColumnTypes alternativ die ajax anwendungen http demos telerik com aspnet ajax controls examples default defaultcs aspx Datengrid http demos telerik com aspnet ajax grid examples client resizing defaultcs aspx alle Controls unter Silverlight http demos telerik com silverlight Controls
Kategorie: Software

Componentone Flexgrid und Silverlight

von Mitglied 2 — Sat, 03 Dec 2011 10:39:nn G12T

zur umsetzung eines dynamischen Datengrids im Internet intranet kann man zwei Hauptprodukte empfehlen Componentone http demo componentone com silverlight flexgrid die Livedemo des Ajax Gridview http demo componentone com ASPNET ControlExplorer C1GridView Overview aspx
Kategorie: Software

sevGrid selektiere markiere eine zeile

von Mitglied 2 — Thu, 01 Dec 2011 06:17:nn G12T

mit dem folgenden Code kann man eine Zeile im sevGrid markieren dabei gibt man der Funktion die Spalte und den Wert als Parameter mit und dann wird die Zeile markiert Aufruf code Kopieren Dim intIDWert neu As Integer intIDWert neu fxSQL Datensatz kopieren sTabelle sTabelle sIDFeld varIDWert Kopieren aktualisieren fxAktualisieren Me RecordSource SELECT TOP 1 FROM amp sTabelle amp WHERE amp sIDFeld amp amp intIDWert neu aktualisieren markieren fxGrid markiere IDZeile Me sIDFeld intIDWert neu markieren Aufruf code die Funktion folgt wie code Public Function fxGrid markiere IDZeile ByRef frm As Form ByVal sIDFeld As String ByVal sIDWert As String fxGrid markiere IDZeile Dim intReturn As Integer init Dim objGrid As sevGrid Set objGrid frm Grid1 Object init Dim intCol As Integer intCol objGrid GetCol sIDFeld Kontrolle If intCol 0 Then Exit Function Kontrolle Loop Rows Dim intRow As Long Dim intTreffer As Long Dim iRow As Integer For iRow 1 To objGrid Rows Dim sWert As String sWert objGrid Text iRow intCol If sWert sIDWert Then intTreffer iRow Exit For End If Next Loop Rows markieren If intTreffer 0 Then objGrid Row intTreffer End If markieren intReturn intTreffer Ausgabe fxGrid markiere IDZeile intReturn Ausgabe fxGrid markiere IDZeile End Function code
Kategorie: Access

sql komplette SQL Klasse mit mehreren Funktionen

von Mitglied 2 — Thu, 01 Dec 2011 05:30:nn G12T

folgender Code ist ein komplettes vba Modul mit mehreren sinnvollen SQL Funktionen zum Kopieren ssql strings bilden Filter erweitern Option Compare Database Option Explicit SQL Funktionen Public Function fxSQL Filterworte ByVal sWorte As String ByVal sFelder As String As String fxSQL Filterworte Dim sWHERE As String Dim sWort As Variant korrektur sql inject verhingern sWorte Replace sWorte 1 1 vbBinaryCompare korrektur Filter aufteilen Dim arrFilter As Variant arrFilter Split sWorte vbBinaryCompare For Each sWort In arrFilter Loop Worte If Not sWort Like Then Dim sFilter Felder As String sFilter Felder sFelder Achtung verknuepfung unter Access ist mit amp in sql ANSI mit sFilter Felder Replace sFilter Felder amp vbBinaryCompare sWHERE sWHERE amp AND amp sFilter Felder amp like amp sWort amp End If Loop Worte Next Filter aufteilen Ausgabe fxSQL Filterworte sWHERE Ausgabe fxSQL Filterworte End Function Public Function fxSQL Select Basis TOP1 ermitteln ByVal sSQL Source As String As String fxSQL Filterworte Dim sSELECT As String SELECT ermitteln sSELECT fxSQL Select Basis ermitteln sSQL Source SELECT ermitteln Korrektur Top 1 sSELECT Replace sSELECT SELECT SELECT TOP 1 1 1 vbTextCompare Korrektur Top 1 Ausgabe fxSQL Select Basis TOP1 ermitteln sSELECT Ausgabe fxSQL Filterworte End Function Public Function fxSQL Select Basis TOP1 alle Felder ermitteln ByVal sSQL Source As String As String fxSQL Filterworte Dim sSELECT As String SELECT ermitteln sSELECT fxSQL Select Basis ermitteln sSQL Source SELECT ermitteln Dim sTabelle As String Tabelle ermitteln If sSELECT Like FROM Then sTabelle Mid sSQL Source InStr 1 sSQL Source FROM vbTextCompare sTabelle Replace sTabelle FROM 1 1 vbTextCompare sTabelle Trim sTabelle If InStr 1 sTabelle vbBinaryCompare 0 Then sTabelle Mid sTabelle 1 InStr 1 sTabelle vbBinaryCompare 1 End If End If Tabelle ermitteln Korrektur Top 1 sSELECT SELECT TOP 1 FROM amp sTabelle Korrektur Top 1 Ausgabe fxSQL Select Basis TOP1 alle Felder ermitteln sSELECT Ausgabe fxSQL Filterworte End Function Public Function fxSQL Select Basis ermitteln ByVal sSQL Source As String As String fxSQL Filterworte SELECT ermitteln Dim sSELECT As String If sSQL Source Like WHERE Then sSELECT Mid sSQL Source 1 InStr 1 sSQL Source WHERE vbTextCompare ElseIf sSQL Source Like ORDER Then sSELECT Mid sSQL Source 1 InStr 1 sSQL Source ORDER vbTextCompare Else sSELECT sSQL Source End If SELECT ermitteln Ausgabe fxSQL Select Basis ermitteln sSELECT Ausgabe fxSQL Filterworte End Function Public Function fxSQL Recordset Combo laden ByVal sID As String ByVal sForm As String As ADODB Recordset wird benutzt um die Formular Combo Recordsets zu fuellen diese werden beim Schliessen des Formulars geschlossen und geloescht fxSQL Recordset Combo laden Dim rec As ADODB Recordset Dim sSQL As Variant sql ermitteln sSQL DLookup SQL Basistabelle tbl sys Combos IDFeld LIKE amp sID amp AND Formular LIKE amp sForm amp sql ermitteln kontrolle If sSQL Like Then Exit Function End If kontrolle holen Set rec fxDB ADO getSnapshot sSQL holen rueckgabe Set fxSQL Recordset Combo laden rec close im aufruf nothing im aufruf rueckgabe fxSQL Recordset Combo laden End Function Public Function fxSQL getColtype ByVal sID As String ByRef frm As Form As String fxSQL getColtype Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup GridType tbl sys Columns Value LIKE amp sID amp AND Formular LIKE amp frm Name amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getColtype sReturn rueckgabe fxSQL getColtype End Function Public Function fxSQL getIDFeld ByRef frm As Form As String fxSQL getIDFeld Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup IDFeld tbl sys forms Value amp frm Name amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getIDFeld sReturn rueckgabe fxSQL getIDFeld End Function Public Function fxSQL getForm Tabelle ByRef frm As Form As String fxSQL getForm Tabelle Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup Tabelle tbl sys forms Value amp frm Name amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getForm Tabelle sReturn rueckgabe fxSQL getForm Tabelle End Function Public Function fxSQL getForm Document Path ByRef frm As Form As String fxSQL getForm Tabelle Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup Documents Path tbl sys forms Value amp frm Name amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getForm Document Path sReturn rueckgabe fxSQL getForm Tabelle End Function Public Function fxSQL getSetting ByVal sSettingID As String As String fxSQL getSetting Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup Value tbl sys Settings SettingID amp sSettingID amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getSetting sReturn rueckgabe fxSQL getSetting End Function Public Function fxSQL getSetting local ByVal sSettingID As String As String fxSQL getSetting local Dim sWert As Variant Dim sReturn As String Wert holen sWert DLookup Value tbl sys Settings local SettingID amp sSettingID amp Wert holen Auswertung If IsNull sWert Then sReturn Else sReturn sWert End If Auswertung rueckgabe fxSQL getSetting local sReturn rueckgabe fxSQL getSetting local End Function SQL Funktionen Public Function fxSQL History speichern ByVal sTabelle As String ByVal sIDWert As String As Boolean fxSQL History speichern kontrolle If sTabelle Like Then fxSQL History speichern False Exit Function End If If sIDWert Like Then fxSQL History speichern False Exit Function End If kontrolle init Dim sTabelle History As String sTabelle History sTabelle amp log Dim sIDFeld As String sIDFeld DLookup IDFeld tbl sys forms Tabelle amp sTabelle amp init Datensatz kopieren fxSQL Datensatz kopieren sTabelle sTabelle amp log sIDFeld sIDWert Datensatz kopieren fxSQL History speichern End Function Public Function fxSQL Datensatz kopieren ByVal sTabelle Quelle As String ByVal sTabelle Ziel As String ByVal sIDFeld As String ByVal sIDWert As Long As Long fxSQL Datensatz kopieren korrekturen sTabelle Quelle Replace sTabelle Quelle vbBinaryCompare sTabelle Ziel Replace sTabelle Ziel vbBinaryCompare sIDFeld Replace sIDFeld vbBinaryCompare sIDWert Replace sIDWert vbBinaryCompare korrekturen kontrolle If sTabelle Quelle Like Then Exit Function If sTabelle Ziel Like Then Exit Function If sIDFeld Like Then Exit Function If sIDWert Like Then Exit Function sIDWert Daten oeffnen Dim recQuelle As ADODB Recordset Dim recZiel As ADODB Recordset Set recQuelle fxDB ADO getSnapshot SELECT TOP 1 FROM amp sTabelle Quelle amp WHERE amp sIDFeld amp amp sIDWert Set recZiel fxDB ADO getRecordset SELECT TOP 1 FROM amp sTabelle Ziel Daten oeffnen kontrolle If recQuelle Is Nothing Then Exit Function If recZiel Is Nothing Then Exit Function kontrolle add modus recZiel AddNew add modus Loop Datenquelle Dim objField Quelle As ADODB Field For Each objField Quelle In recQuelle Fields Dim sFeldname As String sFeldname objField Quelle Name test ziel Dim varTest As Variant Dim bExist As Boolean On Error Resume Next varTest recZiel Fields sFeldname If Err Number 0 Then bExist True Else bExist False End If On Error GoTo 0 test ziel Kopieren If bExist True Then Typ pruefen Dim bTypOK As Boolean bTypOK True standard ok Dim intFeldtyp As Integer Dim objField Ziel As ADODB Field Set objField Ziel recZiel Fields sFeldname intFeldtyp objField Ziel Type Select Case intFeldtyp Case adInteger If objField Ziel Properties ISAUTOINCREMENT True Then bTypOK False End If Case adWChar adVarWChar Case adDBTimeStamp adBoolean Case adVarBinary timestamp bTypOK False Case Else bTypOK True End Select Typ pruefen Felder kopieren If bTypOK True Then objField Ziel Value objField Quelle Value End If Felder kopieren End If Kopieren Next Loop Datenquelle execute recZiel Update execute Ziel IDFeld ermitteln Dim sIDFeld Ziel As String For Each objField Ziel In recZiel Fields If objField Ziel Properties ISAUTOINCREMENT True Then sIDFeld Ziel objField Ziel Name Exit For End If Next Ziel IDFeld ermitteln neue ID ermitteln Dim intIDWert Ziel As Long If Not sIDFeld Ziel Like Then recZiel MoveLast intIDWert Ziel recZiel sIDFeld Ziel End If neue ID ermitteln Abschluss Set recZiel Nothing Abschluss Ausgabe fxSQL Datensatz kopieren intIDWert Ziel Ausgabe End Function Public Function fxSQL getTabellenFelder ByVal sTabelle As String Optional bOhne nText As Boolean True As String fxSQL getTabellenFelder Dim sFelder As String Felder ermitteln Dim rec As ADODB Recordset Set rec fxDB ADO getSnapshot SELECT TOP 0 FROM amp sTabelle Dim objFeld As ADODB Field For Each objFeld In rec Fields Dim sFeldname As String If bOhne nText True Then nur nicht ntext felder If Not objFeld Type adLongVarWChar Then nicht ntext sFeldname objFeld Name sFelder sFelder amp amp sFeldname amp nicht ntext End If nur nicht ntext felder Else sFeldname objFeld Name sFelder sFelder amp amp sFeldname amp End If Next Felder ermitteln Korrektur sFelder Replace sFelder 1 1 vbBinaryCompare Korrektur rueckgabe fxSQL getTabellenFelder sFelder rueckgabe fxSQL getTabellenFelder End Function Public Function fxSQL getTabellenFelder UNION ByVal sTabelle As String ByVal sFelder master As String Optional bTabelleUnion benennen As Boolean False As String fxSQL getTabellenFelder Dim sFelder As String sFelder sFelder master Korrekturen sFelder master Replace sFelder master 1 1 vbBinaryCompare sFelder master Replace sFelder master 1 1 vbBinaryCompare Korrekturen Master Dim arrFelder Master arrFelder Master Split sFelder master vbBinaryCompare Dim vFeldMaster As Variant Master Details Dim rec As ADODB Recordset Set rec fxDB ADO getSnapshot SELECT TOP 1 FROM amp sTabelle Dim objFeld As ADODB Field Dim iFields As Integer iFields rec Fields Count Details Loop master For Each vFeldMaster In arrFelder Master Felder ermitteln vFeldMaster Trim vFeldMaster Dim bTreffer As Boolean bTreffer False Dim iField As Integer For iField 0 To iFields 1 Set objFeld rec Fields iField Dim sFeldname As String sFeldname objFeld Name If sFeldname Like vFeldMaster Then bTreffer True Exit For End If Next If bTreffer False Then sFelder Replace sFelder amp vFeldMaster amp 1 1 vbTextCompare End If Felder ermitteln Next Loop master Korrektur If bTabelleUnion benennen True Then sFelder Replace sFelder amp sTabelle amp vbBinaryCompare If InStr 1 sFelder vbBinaryCompare 1 Then sFelder amp sTabelle amp amp sFelder End If End If Korrektur rueckgabe fxSQL getTabellenFelder UNION sFelder rueckgabe fxSQL getTabellenFelder End Function Public Function fxSQL getUNION ByVal sTabelle Master As String ByVal sTabelle Union As String As String fxSQL getTabellenFelder Master Dim sFelder master As String Dim sFelder Union As String Dim recMaster As ADODB Recordset Set recMaster fxDB ADO getSnapshot SELECT TOP 0 FROM amp sTabelle Master Dim recUnion As ADODB Recordset Set recUnion fxDB ADO getSnapshot SELECT TOP 0 FROM amp sTabelle Union Dim objFeld Master As ADODB Field Dim objFeld Detail As ADODB Field Felder Master ermitteln For Each objFeld Master In recMaster Fields nur nicht ntext felder If Not objFeld Master Type adLongVarWChar Then nicht ntext Dim sFeldname Master As String sFeldname Master objFeld Master Name Master erweitern sFelder master sFelder master amp amp sFeldname Master amp Master erweitern Treffer in Union ermitteln Dim bTreffer As Boolean bTreffer False For Each objFeld Detail In recUnion Fields Dim sFeldname Union As String sFeldname Union objFeld Detail Name If sFeldname Union Like sFeldname Master Then bTreffer True Exit For End If Next Union erweitern If bTreffer True Then sFelder Union sFelder Union amp amp sFeldname Union amp Else sFelder Union sFelder Union amp End If Union erweitern Treffer in Union ermitteln nicht ntext End If nur nicht ntext felder Next Felder Master ermitteln Master Korrektur sFelder master amp sTabelle Master amp AS Tabelle amp sFelder master sFelder Union amp sTabelle Union amp AS Tabelle amp sFelder Union Korrektur Zusammenfassen Dim sSQL As String sSQL SELECT amp sFelder master amp FROM amp sTabelle Master sSQL sSQL amp UNION SELECT amp sFelder Union amp FROM amp sTabelle Union Zusammenfassen Master rueckgabe fxSQL getUNION sSQL rueckgabe fxSQL getTabellenFelder End Function
Kategorie: SQL-Server

SQL Funktion zum Kopieren eines Datensatzes auf adodb recordset basis mit IDNeu rückgabe

von Mitglied 2 — Thu, 01 Dec 2011 05:26:nn G12T

mit der folgenden Funktion wird der vorige Beitrag erweitert indem die Funktion auch den neuen IDwert zurückgibt code Public Function fxSQL Datensatz kopieren ByVal sTabelle Quelle As String ByVal sTabelle Ziel As String ByVal sIDFeld As String ByVal sIDWert As Long As Long fxSQL Datensatz kopieren korrekturen sTabelle Quelle Replace sTabelle Quelle vbBinaryCompare sTabelle Ziel Replace sTabelle Ziel vbBinaryCompare sIDFeld Replace sIDFeld vbBinaryCompare sIDWert Replace sIDWert vbBinaryCompare korrekturen kontrolle If sTabelle Quelle Like Then Exit Function If sTabelle Ziel Like Then Exit Function If sIDFeld Like Then Exit Function If sIDWert Like Then Exit Function sIDWert Daten oeffnen Dim recQuelle As ADODB Recordset Dim recZiel As ADODB Recordset Set recQuelle fxDB ADO getSnapshot SELECT TOP 1 FROM amp sTabelle Quelle amp WHERE amp sIDFeld amp amp sIDWert Set recZiel fxDB ADO getRecordset SELECT TOP 1 FROM amp sTabelle Ziel Daten oeffnen kontrolle If recQuelle Is Nothing Then Exit Function If recZiel Is Nothing Then Exit Function kontrolle add modus recZiel AddNew add modus Loop Datenquelle Dim objField Quelle As ADODB Field For Each objField Quelle In recQuelle Fields Dim sFeldname As String sFeldname objField Quelle Name test ziel Dim varTest As Variant Dim bExist As Boolean On Error Resume Next varTest recZiel Fields sFeldname If Err Number 0 Then bExist True Else bExist False End If On Error GoTo 0 test ziel Kopieren If bExist True Then Typ pruefen Dim bTypOK As Boolean bTypOK True standard ok Dim intFeldtyp As Integer Dim objField Ziel As ADODB Field Set objField Ziel recZiel Fields sFeldname intFeldtyp objField Ziel Type Select Case intFeldtyp Case adInteger If objField Ziel Properties ISAUTOINCREMENT True Then bTypOK False End If Case adWChar adVarWChar Case adDBTimeStamp adBoolean Case adVarBinary timestamp bTypOK False Case Else bTypOK True End Select Typ pruefen Felder kopieren If bTypOK True Then objField Ziel Value objField Quelle Value End If Felder kopieren End If Kopieren Next Loop Datenquelle execute recZiel Update execute Ziel IDFeld ermitteln Dim sIDFeld Ziel As String For Each objField Ziel In recZiel Fields If objField Ziel Properties ISAUTOINCREMENT True Then sIDFeld Ziel objField Ziel Name Exit For End If Next Ziel IDFeld ermitteln neue ID ermitteln Dim intIDWert Ziel As Long If Not sIDFeld Ziel Like Then recZiel MoveLast intIDWert Ziel recZiel sIDFeld Ziel End If neue ID ermitteln Abschluss Set recZiel Nothing Abschluss Ausgabe fxSQL Datensatz kopieren intIDWert Ziel Ausgabe End Function code
Kategorie: SQL-Server

SQL Funktion zum Kopieren eines Datensatzes auf adodb recordset basis

von Mitglied 2 — Thu, 01 Dec 2011 05:17:nn G12T

mit der folgenden Funktion kann man einen Datensatz von einer Quelltabelle komplett in eine Zieltabelle kopieren beim Aufruf muß man die Tabelle Quelle und Ziel das IDfeld und den aktuellen IDwert angeben code Public Function fxSQL Datensatz kopieren ByVal sTabelle Quelle As String ByVal sTabelle Ziel As String ByVal sIDFeld As String ByVal sIDWert As Long As Long fxSQL Datensatz kopieren korrekturen sTabelle Quelle Replace sTabelle Quelle vbBinaryCompare sTabelle Ziel Replace sTabelle Ziel vbBinaryCompare sIDFeld Replace sIDFeld vbBinaryCompare sIDWert Replace sIDWert vbBinaryCompare korrekturen kontrolle If sTabelle Quelle Like Then Exit Function If sTabelle Ziel Like Then Exit Function If sIDFeld Like Then Exit Function If sIDWert Like Then Exit Function sIDWert Daten oeffnen Dim recQuelle As ADODB Recordset Dim recZiel As ADODB Recordset Set recQuelle fxDB ADO getSnapshot SELECT TOP 1 FROM amp sTabelle Quelle amp WHERE amp sIDFeld amp amp sIDWert Set recZiel fxDB ADO getRecordset SELECT TOP 1 FROM amp sTabelle Ziel Daten oeffnen kontrolle If recQuelle Is Nothing Then Exit Function If recZiel Is Nothing Then Exit Function kontrolle add modus recZiel AddNew add modus Loop Datenquelle Dim objField Quelle As ADODB Field For Each objField Quelle In recQuelle Fields Dim sFeldname As String sFeldname objField Quelle Name test ziel Dim varTest As Variant Dim bExist As Boolean On Error Resume Next varTest recZiel Fields sFeldname If Err Number 0 Then bExist True Else bExist False End If On Error GoTo 0 test ziel Kopieren If bExist True Then Typ pruefen Dim bTypOK As Boolean bTypOK True standard ok Dim intFeldtyp As Integer Dim objField Ziel As ADODB Field Set objField Ziel recZiel Fields sFeldname intFeldtyp objField Ziel Type Select Case intFeldtyp Case adInteger If objField Ziel Properties ISAUTOINCREMENT True Then bTypOK False End If Case adWChar adVarWChar Case adDBTimeStamp adBoolean Case adVarBinary timestamp bTypOK False Case Else bTypOK True End Select Typ pruefen Felder kopieren If bTypOK True Then objField Ziel Value objField Quelle Value End If Felder kopieren End If Kopieren Next Loop Datenquelle execute recZiel Update execute Set recZiel Nothing End Function code
Kategorie: SQL-Server

SQL Funktion zum Speichern eines Datensatzes als Kopie

von Mitglied 2 — Thu, 01 Dec 2011 04:10:nn G12T

folgende Funktion erstellt eine Kopie eines Datensatzes in einer log Tabelle als Kopie Somit kann per Funktion jeder Datensatz einfach mitgeschrieben werden code Public Function fxSQL History speichern ByVal sTabelle As String ByVal sID As String As Boolean fxSQL History speichern kontrolle If sTabelle Like Then fxSQL History speichern False Exit Function End If If sID Like Then fxSQL History speichern False Exit Function End If kontrolle korrekturen sTabelle Replace sTabelle vbBinaryCompare sID Replace sID vbBinaryCompare korrekturen init Dim sTabelle History As String sTabelle History sTabelle amp log Dim sIDFeld As String sIDFeld DLookup IDFeld tbl sys forms Tabelle amp sTabelle amp init kontrolle Dim sTest As String On Error Resume Next sTest CurrentDb TableDefs sTabelle History Fields 0 Name If Err Number 0 Then Exit Function End If On Error GoTo 0 kontrolle Felder ermitteln Dim sFelder Ziel As String Dim sFelder Quelle As String Dim iFeld As Integer Dim rec As ADODB Recordset Set rec fxDB ADO getSnapshot SELECT TOP 1 FROM amp sTabelle For iFeld 0 To rec Fields Count 1 Dim sFeldname As String sFeldname rec Fields iFeld Name If sFeldname Like value Then sFelder Quelle sFelder Quelle amp amp sFeldname amp ElseIf Not InStr 1 timestamp value amp sFeldname amp vbTextCompare 0 Then sFelder Quelle sFelder Quelle amp amp sFeldname erzeugt Fehlermeldung sFelder Quelle sFelder Quelle amp amp sFeldname amp End If Next sFelder Quelle Replace sFelder Quelle 1 1 vbBinaryCompare sFelder Ziel sFelder Quelle Felder ermitteln Dim sSQL As String sSQL INSERT INTO amp sTabelle History amp amp sFelder Ziel amp sSQL sSQL amp SELECT TOP 1 amp sFelder Quelle sSQL sSQL amp FROM amp sTabelle sSQL sSQL amp WHERE amp sIDFeld amp amp sID execute fxDB ADO Execute sSQL execute fxSQL History speichern End Function code
Kategorie: Access

Acccess Mausklick und Mausbewegung erzeugen

von Mitglied 2 — Tue, 29 Nov 2011 06:48:nn G11T

Private Sub lblMove MouseUp ByVal Button As Integer ByVal Shift As Integer ByVal x As Single ByVal y As Single Schliesse Verschieben Panel und loese einen Mausklick aus code Private Sub lblMove MouseUp ByVal Button As Integer ByVal Shift As Integer ByVal x As Single ByVal y As Single Schliesse Verschieben Panel und loese einen Mausklick aus lblMove MouseUp schliessen fxClose schliessen Mausklick apiDoMouseEvent MOUSEEVENTF MOVE 0 10 0 0 apiDoMouseEvent MOUSEEVENTF LEFTDOWN 0 0 0 0 apiDoMouseEvent MOUSEEVENTF LEFTUP 0 0 0 0 apiSetCursorPos apig DoEvents erst vorigen die Mausklicks ausfuehren Mausklick reset lblMove BackColor vbWhite reset lblMove MouseUp End Sub code in den Header der Datei muß man noch die dll deklarieren code Maus Public Declare Sub apiDoMouseEvent Lib user32 Alias mouse event ByVal dwFlags As Long ByVal dx As Long ByVal dy As Long ByVal cButtons As Long ByVal dwExtraInfo As Long Public Const MOUSEEVENTF ABSOLUTE amp H8000 Public Const MOUSEEVENTF LEFTDOWN amp H2 Public Const MOUSEEVENTF LEFTUP amp H4 Public Const MOUSEEVENTF MIDDLEDOWN amp H20 Public Const MOUSEEVENTF MIDDLEUP amp H40 Public Const MOUSEEVENTF MOVE amp H1 Public Const MOUSEEVENTF RIGHTDOWN amp H8 Public Const MOUSEEVENTF RIGHTUP amp H10 Maus code
Kategorie: Access

Access Twips und Points

von Mitglied 2 — Tue, 29 Nov 2011 08:13:nn G11T

in Access finden die meisten angaben in Twips statt Doch die Maus Positionen die man per dll holen kann sind meistens in points oder pixel also muß man ein wenig umrechnen Fazit vermeiden der umrechnung weil immer ein Offset entsteht und immer Probleme da sind Am Besten auf MouseMove events zurückgreifen die die Position X und Y Innerhalb des aktuellen Form Fensters zurückliefern eine relative gute Berechnung mit Twips code header Private Declare Function apiGetDC Lib user32 Alias GetDC ByVal hwnd As Long As Long Private Declare Function apiReleaseDC Lib user32 Alias ReleaseDC ByVal hwnd As Long ByVal hdc As Long As Long Private Declare Function apiGetDeviceCaps Lib gdi32 Alias GetDeviceCaps ByVal hdc As Long ByVal nIndex As Long As Long Option Compare Database Option Explicit code header code Private Sub Grid1 FixedColClick ByVal nRow As Long ByVal nCol As Long Button As Integer Grid1 FixedColClick If Button 1 Then Linke Maustaste init Dim objGrid As sevGrid Set objGrid Me Grid1 Object Dim ctlGrid As Control Set ctlGrid Me Grid1 init Linke Maustaste Dim intSpalte As Integer intSpalte objGrid GetColFromCursor If intSpalte 0 Then FixedColum If Shift 2 Then Ctrl intRow DragStart nRow einblenden If Not imgMove Visible True Then imgMove Visible True End If Dim intY As Long intY Get Y Cursor Pos Dim lngDeviceHandle As Long Dim lngPixelsPerInch As Long lngDeviceHandle apiGetDC 0 lngPixelsPerInch apiGetDeviceCaps lngDeviceHandle LOGPIXELSY lngDeviceHandle apiReleaseDC 0 lngDeviceHandle intY intY 1440 lngPixelsPerInch intY intY 1300 Me WindowTop Dim intX As Long intX 5 Get X Cursor Pos 20 imgMove Move intX intY einblenden Ctrl End If FixedColum End If Linke Maustaste End If Grid1 FixedColClick End Sub code
Kategorie: Access

Access ein Cursor Symbol dynamisch mit der Maus bewegen

von Mitglied 2 — Mon, 28 Nov 2011 09:20:nn G11T

im beiliegende Projekt wird mit der Maustaste ein kleines Symbol oder Icon bewegt während man sich über ein Access Formular bewegt Hintergrund es soll in einer Datenbank ein Datensatz visuell von Position A nach Position B verschoben werden Während des Verschiebens durch die Maustaste soll ein Mauscursor angezeigt werden leider sind die Lösungen mit denen der Mousecursor geändert wird mittels Windows Funktion sehr unzureichend Deshalb wird in der beiligenden Datenbank ein Konstrukt geliefert bei dem ein Basisformular ein Popup Formular öffnet und die Position des Popup Formulars mit der Maustaste bewegt wird Wenn man dann auf das Popup Formular klickt dann schließt es sich wieder Der Code für das Basisfenster ist code Option Compare Database Option Explicit Private Sub BtnAn Click DoCmd OpenForm frmCursor acNormal End Sub Private Sub BtnAus Click DoCmd Close acForm frmCursor acSaveNo End Sub code der Code im Popupfenster bzw MausIcon ist wie folgt code Option Compare Database Option Explicit Private Sub Bezeichnungsfeld0 MouseDown Button As Integer Shift As Integer X As Single Y As Single DoCmd Close acForm Me Name acSaveNo End Sub Private Sub Detailbereich MouseDown Button As Integer Shift As Integer X As Single Y As Single DoCmd Close acForm Me Name acSaveNo End Sub Private Sub Detailbereich MouseMove Button As Integer Shift As Integer X As Single Y As Single DoCmd Echo True MOUSEMOVE Detail amp X amp Y Dim intRand As Integer intRand 300 Me Move Me WindowLeft X intRand Me WindowTop Y intRand End Sub code
Kategorie: Access