Hgulfs Was-Nun-Blog

Ein Gewinnspiel? Da mache ich doch mit!

2011-11-16T16:16:00.000+01:00

Ich habe zwar keine Ahnung, ob ich mich als Comicfigur sehen will, doch kann ich einem solch ungewöhnlichem Gewinnspiel nicht widerstehen: Gewinnspiel!!! Again!

Aber auch ohne Gewinnaussicht will ich dieses Comicblog preisen: Katzenfuttergeleespritzer.

Anders als es der Name vermuten lässt geht es dort mehr um Schildkröten als um Katzen. Und um das Nerdiversum. Empfehlung!

PS: Auf Facebook folgen geht auch.

E-Mail mit Visual Basic.Net verschicken

2011-09-27T13:30:00.002+02:00

Dieses Beispiel ist als Modul angelegt (da für eine Konsolenanwendung), kann aber fix auf OO-Programmierung geändert werden. In erster Linie will ich mir Sucherei ersparen.

Imports mail = System.Net.Mail
Module EMail
Friend Function EMail(ByVal sAdressat, ByVal sBetreff, ByVal sText) As Boolean
Const csTrennzeichen As String = ";"
Dim oCredentials As New System.Net.NetworkCredential
Dim oClient As New mail.SmtpClient
Dim oEMail As New mail.MailMessage
Dim bReturn As Boolean
Dim asAdressen As String (), sAdresse As String
bReturn = True
asAdressen = Split(sAdressat, csTrennzeichen)
With oCredentials
.UserName = My.Settings.EMailUsername
.Password = My.Settings.EMailPasswort
End With
With oClient
.Host = My.Settings.EMailSmtp
.Port = My.Settings.EMailSmtpPort
.UseDefaultCredentials = False
.Credentials = oCredentials
End With
Try
With oEMail
.IsBodyHtml = False
.From = New mail.MailAddress (My.Settings.EMailAbsender)
For Each sAdresse In asAdressen
.To.Add(sAdresse)
Next
.Subject = sBetreff
.Body = sText
End With
oClient.Send(oEMail)
Catch ex As Exception
Console .WriteLine("Fehler: " & ex.Message)
bReturn = False
End Try
Return bReturn
End Function
End Module

Info für mich: Liegt auf dem Asus im Projekteordner.

Mit Visual Basic die IP-Adresse des eigenen Rechners ermitteln.

2011-09-16T11:16:00.002+02:00

Diese Aufgabe stellte sich mir gerade. Im Internet fand ich zwei Lösungswege; der Weg über NetworkInformation erschien mir besser:

Imports N = System.Net.NetworkInformation
Module Module1
Sub Main()
Dim aoAlleInterfaces() As N.NetworkInterface
Dim oInterface As N.NetworkInterface, oUnicastIpAdressInfoCollection As N.UnicastIPAddressInformationCollection
Dim iAnzahl As Integer , iZaehler As Integer , oUnicastIpAdressInfo As N.UnicastIPAddressInformation
Console.WriteLine("Start" )
aoAlleInterfaces = N.NetworkInterface.GetAllNetworkInterfaces
For Each oInterface In aoAlleInterfaces
oUnicastIpAdressInfoCollection = oInterface.GetIPProperties().UnicastAddresses
iAnzahl = oUnicastIpAdressInfoCollection.Count
For iZaehler = 0 To iAnzahl - 1
oUnicastIpAdressInfo = oUnicastIpAdressInfoCollection(iZaehler)
If oUnicastIpAdressInfo.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then
Console.WriteLine("Treffer" )
Console.WriteLine(oUnicastIpAdressInfo.Address.ToString)
End If
Next
Next
Console.WriteLine("Ende" )
Console.ReadKey()
End Sub
End Module

Als Vorbild diente ein Beispiel von Justus Bisser. Seine Lösung ist in C# geschrieben und nutzt LINQ; zur Anschauung habe ich es aufgedröselt.

Hinzufügen einer NOT-NULL-Spalte zu einer bestehenden, gefüllten Tabelle

2011-07-06T10:01:00.000+02:00

Was tun, wenn eine neue Spalte zu einer Tabelle hinzugefügt werden soll, diese neue Spalte keine NULL-Werte enthalten darf, doch die Tabelle bereits Datensätze enthält? Eine schlichte "ALTER TABLE"-Anweisung lässt der MS SQL Server nicht zu.

Die Lösung ist schlicht, aber wie mir im I-Net auffiel nicht für jeden gleich offensichtlich.

