liberado

Wenn du genau lest wirst du feststellen das das garnicht meine Frage war! hab heute die Doku in 4facher Ausfertigung abgegeben und einmal die Bestätigung dazu!

Also nix in Anhang. Die haben zu mir gesagt endlich mal einer der lesen kann da es genau so in dem Zettel von da Ihk drinsteht!

Hi Leute,

steh momentan vo einem Problem.

Was kommt in die Kopf und welche infos in die Fußzeile ?

Gruß

Hi, weis jemand ab wann wir Ergebnisse bekommen? oder müssen wir die anfordern?

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