Microsoft-Programmierer FORUM http://www.Microsoft-Programmierer.de/start.aspx?Area=FORUM Stuttgart, vb, net, aspx, access, Nürtingen, Reutlingen, Tübingen, Kirchheim, Metzingen Sat, 19 May 2012 01:16:nn G5T FORUM http://www.Microsoft-Programmierer.de/_images/logos/logogross.gif Microsoft-Programmierer http://www.Microsoft-Programmierer.de Dropbox endlich mal Dateien zentral verwalten http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2280 2280 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2280_0.jpg' />endlich gibt es einen praktischen Dienst bei dem man Dateien auf dem eigenen Rechner mit einer Cloud synchronisiert der Dienst http www Dropbox com ist der neue Aufsteiger in den Sharediensten Einfach das Programm installieren und dann sind die Ordner synchronisiert und man kann die Dateien von anderen Plätzen aufrufen Interessant ist auch die Share Funktion mit der man die Ordner mit anderen Anwendern teilen kann und das alles ohne die Cloud Diskussion Natürlich möchte jetzt Google mit seinem neuen Dienst drive google com das gleiche machen Doch wie immer muß man bedenken daß Google dann eben alles durchliest Das ist nicht im Sinne von jedermann<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=90' style='color:green;'>Web</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Wed, 18 Apr 2012 08:39:nn G4T von Mitglied 2 Web Access erstellen einer Access Datenbankdatei die auf einen SQL Server zugreift http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2279 2279 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2279_0.jpg' />unter Access kann man eigentliche Access Daten Frontend Datenbanken erstellen aber auch nur eine Datenbank die als Frontend auf einen SQL Server zugreift Leider ist beim Erstellen Menü nicht mehr die Funktion oder Auswahl vorhanden Unter Access nennt man SQL Server Datenbanken Projekte Um dennoch eine SQL Server Frontend datenbank zu erstellen muß man genau arbeiten man erstellt im Menü Datei Neu eine Datenbank unter dem Namensfeld kann man bei Durchsuchen den Dateityp auswählen Dort muß man dann Access Projekte auswählen um anschließend ein SQL Server Frontend zu erhalten Die Endung wird dann nicht mdb oder accdb sondern adp oder accdp hinweise auf die Funktion findet man unter http office microsoft com de de access help informationen zu access projekten adp HP005273103 aspx<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 17 Apr 2012 07:52:nn G4T von Mitglied 2 Access Droptdown Feldinhalt per code ändern http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2277 2277 <br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=80' style='color:green;'>_Allgemeines</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 13 Apr 2012 10:21:nn G4T von Mitglied 609 _Allgemeines Access Fallunterscheidung Windows 7 oder windows 2003 http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2275 2275 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2275_0.jpg' />ich benötige eine kleine Routine zum Unterscheiden ob der rechner Windows 7 oder Windows 2003 ist zitat Option Compare Database Option Explicit OS Plattform Major Minor Windows 95 1 4 0 Windows 98 1 4 10 Windows Me 1 4 90 Windows NT 4 0 2 4 0 Windows 2000 2 5 0 Windows XP 2 5 1 Windows Server 2003 2 5 2 Windows 7 2 6 System OSVersion Public Declare Function apiGetVersionEx Lib kernel32 Alias GetVersionExA lpVersionInformation As apiType OSVersionInfo As Long Public Type apiType OSVersionInfo OSVSize As Long dwVerMajor As Long dwVerMinor As Long dwBuildNumber As Long PlatformID As Long szCSDVersion As String 128 End Type Private Const constPLATFORM WIN32 NT 2 Public Function apiOS VersionNr As String apiOS VersionNr ermittle die Nummer des Betriebssystem 2 Windows32 Dim vInfo As apiType OSVersionInfo vInfo OSVSize Len vInfo werte laden Dim vOSVersionNr If apiGetVersionEx vInfo 1 Then Werte vorhanden vOSVersionNr vInfo PlatformID Werte vorhanden Else keine Werte vOSVersionNr 0 keine Werte End If werte laden apiOS VersionNr vOSVersionNr apiOS VersionNr End Function Public Function apiOS IsWin64 As Boolean apiOS IsWin64 ermittle die Nummer des Betriebssystem Windows2003 init Dim vInfo As apiType OSVersionInfo vInfo OSVSize Len vInfo init werte laden Dim bReturn As Boolean If apiGetVersionEx vInfo 1 Then Werte vorhanden If vInfo PlatformID 2 Then ab 2003 If vInfo dwVerMajor 5 Then Windows64 ab Win7 oder groesser bReturn True Windows64 Else Windows32 xp vista bReturn False Windows32 End If ab 2003 Else bReturn False End If Werte vorhanden Else keine Werte bReturn False keine Werte End If werte laden apiOS IsWin64 bReturn apiOS IsWin64 End Function System OSVersion zitat den Aufruf kann man dann einfach machen wie folgt Function VNCControl RemoteHost VNC Viewer If apiOS IsWin64 True Then Windows7 altes Programmverzeichnis Shell Pfad Programme86 amp Windows7 Else alter Rechner Shell Pfad Programme amp alter Rechner End If VNC Viewer End Function<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 12 Apr 2012 10:51:nn G4T von Mitglied 2 Access Access Prüfen ob Verweise defekt sind http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2274 2274 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2274_0.jpg' />mit der folgenen Anweisung kann man in Access prüfen ob die Datenbank alle Verweise dlls angebunden hat vTest Application BrokenReference diese Anwendung führt zu einer Fehlermeldung debug falls eine dll fehlt die anweisung müsste also mit einem on error resume next übersprungen werden folgend der Code zum Listen der Module Funktionen Private Sub fxModule ermitteln fxModule ermitteln init Dim iListe As Integer iListe 0 ctlListe 0 erste Zeile ctlListe RowSource Loop Module Dim objReference As Reference Dim intCountReferences As Integer intCountReferences Application References Count ctlListe AddItem Nr Modul ok Pfad Do While iListe intCountReferences 1 erhoehen iListe iListe 1 erhoehen ermitteln Set objReference References iListe ermitteln init name Dim sModulName As String Dim bExist As Boolean On Error Resume Next sModulName objReference Name If Err Number 0 Then bExist False Else bExist True End If name check broken Dim sPfad As String Dim bIsBroken As Boolean If bExist True Then sPfad objReference FullPath bIsBroken objReference IsBroken Else sPfad iListe amp fehler bIsBroken False End If check broken init Dim bOK As Boolean bOK Not bIsBroken anfuegen ctlListe AddItem iListe amp amp sModulName amp amp bOK amp amp sPfad anfuegen Loop Loop Module Abschluss MsgBox Fertig Module ermitteln Abschluss fxModule ermitteln End Sub<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Wed, 11 Apr 2012 03:21:nn G4T von Mitglied 2 Access Access Module und Verweise auflisten http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2273 2273 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2273_0.jpg' />mit dem folgenden code kann man die aktuellen Verweise Module der Access Datenbank auflisten code code<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Wed, 11 Apr 2012 12:21:nn G4T von Mitglied 2 Access Liste der FaceID Icons http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2272 2272 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2272_0.jpg' />unter folgendem Link findet man eine Liste der FaceID Buttons sehr übersichtlich http fring developpez com vba excel faceid oder http www kebabshopblues co uk 2007 01 04 visual studio 2005 tools for office commandbarbutton faceid property und mehrere zusammenfassungen http www outlookexchange com articles toddwalker BuiltInOLKIcons asp<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=102' style='color:green;'>Links</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 29 Mar 2012 09:25:nn G3T von Mitglied 2 Links vba Code zum Prüfen ob ein Commandbar existiert http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2271 2271 mit dem folgenden Code prüft man ob eine Commandbar schon geöffnet ist oder existiert code Public Function fxMenue Exists CommandBar ComBarName As String As Boolean fxMenue Exists CommandBar Dim MenueLeiste As CommandBar druchläuft alle Vorhandenen Commandbars und vergleicht die Namen Dim bExists As Boolean bExists False loop Commandbars For Each MenueLeiste In CommandBars If MenueLeiste Name ComBarName Then bExists True Exit For End If Next MenueLeiste loop Commandbars Ausgabe fxMenue Exists CommandBar bExists Ausgabe fxMenue Exists CommandBar End Function code<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=86' style='color:green;'>Office</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 29 Mar 2012 09:12:nn G3T von Mitglied 2 Office vba Aufbau eines Context Menüs in Access Excel http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2270 2270 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2270_0.jpg' />mit dem folgenden Code kann man ein Contextmenü erstellen notwendig zuvor unter Verweise die Microsoft Office 12 0 Object Library anbinden aktuelle version wird dynamisch angepasst code Option Compare Database Option Explicit ContextMenue region ContextMenue Public Function fxMenue Context fxMenue Context On Error Resume Next Dim sKennung As String sKennung ContextMenue init Dim ctxMenue As CommandBar Dim ctxButton As CommandBarButton init Kontrolle If fxMenue Exists CommandBar sKennung Then Wenn Menue bereits existiert CommandBars sKennung Delete dann loeschen End If Kontrolle Contextmenue anfuegen Set ctxMenue CommandBars Add sKennung msoBarPopup False True Contextmenue anfuegen Menue Punkte erstellen Drucken Set ctxButton ctxMenue Controls Add msoControlButton With ctxButton Wert ermitteln Menuepunkt aufbauen If Not sAnzeigewert Like Then Style msoButtonIconAndCaption Caption Filter amp sAnzeigewert OnAction fxGrid Context Schnellfilter amp Frm Name amp amp sSpalte amp amp sWert amp FaceId 640 End If Menuepunkt aufbauen End With Schnellfilter Menue Punkte erstellen abschluss ctxMenue ShowPopup Set ctxMenue Nothing abschluss fxMenue Context End Function code<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=86' style='color:green;'>Office</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 29 Mar 2012 09:08:nn G3T von Mitglied 2 Office vb net Code zum schreiben einer zip datei http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2269 2269 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2269_0.jpg' />mit dem folgenden Code erstelle ich eine zip datei Region Funktionen Zip Private Function fxZipFile As Boolean Dim bOK As Boolean addLog fxzip zippen Dim objZipFile As ZipFile ZipFile Create Filename amp zip zip it Try objZipFile BeginUpdate objZipFile Add Filename objZipFile CommitUpdate objZipFile Close bOK True Catch ex As Exception addError zip fehler amp Filename bOK False End Try zip it ZIP Groesse Dim vFileinfo As FileInfo vFileinfo New FileInfo Filename amp zip addLog zipSize amp Format vFileinfo Length 1000000 0 00 amp MB Groesse addLog fxzip Return bOK End Function End Region im Header der datei muß nur noch der Importverweis auf die zip dll eingefügt werden Region Imports Imports System IO Imports System Net ftp Imports System Text Imports ADODB Imports System Data SqlClient Imports ICSharpCode SharpZipLib Zip End Region Public Class frmSync Region Variablen Private Domain As String Public IconNr As Short 0 Public IDBenutzer As Long 0 Public Kennung As String Strings Public Area As String Public DomainID As String Settings1 Default DomainID Public DomainURL As String http www amp DomainID amp de Public BaseURL As String webseite des anbieters Public Filename As String Public Pfad Daten As String Strings Public ID As Long 0 Public IDLast As Long 1 Zaehler Public iRecGesamt As Integer 0 Public iRecFeed As Integer 0 Public iRecFeedMax As Long Settings1 Default MaxFeedRecords Public iRecPufferMax As Integer Settings1 Default MaxPuffer Public iMod As Integer 50 Zaehler Flags Public bPufferLoaded As Boolean False Public bEOF Feed As Boolean True Public bEOF Daten As Boolean False Flags objekte Public dsVerbote As DataSet Public doc As StreamWriter objekte End Region<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=13' style='color:green;'>Net vb.net</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=170' style='color:green;'>Code beispiele</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 15 Mar 2012 10:06:nn G3T von Mitglied 2 Net vb.net Code beispiele vb net lesen und schreiben eines Dokuments http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2268 2268 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2268_0.jpg' />im folgenden Code wird ein Dokument gelesen und geschrieben code Region Funktionen Dokument Private Function fxFilename init As Boolean init Dim vPfad As String Pfad Daten Filename vPfad amp benutzer amp IDBenutzer extension Filename amp xml extension init Return True End Function Private Function fxNeues Dokument As Boolean init Dim bOK As Boolean False addLog neue Feeddatei check exists If File Exists Filename Then File Delete Filename End If check exists doc erstellen addLog Filename amp Filename Try doc File CreateText Filename utf 8 wenn nicht vorhanden dann wird diese erstellt xml DateiHeader doc WriteLine xml version 1 0 amp amp rss version 2 0 xmlns g http base google com ns 1 0 amp amp channel doc WriteLine title amp DomainID amp de title doc WriteLine link amp DomainURL amp Ansicht aspx amp IDBenutzer amp IDBenutzer amp link doc WriteLine link amp DomainURL amp link doc WriteLine description produkte User amp IDBenutzer amp description xml DateiHeader doc Flush Header bOK True Catch ex As Exception addError fehler doc create amp Filename bOK False End Try doc erstellen Abschluss addLog neue Feeddatei Return bOK Abschluss End Function Private Function fxFeed speichern As Boolean Dim bOK As Boolean False Anzeige neues document addLog amp IDBenutzer amp amp Kennung amp speichern zip addLog speichern Try doc WriteLine channel amp amp rss doc Flush 1 b DOC SPEICHERN doc Close doc Nothing speicher freigeben Anzeige doc link bOK True Catch ex As Exception addError Fehler beim Speichern Return False End Try addLog Speichern bOK amp bOK addLog speichern Zip addLog zip bOK fxZipFile addLog Zip bOK amp bOK addLog zip Zip Abschluss addLog amp IDBenutzer amp amp Kennung amp speichern zip End Function Private Function fxUpload As Boolean Dim bOK As Boolean False Upload If optStop Checked True Then addLog stop vor upload Exit Function addLog fxupload bOK fxUpload ftp Filename amp zip addLog upload bOK amp bOK addLog fxUpload Upload Return bOK End Function End Region code wobei folgender Header in die Datei gehört Variablen und Import code Region Imports Imports System IO Imports System Net ftp Imports System Text Imports ADODB Imports System Data SqlClient Imports ICSharpCode SharpZipLib Zip End Region Public Class frmSync Region Variablen Private Domain As String Public IconNr As Short 0 Public IDBenutzer As Long 0 Public Kennung As String Strings Public Area As String Public DomainID As String Settings1 Default DomainID Public DomainURL As String http www amp DomainID amp de Public BaseURL As String webseite des anbieters Public Filename As String Public Pfad Daten As String Strings Public ID As Long 0 Public IDLast As Long 1 Zaehler Public iRecGesamt As Integer 0 Public iRecFeed As Integer 0 Public iRecFeedMax As Long Settings1 Default MaxFeedRecords Public iRecPufferMax As Integer Settings1 Default MaxPuffer Public iMod As Integer 50 Zaehler Flags Public bPufferLoaded As Boolean False Public bEOF Feed As Boolean True Public bEOF Daten As Boolean False Flags objekte Public dsVerbote As DataSet Public doc As StreamWriter objekte End Region code<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=13' style='color:green;'>Net vb.net</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=170' style='color:green;'>Code beispiele</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 15 Mar 2012 09:57:nn G3T von Mitglied 2 Net vb.net Code beispiele vb net SQL Server wird nicht erkannt http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2267 2267 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2267_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=14' style='color:green;'>SQL-Server</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Sat, 04 Feb 2012 08:31:nn G2T von Mitglied 2 SQL-Server vb net app config werte in ein Formular lesen und speichern http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2266 2266 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2266_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=13' style='color:green;'>Net vb.net</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 02 Feb 2012 05:58:nn G2T von Mitglied 2 Net vb.net vb net xmlDocument wird als Fehler ausgewiesen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2265 2265 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2265_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=13' style='color:green;'>Net vb.net</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 02 Feb 2012 02:21:nn G2T von Mitglied 2 Net vb.net Access Daten sammeln über Email http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2264 2264 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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 02 Feb 2012 11:46:nn G2T von Mitglied 2 Access Hardware Probleme mit der USB 3 0 Schnittstelle im Sony Vaio http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2263 2263 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2263_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=29' style='color:green;'>Hardware</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=175' style='color:green;'>Sonstige Geräte</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 02 Feb 2012 11:23:nn G2T von Mitglied 2 Hardware Sonstige Geräte Office 2012 neue Screenshots und der blog http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2262 2262 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2262_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=86' style='color:green;'>Office</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Wed, 01 Feb 2012 09:42:nn G2T von Mitglied 2 Office SQL Server Express http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2261 2261 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2261_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=14' style='color:green;'>SQL-Server</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Wed, 01 Feb 2012 09:13:nn G2T von Mitglied 2 SQL-Server Access alle Tabellenverknüpfungen aktualisieren http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2260 2260 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2260_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 24 Jan 2012 01:11:nn G1T von Mitglied 2 Access sql server führende Nullen bei zahlen erzeugen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2259 2259 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2259_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=14' style='color:green;'>SQL-Server</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 24 Jan 2012 09:24:nn G1T von Mitglied 2 SQL-Server Energisparmodus Netwerkkarte ausschalten http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2258 2258 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2258_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=28' style='color:green;'>Windows</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 13 Jan 2012 09:24:nn G1T von Mitglied 2 Windows Ruhezustand unter Vista wieder herstellen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2257 2257 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2257_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=28' style='color:green;'>Windows</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 13 Jan 2012 08:39:nn G1T von Mitglied 2 Windows Ruhezustand unter Vista wieder herstellen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2256 2256 <br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=80' style='color:green;'>_Allgemeines</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 13 Jan 2012 08:39:nn G1T von Mitglied 2 _Allgemeines Google kann man einen News Feed an Google anbinden http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2255 2255 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2255_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=17' style='color:green;'>Suchmaschinen</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=13' style='color:green;'>Google</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 03 Jan 2012 12:09:nn G1T von Mitglied 2 Suchmaschinen Google Excel einen String nach mehreren Werten vergleichen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2254 2254 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2254_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=15' style='color:green;'>Excel</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=7' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 03 Jan 2012 11:59:nn G1T von Mitglied 2 Excel VBACode vba Array Variable mit Integer werten http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2253 2253 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2253_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=15' style='color:green;'>Excel</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=7' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 23 Dec 2011 12:06:nn G12T von Mitglied 2 Excel VBACode Exce Statusmeldung anzeigen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2252 2252 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2252_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=15' style='color:green;'>Excel</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=7' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Fri, 23 Dec 2011 09:44:nn G12T von Mitglied 2 Excel VBACode Windows Sidebar Notizzettel http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2251 2251 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2251_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=28' style='color:green;'>Windows</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 22 Dec 2011 09:42:nn G12T von Mitglied 2 Windows sevGrid Verzögerungszeit bei Combolisten einstellen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2250 2250 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2250_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=25' style='color:green;'>Software</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=180' style='color:green;'>sevGrid</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 08 Dec 2011 09:11:nn G12T von Mitglied 2 Software sevGrid Access RGB Farbwerte ermitteln http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2249 2249 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2249_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Thu, 08 Dec 2011 08:44:nn G12T von Mitglied 2 Access VBACode Access den aktuellen Computer auslesen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2248 2248 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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 06:41:nn G12T von Mitglied 2 Access VBACode Windows7 Netzwerkpfad als Laufwerk anbinden http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2247 2247 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2247_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=28' style='color:green;'>Windows</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 02:10:nn G12T von Mitglied 2 Windows Access vba Funktion zum Berechnen der Twips pro Pixel http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2246 2246 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2246_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 12:52:nn G12T von Mitglied 2 Access VBACode sevGrid positionsberechnung der aktuellen Zeile http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2245 2245 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2245_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 12:45:nn G12T von Mitglied 2 Access VBACode Access vba double als Integer oder Ganzzahl http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2244 2244 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2244_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 12:20:nn G12T von Mitglied 2 Access VBACode Windows7 Remoteunterstützung msra exe http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2243 2243 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2243_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=28' style='color:green;'>Windows</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 11:31:nn G12T von Mitglied 2 Windows sevGrid aktuelle Position berechnen http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2242 2242 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2242_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=12' style='color:green;'>Access</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=12' style='color:green;'>VBACode</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Tue, 06 Dec 2011 08:36:nn G12T von Mitglied 2 Access VBACode Grid für PHP apPHP http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2241 2241 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2241_0.jpg' />http www apphp com php datagrid index php<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=25' style='color:green;'>Software</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Sat, 03 Dec 2011 11:47:nn G12T von Mitglied 2 Software Grid von PHPGrid http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2240 2240 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2240_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=25' style='color:green;'>Software</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Sat, 03 Dec 2011 11:26:nn G12T von Mitglied 2 Software Grid für PHP KoolGrid http://www.Microsoft-Programmierer.de/ansicht.aspx?Area=FORUM&RefNr=2239 2239 <IMG style='FLOAT: left; MARGIN-RIGHT: 10px; ' src='http://www.Microsoft-Programmierer.de/Daten/Bilder/FORUM/Bilder_mittel/Bild_2239_0.jpg' />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<br />Kategorie: <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie0=25' style='color:green;'>Software</a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie1=0' style='color:green;'></a> <a href='http://www.Microsoft-Programmierer.de/Start.aspx?Area=FORUM&Kategorie2=0' style='color:green;'></a> Sat, 03 Dec 2011 11:18:nn G12T von Mitglied 2 Software