Bei mir eine aktuelle Aufgabe: Gegeben ist eine Tabelle "Hersteller", welche schon Datensätze enthält. Hinzugefügt werden soll eine Spalte mit dem Namen "AutoAnlegen" vom Datentyp "bit", welche keine NULL-Werte enthalten darf und als Standard auf "false" steht. Die Umsetzung erfolgt in drei Schritten:

ALTER TABLE Hersteller
ADD AutoAnlegen bit DEFAULT 0

Update Hersteller SET AutoAnlegen = 0

Alter Table Hersteller
Alter Column AutoAnlegen bit Not NULL

Tool zur Erstellung der 'stored procedures' für Sortierungen

2011-06-15T11:49:00.003+02:00

Hinweis:
Dieser Beitrag macht nur für mich Sinn; nicht wundern.

Das Tool SortierungStoredProcedureBuilder erstellt die vier für die Sortierung nach Art des Hauses benötigten 'stored procedures' bereit.
Die benötigten Parameter sind aus der Abbildung ersichtlich.

Die Eingabefelder des Tools.

Speicherort

VB-Projekte Juni 2011; Asus

Programm

Das Programm liegt in der "Hermann Leopold"-Suite.

Ordnen der Datenbank-Sortierung nach Art des Hauses via Stored Procedure

2011-06-11T11:19:00.005+02:00

Hinweis:
Dieser Beitrag macht nur für mich Sinn; nicht wundern.

Diese Stored Procedure ist ein Muster für die Neuordnung der "Sortierung"-Spalte nach einer Umsortierung. Die Namen des Schemas, der Tabelle und der Sortierungsspalte sind fix, da dynamisches SQL lt. diverser Autoren Performanceeinbußen bringt.
Da hingegen das Datenbankdesign bezüglich der Sortierung unveränderlich ist, sollte pro Tabelle eine Stored Procedure keine unüberwindliche Hürde darstellen.

Das "Create"-Statement

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: Hermann J. Leopold
-- Create date: 09.6.2011
-- Description: Glättet die Sortierungsspalte
-- =============================================
CREATE PROCEDURE [dbo].[spGlaetteSortierung]
AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;
-- temporäre Tabelle
DECLARE @Vorsortiert AS TABLE(ID bigint, Sortierung int)
-- Daten in die temporäre Tabelle schreiben
SELECT [ID], ROW_NUMBER() OVER (ORDER BY [Sortierung]) AS Sortierung
INTO #Vorsortiert FROM [test1].[dbo].[Sortiertest]
ORDER BY [Sortierung]
-- Tabelle 'Sortiertest' aktualisieren
UPDATE [test1].[dbo].Sortiertest
SET [Sortiertest].[Sortierung] = #Vorsortiert.Sortierung * 2
FROM #Vorsortiert
INNER JOIN [Sortiertest] ON #Vorsortiert.ID = [Sortiertest].[ID]
END
GO

Hinweis

Diese Stored Procedure ist nur ein Muster; es fehlt insbesondere jegliche Form von Fehlerbehandlung.

Die Tabelle zum obigen Beispiel

