<%@ Page Language="vb" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<script runat="server">
Dim MyConnection As SqlConnection
Sub Page_Load(Sender As Object, E As EventArgs)
MyConnection = New SqlConnection("server=(local);database=intranet;UID=telefon_aend;PWD=telefon_aend")
If Not (IsPostBack)
BindGrid()
End If
End Sub
Sub AddKunden_Click(Sender As Object, E As EventArgs)
Dim DS As DataSet
Dim MyCommand As SqlCommand
If kdintnr.Value = "" Or kdNachname.Value = "" Or kdVorname.Value = "" Or kdTelefon.Value = ""
Message.InnerHtml = "FEHLER: Für Nachname, Vorname und Telefon sind keine Nullwerte zulässig"
Message.Style("Farbe") = "red"
BindGrid()
End If
Dim InsertCmd As String = "insert into tblKundendaten (kdintnr,kdAnrede, kdTitel, kdVorname, kdNachname, kdAdresszusatz, kdGeburtstag, kdstrasse, kdPLZ, kdOrt, kdLand, kdTelefon, kdTelefax, kdmobil, kdEmail, kdDatum) values (@intnr, @Anrede, @Titel, @Vorname, @Nachname, @Adresszusatz, @Geburtstag, @Strasse, @PLZ, @Ort, @Land, @Telefon, @Telefax, @Mobil, @Email, @Datum)"
MyCommand = New SqlCommand(InsertCmd, MyConnection)
MyCommand.Parameters.Add(New SqlParameter("@INTNR", SqlDbType.NVarChar, 10))
MyCommand.Parameters("@INTNR").Value = kdintnr.Value
MyCommand.Parameters.Add(New SqlParameter("@Anrede", SqlDbType.NVarChar, 10))
MyCommand.Parameters("@Anrede").Value = kdAnrede.Value
MyCommand.Parameters.Add(New SqlParameter("@Titel", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Titel").Value = kdTitel.Value
MyCommand.Parameters.Add(New SqlParameter("@NACHNAME", SqlDbType.NVarChar, 15))
MyCommand.Parameters("@NACHNAME").Value = KdNachname.Value
MyCommand.Parameters.Add(New SqlParameter("@VORNAME", SqlDbType.NVarChar, 15))
MyCommand.Parameters("@VORNAME").Value = kdVorname.Value
MyCommand.Parameters.Add(New SqlParameter("@Adresszusatz", SqlDbType.NVarChar, 15))
MyCommand.Parameters("@Adresszusatz").Value = kdAdresszusatz.Value
MyCommand.Parameters.Add(New SqlParameter("@Geburtstag", SqlDbType.NVarChar, 11))
MyCommand.Parameters("@Geburtstag").Value = kdGeburtstag.Value
MyCommand.Parameters.Add(New SqlParameter("@Strasse", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Strasse").Value = kdStrasse.Value
MyCommand.Parameters.Add(New SqlParameter("@PLZ", SqlDbType.NVarChar, 10))
MyCommand.Parameters("@PLZ").Value = kdPLZ.Value
MyCommand.Parameters.Add(New SqlParameter("@Ort", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Ort").Value = kdOrt.Value
MyCommand.Parameters.Add(New SqlParameter("@Land", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Land").Value = kdLand.Value
MyCommand.Parameters.Add(New SqlParameter("@Telefon", SqlDbType.NChar, 20))
MyCommand.Parameters("@Telefon").Value = kdTelefon.Value
MyCommand.Parameters.Add(New SqlParameter("@Telefax", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Telefax").Value = kdTelefax.Value
MyCommand.Parameters.Add(New SqlParameter("@Mobil", SqlDbType.NVarChar, 20))
MyCommand.Parameters("@Mobil").Value = kdMobil.Value
MyCommand.Parameters.Add(New SqlParameter("@Email", SqlDbType.NVarChar, 25))
MyCommand.Parameters("@Email").Value = kdEmail.Value
MyCommand.Parameters.Add(New SqlParameter("@Datum", SqlDbType.NVarChar, 15))
MyCommand.Parameters("@Datum").Value = kdDatum.Value
MyCommand.Connection.Open()
Try
MyCommand.ExecuteNonQuery()
Message.InnerHtml = "<b>Datensatz hinzugefügt</b><br>" & InsertCmd.ToString()
Catch Exp As SQLException
If Exp.Number = 2627
Message.InnerHtml = "FEHLER: Es ist bereits ein Datensatz mit demselben Primärschlüssel vorhanden"
Else
Message.InnerHtml = "FEHLER: Datensatz konnte nicht hinzugefügt werden. Stellen Sie bitte sicher, dass die Felder richtig ausgefüllt sind"
End If
Message.Style("Farbe") = "red"
End Try
MyCommand.Connection.Close()
BindGrid()
End Sub
Sub BindGrid()
Dim MyCommand As SqlDataAdapter = new SqlDataAdapter("select * from tblKundendaten", MyConnection)
Dim DS As DataSet = new DataSet()
MyCommand.Fill(DS, "tblKundendaten")
MyDataGrid.DataSource=DS.Tables("tblKundendaten").DefaultView
MyDataGrid.DataBind()
End Sub
</script>
<html>
<head>
</head>
<body style="FONT: 10pt verdana">
<form runat="server">
<h3><font face="Verdana">Erfassung von Kundendaten</font>
</h3>
<table width="95%">
<tbody>
<tr>
<td valign="top">
<ASP:DataGrid id="MyDataGrid" runat="server" EnableViewState="false" HeaderStyle-BackColor="#aaaadd" Font-Size="8pt" Font-Name="Verdana" CellSpacing="0" CellPadding="3" ShowFooter="false" BorderColor="black" BackColor="#ccccff" Width="700"></ASP:DataGrid>
</td>
<td valign="top">
<table style="FONT: 8pt verdana">
<tbody>
<tr>
<td style="FONT: 10pt verdana" bgcolor="#aaaadd" colspan="2">
Neuen Kunden hinzufügen:</td>
</tr>
<tr>
<td nowrap="nowrap">
Int-nr:
</td>
<td>
<input id="kdintnr" type="text" value="000-00-0000" runat="server" /></td>
</tr>
<tr>
<td>
Anrede</td>
<td>
<input id="kdAnrede" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Titel</td>
<td>
<input id="kdTitel" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td nowrap="nowrap">
Nachname:
</td>
<td>
<input id="kdNachname" type="text" value=" " runat="server" /></td>
</tr>
<tr nowrap="nowrap">
<td>
Vorname:
</td>
<td>
<input id="kdVorname" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Adresszusatz</td>
<td>
<input id="kdAdresszusatz" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Geburtstag</td>
<td>
<input id="kdGeburtstag" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Strasse</td>
<td>
<input id="kdStrasse" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Postleitzahl:
</td>
<td>
<input id="kdPLZ" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Ort:
</td>
<td>
<input id="kdOrt" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Land</td>
<td>
<input id="kdLand" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Telefon:
</td>
<td>
<input id="kdTelefon" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Telefax</td>
<td>
<input id="kdTelefax" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Mobile </td>
<td>
<input id="kdMobil" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Email </td>
<td>
<input id="kdEmail" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
Datum</td>
<td>
<input id="kdDatum" type="text" value=" " runat="server" /></td>
</tr>
<tr>
<td>
</td>
<td style="PADDING-TOP: 15px">
<input type="submit" value=" Kunden hinzufügen" runat="server" onserverclick="AddKunden_Click" />
</td>
</tr>
<tr>
<td style="PADDING-TOP: 15px" align="middle" colspan="2">
<span id="Message" runat="server" enableviewstate="false"></span></td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</form>
</body>
</html>
