Welcome to Programmers Language v2

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