USE [test1]
GO
/****** Object: Table [dbo].[Sortiertest] Script Date: 06/11/2011 10:48:34 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Sortiertest](
[ID] [bigint] IDENTITY( 1, 1) NOT NULL,
[Muster] [nchar]( 10) NULL,
[Sortierung] [int] NOT NULL,
CONSTRAINT [PK_Sortiertest] PRIMARY KEY CLUSTERED
(
[ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO

Speicherort

SQL-Scripte; Asus

SQLQuery3.sql

Einschraenkung

2011-06-07T16:05:00.003+02:00

Hinweis:
Dieser Beitrag macht nur für mich Sinn; nicht wundern.

Im Prinzip wurde diese Klasse für die Update-Klasse geschrieben; es funktioniert aber auch für SELECT- oder DELETE-Statements. Keine besondere Raffinesse; es können jedoch mehrere
Einschränkungen mit AND oder OR verknüpft werden.

Der Nutzen steckt in der Kurzschreibweise: Dim x as new Einschraenkung(23) ergibt WHERE ID = 23

Ob es Sinn macht zeigt die Zukunft.

Stammnamespace

leopoldnet.tinytools.DatenbankTools

Speicherort

VB-Projekte Juni 2011; Asus

Beispiel:

Imports tt = leopoldnet.tinytools.DatenbankTools
Module Module1
Sub Main()
Dim oWhere As New tt.Einschraenkung(23)
Dim oFremdschluessel As _
New tt.Einschraenkung("FK_Muster" , 42)
oWhere.und(oFremdschluessel)
MsgBox(oWhere.toWhere)
End Sub
End Module

Tool für Textumwandlung.

2011-06-06T17:34:00.000+02:00

Hinweis:
Dieser Beitrag macht nur für mich Sinn; nicht wundern.

Ein arg dreckiges Tool zum Umwandeln von Text in HTML liegt in der Hermann-Leopold-Suite: Der TextHtmlizer. Nichts für die große weite Welt, aber für die Shoptemplates doch sehr gut geeignet.

Speicherort:

VB-Projekte Juni 2011; Asus

Tool für hübscheren Quellcode

2011-06-03T12:48:00.017+02:00

Hinweis: Dieser Beitrag macht nur für mich Sinn; nicht wundern.

Ein kleines Tool zu Erstellen von schöneren Quellcodeangaben im Internet: Code2Html.

Das Tool bockt zwar mehr als ein Esel auf Red Bull und hat mehr Bugs als ein "Starship Troopers"-Film, aber dafür ist alles schön bunt.

Speicherort:VB-Projekte Mai 2011; Asus

Beispiel:

#Region "Konstruktoren"
''' <summary>
''' Konstruktor
''' </summary>
''' <param name="iNummer">Die Nummer der Farbe</param>
''' <param name="iRot">Der Wert für die Farbe "rot"</param>
''' <param name="iGruen">Der Wert für die Farbe "grün"</param>
''' <param name="iBlau">Der Wert für die Farbe "blau"</param>
''' <remarks></remarks>
Public Sub New (ByVal iNummer As Integer , ByVal iRot As Integer , ByVal iGruen As Integer , ByVal iBlau As Integer )
With Me
.rot = iRot
.gruen = iGruen
.Blau = iBlau
.Nummer = iNummer
End With
End Sub

SqlExceptionMeldung

2011-05-28T11:54:00.008+02:00

Erstellt eine Meldung bei einem Ausnahmefehler während einer Datenbankaktion nach meinem üblichen Muster.

Stammnamespace
leopoldnet.LeoMeldungContainer

Speicherort
VB-Projekte Mai 2011; Asus

Beispiel

Imports leo = leopoldnet.LeoMeldungContainer
Imports System.Data.SqlClient
Public Class Class1
Sub x()
Dim sSql As String , oCmd As SqlCommand, oCn As SqlConnection
Dim oMeldung As leo.SqlExceptionMeldung
sSql = "Delete from Muster"
oCn = New SqlConnection("nixda" )
oCn.Open()
Try
oCmd = New SqlCommand(sSql, oCn)
oCmd.ExecuteNonQuery()
Catch ex As Exception
oMeldung = New leo.SqlExceptionMeldung
With oMeldung
.Nachricht = "Fehler bei x"
.Sql = sSql
.ExceptionMeldung = ex.Message
.Typ = leo.DarstellungTyp.Zeilenumbruch
End With
MsgBox(oMeldung.erstelleMeldung)
End Try
oCn.Close()
End Sub
End Class

Hinweis
Es existiert auch eine "shared"-Methode um auf eine Instanz verzichten zu können: erstelleSqlExceptionMeldung

LeoMeldungContainer

2011-05-27T13:25:00.010+02:00

Erstellt eine Meldung aus mehreren Zeichenketten nach meinem üblichen Muster.

Stammnamespace
leopoldnet.LeoMeldungContainer

Speicherort
Vb-Projekte Mai 2011; Asus

Beispiel

Imports leo = leopoldnet.LeoMeldungContainer
Public Class Class1
Sub muster()
Dim oMeldung As New _
leo.LeoMeldungContainer(leo.DarstellungTyp.HtmlListe)
With oMeldung
.addMeldung("Fehler im Muster" )
.addMeldung("SQL: " & "Select * From x" )
.addMeldung("Meldung: " & "ex.Message" )
End With
MsgBox("Meldung" , MsgBoxStyle.OkOnly, oMeldung.zeigeMeldungen)
End Sub
End Class

Hä? Ich werde alt!

2011-05-27T13:19:00.004+02:00

Na Klasse.

Da schreibe ich den ganzen Tag eine Klasse, nur um festzustellen dass ich vor ca. 2,5 Jahren so etwas schon einmal gemacht habe. Mist.

Gut. Da ich dieses Blog eh nicht nutze, nutze ich es ab heute um meine eigenen Klassen für mich zu protokollieren.
Sowas habe ich zwar schonmal "offline" getan, aber die Liste ist auf irgend einem Rechner verschollen. Daher ab jetzt hier.

Nur zur Erläuterung.

Ausbeute der Biofach

2009-02-23T10:32:00.000+01:00

Hurra, ich habe einen USB-Stick geschenkt bekommen...

2008-10-30T16:29:00.003+01:00

Ich liebe meine Arbeit! Heute kam ein Paket mit einigen Geschmacksmustern und ich "musste" testen.

Meine Diät ist zum Teufel, aber was muss das muss!

Interfaces und die Microsoft Visual Basic 2008 Express Edition

2008-10-05T09:24:00.009+02:00

Eine Sache habe ich bei den Express Editions des Visual Studios nie verstanden: Warum kann ich keine Interfaces anlegen? Das Interface ist eine grundlegende Technik des .Net-Frameworks. Noch unverständlicher ist es, da auf Interfaces nicht verzichtet werden muss, wenn der (Um)Weg bekannt ist. Denn umgehen können die Visual Basic Express Editions mit Interfaces, nur hinzufügen geht nicht.

Wird ein Interface gewünscht, so wählt man Neues Element hinzufügen und Textdatei. Der Suffix des Dateinamens wird auf .vb statt .txt geändert. Es wird eine leere Textdatei angelegt, in der jedoch jetzt ein Interface geschrieben werden kann:

Public Interface IGitt End InterfaceCode-Beispiel 1

Dieses Interface kann wie gewohnt bearbeitet werden:

' Interface IGitt.vb ' Wird von Klassen implementiert, die ekelige Eigenschaften haben sollen Public Interface IGitt ReadOnly Property Anzahl() As Integer Property Ort() As String Function omg() As Boolean End InterfaceCode-Beispiel 2

Es sollte trotz Express Edition keinen Grund geben, auf Interfaces zu verzichten.

Anfang der Woche

2008-09-30T10:38:00.003+02:00

Woran kann man an meinem Quellcodes erkennen, dass etwas am Anfang der Woche geschrieben wurde? An der Länge der Bezeichner. Beispiel: Private Function getListOfDefaultKeywords() As String

Am Freitag hätte ich wohl nur getKeywords geschrieben.

VB.Net: Ordner anlegen

2008-09-22T09:04:00.009+02:00

Sie kennen das Problem? Ein Programm soll eine Datei in ein Verzeichnis schreiben, verschieben oder kopieren, doch Sie sind sich nicht sicher, ob der Ordner überhaupt existiert?

Für solche Fälle hatte ich in der Vergangenheit eine Routine, die mit Hilfe einer Rekursion nicht vorhandene Ordner anlegt; immerhin kann ja auch schon der übergeordnete Ordner fehlen.

Die alte Lösung funktionierte gut, gefiel mir nur nicht. Eine rekursive Funktion für einen solch einfachen Zweck? Bis mir aus heiterem Himmel eine bessere Lösung einfiel. Die Idee: split()

Public Shared Sub OrdnerCheck(ByVal Ordnerpfad As String) Dim asOrdner() As String Dim sPfad As String = "" asOrdner = Split(Ordnerpfad, "\" ) For Each sOrdner As String In asOrdner sPfad &= sOrdner & "\" If Not Directory.Exists(sPfad) Then Directory.CreateDirectory(sPfad) Next End SubCode-Beispiel 1

Das Ding funktionierte auf Anhieb gut (was immer verdächtig ist); allerdings kann CreateDirectory einen Ausnahmefehler erzeugen. Daher ist es besser, diesen zu berücksichtigen.

Public Shared Function OrdnerChecked(ByVal Ordnerpfad As String) As Boolean Dim asOrdner() As String Dim sPfad As String = "" Dim bReturn As Boolean = True asOrdner = Split(Ordnerpfad, "\") Try For Each sOrdner As String In asOrdner sPfad &= sOrdner & "\" If Not Directory.Exists(sPfad) Then _ Directory.CreateDirectory(sPfad) Next Catch ex As Exception bReturn = False End Try Return bReturn End FunctionCode-Beispiel 2

Jetzt kann mit einer If-Then-Else-Konstruktion die Existenz eines Ordners geprüft, gegebenenfalls der Ordner angelegt und die Datei abgelegt werden. Ist die Anlage unmöglich kann im Programm selbst auf das Problem reagiert werden (Dialog o.ä.)

Das Wort zum LHC

2008-09-10T10:47:00.001+02:00

Also was soll die Panik?

Qualität aus Bielefeld

2008-04-09T13:22:00.000+02:00