PlItems

ID: 63
PlCodelang: T-SQL
PlGroup: Datenbank
PlItemTitle: Tabellenstruktur kopieren
Code: Select * INTO SQL2.dbo.NeueTabelle FROM SQL1.dbo.AlteTabelle WHERE 0=1

ID: 64
PlCodelang: T-SQL
PlGroup: Datenbank
PlItemTitle: Prüfen ob temporäre Tabelle existiert
Code: SELECT OBJECT_ID ('tempdb..#myTableTable1')

ID: 65
PlCodelang: T-SQL
PlGroup: Datenbank
PlItemTitle: Prüfen welche/ob Tabelle ein AutoIncrement/Identiy Spalte hat
Code: -- Welche Tabellen ... select o.name, c.name, from sys.objects o inner join sys.columns c on o.object_id = c.object_id where c.is_identity = 1 -- -------------------------------------- -- Hat diese Tabelle ... IF ((SELECT OBJECTPROPERTY( OBJECT_ID(N'dbo.myTable'), 'TableHasIdentity')) = 1) PRINT 'Yes' ELSE PRINT 'No'

ID: 66
PlCodelang: T-SQL
PlGroup: Datenbank
PlItemTitle: Ausführen von SQL-Code per Aufruf
Code: http://www.databasejournal.com/features/mssql/article.php/3286501/T-SQL-Programming-Part-4---Setting-Variables-in-Calling-T-SQL-Code-While-Using-spexecutesql.htm use Northwind go declare @RECCNT int declare @ORDID varchar(10) declare @CMD Nvarchar(100) set @ORDID = 10436 SET @CMD = 'SELECT @RECORDCNT=count(*) from [Orders]' + ' where OrderId < @ORDERID' print @CMD exec sp_executesql @CMD, N'@RECORDCNT int out, @ORDERID int', @RECCNT out, @ORDID print 'The number of records that have an OrderId' + ' greater than ' + @ORDID + ' is ' + cast(@RECCNT as char(5))

ID: 67
PlCodelang: T-SQL
PlGroup: Datenbank
PlItemTitle: Tabellenzeile mit FK's löschen
Code: -- Siehe auch: http://www.sqlteam.com/article/performing-a-cascade-delete-in-sql-server-7 CREATE Procedure spDeleteRows -- Recursive row delete procedure. -- It deletes all rows in the table specified that conform to the criteria selected, -- while also deleting any child/grandchild records and so on. This is designed to do the -- same sort of thing as Access's cascade delete function. It first reads the sysforeignkeys -- table to find any child tables, then deletes the soon-to-be orphan records from them using -- recursive calls to this procedure. Once all child records are gone, the rows are deleted -- from the selected table. It is designed at this time to be run at the command line. It could -- also be used in code, but the printed output will not be available. ( @cTableName varchar(50), -- name of the table where rows are to be deleted @cCriteria nvarchar(1000), -- criteria used to delete the rows required @iRowsAffected int OUTPUT -- number of records affected by the delete ) As set nocount on declare @cTab varchar(255), -- name of the child table @cCol varchar(255), -- name of the linking field on the child table @cRefTab varchar(255), -- name of the parent table @cRefCol varchar(255), -- name of the linking field in the parent table @cFKName varchar(255), -- name of the foreign key @cSQL nvarchar(1000), -- query string passed to the sp_ExecuteSQL procedure @cChildCriteria nvarchar(1000), -- criteria to be used to delete -- records from the child table @iChildRows int -- number of rows deleted from the child table -- declare the cursor containing the foreign key constraint information DECLARE cFKey CURSOR LOCAL FOR SELECT SO1.name AS Tab, SC1.name AS Col, SO2.name AS RefTab, SC2.name AS RefCol, FO.name AS FKName FROM dbo.sysforeignkeys FK INNER JOIN dbo.syscolumns SC1 ON FK.fkeyid = SC1.id AND FK.fkey = SC1.colid INNER JOIN dbo.syscolumns SC2 ON FK.rkeyid = SC2.id AND FK.rkey = SC2.colid INNER JOIN dbo.sysobjects SO1 ON FK.fkeyid = SO1.id INNER JOIN dbo.sysobjects SO2 ON FK.rkeyid = SO2.id INNER JOIN dbo.sysobjects FO ON FK.constid = FO.id WHERE SO2.Name = @cTableName OPEN cFKey FETCH NEXT FROM cFKey INTO @cTab, @cCol, @cRefTab, @cRefCol, @cFKName WHILE @@FETCH_STATUS = 0 BEGIN -- build the criteria to delete rows from the child table. As it uses the -- criteria passed to this procedure, it gets progressively larger with -- recursive calls SET @cChildCriteria = @cCol + ' in (SELECT [' + @cRefCol + '] FROM [' + @cRefTab +'] WHERE ' + @cCriteria + ')' print 'Deleting records from table ' + @cTab -- call this procedure to delete the child rows EXEC spDeleteRows @cTab, @cChildCriteria, @iChildRows OUTPUT FETCH NEXT FROM cFKey INTO @cTab, @cCol, @cRefTab, @cRefCol, @cFKName END Close cFKey DeAllocate cFKey -- finally delete the rows from this table and display the rows affected SET @cSQL = 'DELETE FROM [' + @cTableName + '] WHERE ' + @cCriteria print @cSQL EXEC sp_ExecuteSQL @cSQL print 'Deleted ' + CONVERT(varchar, @@ROWCOUNT) + ' records from table ' + @cTableName

