hi Leute.
Hoffe mir kann hier jemand helfen, ich hab ein Problem.
Die asp seite funktioniert bis jetzt einwandfrei nur wenn ich daten per formular auf die sql datenbank übergeben will klappt es nicht
hier mal der code
<%@ 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>
danke!
Gruß Liberado
