PlItems

ID: 2
PlCodelang: PHP
PlGroup: HTTP Form Submit
PlItemTitle: GET Link-Parameter lesen
Code: $getparam = $_GET['linkparameter'];

ID: 3
PlCodelang: VB.NET
PlGroup: GUI, MDI-Fenster
PlItemTitle: Aktives MDIChild und dessen Elemente
Code: If Me.ActiveMdiChild IsNot Nothing Then Dim frm As SubForm = CType(Me.ActiveMdiChild, SubForm) frm.textBox1.Text = "......." End If ' Beispiel: If Me.ActiveMdiChild IsNot Nothing Then If Me.ActiveMdiChild.Name="frmHotel" Then Dim frm As frmHotel = CType(Me.ActiveMdiChild, frmHotel) MessageBox.Show(frm.hotelid) End If End If

ID: 4
PlCodelang: VB.NET
PlGroup: GUI, MDI-Fenster
PlItemTitle: Alle MDIChilds durchlaufen
Code: Dim oForm As Form For Each oForm In Me.MdiChildren If Not TypeName(oForm) = "MDIForm" Then If oForm.Name = "frmHotel" Then ' Es gibt mind. 1 geöffnetes Browser-Fenster ' ... End If End If Next

ID: 5
PlCodelang: VB.NET
PlGroup: GUI, MDI-Fenster
PlItemTitle: Auf ein Object eines MDIChilds zugreifen
Code: Dim oForm As Form For Each oForm In Me.MdiChildren If Not TypeName(oForm) = "MDIForm" Then If oForm.Name = "frmHotel" Then MessageBox.Show(oForm.GetType.ToString + "|" + CType(oForm, frmHotel).hotelid.ToString) End If End If Next

ID: 6
PlCodelang: MySQL
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: SELECT NOW(); INSERT INTO table (datetime) VALUES (NOW());

ID: 7
PlCodelang: Mumps
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: ; The first integer is the number of days since December 31, 1840, where day 1 is January 1, 1841. The second integer is the number of seconds since midnight of the current day Set h=$horolog S h=$H W !,h ; gibt aus 61793,34937 was dem Datum 2010-03-08 und der Uhrzeit 09:42:17 entspricht

ID: 8
PlCodelang: Caché
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: ; Datum und Uhrzeit formatiert ausgeben Set datuhr=$ZDateTime($Horolog,8) ; ergibt 20100308 09:47:36 ; nur Datum Set dat=$ZDate($Horolog,3) ; = 2010-03-08 ; nur Zeit Set uhr=$ZTime($Piece($H,",",2)) ; = 09:50:20

ID: 9
PlCodelang: PHP
PlGroup: Datum, Zeit
PlItemTitle: Aktuelles Datum/Uhrzeit
Code: $jetzt = time(); echo "jetzt: ".$jetzt; echo "<br>"; echo "Human readable: ".date("H:i:s", $jetzt); echo "<br>"; echo "zurück in Sekunden: ".strtotime(date("H:i:s", $jetzt)); echo "<br>";

ID: 10
PlCodelang: MySQL
PlGroup: Datenbank
PlItemTitle: Lesen Datensatzes
Code: SELECT * FROM myTable WHERE id=1; SELECT field2,field17 FROM myTable WHERE id=1 AND name='test'; SELECT field3,field1 FROM myTable WHERE city like '%ew Yor%';

ID: 11
PlCodelang: Mumps
PlGroup: Datenbank
PlItemTitle: Lesen Datensatzes
Code: ; In M werden Tabellen Globals genannt S id=1 W !,^TABLE(id) S street="Hollywood Drive" S city="Los Angeles" W !,^PERSONS(street,city) S temp=^GLOBAL(0,"test","temp1")

ID: 12
PlCodelang: Caché
PlGroup: Datenbank
PlItemTitle: Lesen Datensatzes
Code: ; Es existiert eine Tabelle namens Table.Cities welche einen Eintrag mit der ID=15 enthält. Diese Tabelle enthält das Feld "Name" Set ds=##class(Table.Cities).%OpenId(15) Write !,ds.Name ; Oder über SQL Set result = ##class(%Library.ResultSet).%New() Set sql = "SELECT Name FROM Table.Cities WHERE ID=15" Do result.Prepare(sql) Do result.Execute("") For { Quit:'result.Next() Set name=result.Data("Name") }

ID: 13
PlCodelang: PHP
PlGroup: Array
PlItemTitle: Array definieren
Code: $arr = array(); $arr['dim1']['dim2']='value'; $arr['dim1'][99]=128;

ID: 14
PlCodelang: Mumps
PlGroup: Array
PlItemTitle: Array definieren
Code: S arr("dim1","dim2")="value" Set arr("dim1",99)=187 ; Persistent, will be saved with prefix ^: S ^save("dim1","dim2")="saved value"

ID: 15
PlCodelang: PHP
PlGroup: Variablen
PlItemTitle: Existenz der Varible abfragen
Code: $status=isset($test); if ($status) echo "Variable existiert: $test"; if (!isset($test2)) echo "Variable test2 existiert nicht!";

ID: 16
PlCodelang: Mumps
PlGroup: Variablen
PlItemTitle: Existenz der Varible abfragen
Code: Set status=$Data(test) If status Write !,"Variable existiert: "_test I '$D(test2) W !,"Variable existiert nicht!"

ID: 17
PlCodelang: Caché
PlGroup: HTTP Form Submit
PlItemTitle: GET Link-Parameter lesen
Code: ; http://localhost:1972/csp/test/page.csp?name=john Set linkparm=$Get(%request.Data("name",1)) Write !,linkparm ; = john

ID: 18
PlCodelang: Caché
PlGroup: Textdateien
PlItemTitle: Textdatei zeilenweise auslesen
Code: Set stream=##class(%FileCharacterStream).%New() Set stream.Filename="c:\myfile.txt" While 'stream.AtEnd { Set line=stream.ReadLine() ; Process the line here }

ID: 19
PlCodelang: Caché
PlGroup: Caché-Spezifisch, Namespaces
PlItemTitle: Prüfen ob ein Namespace existiert
Code: If $ZUtil(90,10,"SAMPLES") { ZNSpace "SAMPLES" }

ID: 20
PlCodelang: PHP
PlGroup: Variablen
PlItemTitle: Var-Dump einer Variable
Code: echo "<pre>"; var_dump($test); echo "</pre>";

ID: 21
PlCodelang: Mumps
PlGroup: Variablen
PlItemTitle: Var-Dump einer Variable
Code: ZW test S A(1,2)="Inhalt" ZWrite A Set ^GLOBAL1("sub1","sub2")="content" ZW ^GLOBAL1