ID: 68
PlCodelang: VB.NET
PlGroup: GUI, Komponenten allgemein
PlItemTitle: Dezimal/Währungseingabe in zwei Textboxen
Code: Sub TextBox1KeyUp(sender As Object, e As KeyEventArgs) If ((e.KeyCode = Keys.Oemcomma) OR (e.KeyCode = Keys.Decimal)) Then CType(Sender,TextBox).Text = CType(Sender,TextBox).Text.Trim(",") CType(Sender,TextBox).SelectionStart = CType(Sender,TextBox).Text.Length For i As Integer = 0 To Me.Controls.Count-1 If Me.Controls.Item(i).TabIndex = CType(Sender,TextBox).TabIndex+1 Then CType(Me.Controls.Item(i),TextBox).Focus End If Next End If End Sub

ID: 69
PlCodelang: C#
PlGroup: GUI, .NET-WPF
PlItemTitle: Ressource aus separater Style-Ressource
Code: var tbo = new TextBlock { Style = (Style)Application.Current.FindResource("MyTextBlockStyle") };

ID: 70
PlCodelang: Python
PlGroup: Filehandling
PlItemTitle: Verzeichnis rekursiv durchsuchen
Code: import os searchPath = '/home/patrick/Desktop/' # os.walk will go through all subdirectories for pathentry in os.walk(searchPath, False): for dir in pathentry[1]: path = os.path.join(pathentry[0], dir) if os.path.islink(path): print path + "... is a link" # os.unlink(path) else: print path + "... is a dir" # os.rmdir(path) for file in pathentry[2]: path = os.path.join(pathentry[0], file) # os.unlink(path) print path + "... is a file" # os.listdir only the given path for file in os.listdir(searchPath): fullfilename = os.path.join(searchPath, file) if os.path.isfile(fullfilename): print fullfilename + "... is a file"

ID: 71
PlCodelang: Delphi
PlGroup: Schleifen
PlItemTitle: For-Schleife
Code: for i := 0 to 4 do Writeln(i);

ID: 72
PlCodelang: Delphi
PlGroup: Strings
PlItemTitle: Replace
Code: procedure foo() var str1: String; begin str1:=StringReplace('Hello World...','...',[rfReplaceAll, rfIgnoreCase]); // Output of str1 => "Hello World" end

ID: 73
PlCodelang: Delphi
PlGroup: Windows - Prompt Errorlevel
PlItemTitle: Errorlevel setzen
Code: //... var errorlevel: Integer; begin if cond1=cond2 then errorlevel:=0; if cond1<>cond2 then errorlevel:=1; halt(errorlevel); end.

ID: 74
PlCodelang: Delphi
PlGroup: Typenkonvertierung
PlItemTitle: String in Integer konvertieren
Code: MyInt:=StrToInt('125');

ID: 75
PlCodelang: C#
PlGroup: Typenkonvertierung
PlItemTitle: String in Integer konvertieren
Code: int MyInt if (Int32.TryParse("125", out MyInt)) { // Parsing was successfull }

ID: 76
PlCodelang: Python
PlGroup: Netzwerk, Email
PlItemTitle: Email versenden
Code: # Found at (and little modified): http://www.semi-legitimate.com/sls/blog/37-quick-notes/62-command-line-smtp-from-python #!/usr/bin/python import smtplib, sys if len(sys.argv) != 5: print "You must call me like:" print " mailme from to subject msgfile" sys.exit() fromadr = sys.argv[1] toadr = sys.argv[2] subject = sys.argv[3] msgfile = sys.argv[4] try: f = open(msgfile) msg = f.read() except: print "Invalid Message File: " + msgfile sys.exit() m = "From: %s To: %s Subject: %s X-Mailer: My-Mail " \ % (fromadr, toadr, subject) smtpserver="mysmtp.lan" loginuser="Marty_McFly" loginpwd="DeLorean" smtp = smtplib.SMTP() smtp.connect(smtpserver) smtp.login(loginuser, loginpwd) smtp.ehlo() smtp.sendmail(fromadr, toadr, m+msg) smtp.close()

ID: 77
PlCodelang: Delphi
PlGroup: Filehandling
PlItemTitle: Applikations-/Script-Verzeichnis ermitteln
Code: AppPath:=ExtractFilePath(Application.Exename);

ID: 78
PlCodelang: Delphi
PlGroup: Anwendungskonfigurationsdateien
PlItemTitle: INI-Datei lesen
Code: uses IniFiles; var iniMem: TMemIniFile; // ini-File (ready only one time) // Load the ini-information once - maybe at startup function TMyForm.LoadIniFile:boolean; var SL : TStringList; return : Boolean; iniFile : String; begin iniFile:='myFormConfig.ini'; return:=true; if not FileExists(ExtractFilePath(Application.Exename)+iniFile) then begin MessageDlg('ini-File not found!', mtError, [mbOK], 0); return:=false; end; if not return then halt; iniMem:=TMemIniFile.Create(''); SL:=TStringList.Create; SL.LoadFromFile(ExtractFilePath(Application.Exename)+iniFile); iniMem.SetStrings(SL); LoadIniFile:=return; end; procedure TMyForm.DoThis; begin ShowMessage(iniMem.ReadString('Section','Attribute','Default-Value')); end;

ID: 79
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Datensatz Case-Sesitive abfragen
Code: -- Table containing Values -- content (column) -- a -- A SELECT content FROM myTable WHERE content='A' COLLATE SQL_Latin1_General_CP1_CS_AS -- Result: A

ID: 80
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Collation (Sortierreihenfolge) einer Datenbank ändern
Code: -- Collation einer Multi-User Datenbank ändern -- Über SSMS kommt die Fehlermeldung 5030 (Die Datenbank konnte nicht exklusiv gesperrt werden, um den Vorgang auszuführen.) -- siehe dazu: http://sunali.com/2009/10/08/microsoft-sql-server-error-5030/ -- the following line sets the database to "Single User" mode ALTER DATABASE MYDB SET SINGLE_USER WITH ROLLBACK IMMEDIATE -- the following line sets the new collation ALTER DATABASE MYDB COLLATE Latin1_General_CS_AS -- the following line sets the database back to "Multi User" mode ALTER DATABASE MYDB SET MULTI_USER

ID: 81
PlCodelang: T-SQL
PlGroup: Datenbank, Collation
PlItemTitle: Collation-Arten auflisten
Code: -- siehe auch: http://msdn.microsoft.com/de-de/library/ms187963.aspx SELECT * FROM fn_helpcollations()

ID: 82
PlCodelang: Caché
PlGroup: Textdateien
PlItemTitle: Textdatei schreiben
Code: Set file=##class(%File).%New("file.txt") Write file.Size Do file.Open("WSN") Do file.WriteLine("This is a line of text")