mhh.... liegt wohl auch noch der hase begraben ... habe in meiner control
gar keine klasse erzeugt...
das ist der ganze code meiner teilnehmer.ascx ...:
<%@ Control Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">
Sub anonym_CheckedChanged(sender As Object, e As EventArgs)
If(anonym.checked)Then
changeEingabe(false)
Else
changeEingabe(true)
End If
End Sub
'Aktiviert / Deaktiviert Eingabefelder
Sub changeEingabe(status As boolean)
firmaLb.Enabled = status
firma.Enabled = status
nameLb.Enabled = status
name.Enabled = status
vorname.Enabled = status
funktionLb.Enabled = status
funktion.Enabled = status
telefonLb.Enabled = status
telefon.Enabled = status
End Sub
'Funktion schreibt Daten in die DB - liefert 0 wenn ok, ansonsten -1
Function insertData(connstr As String) As Integer
If(anonym.checked)Then
Session("TeilnehmerID") = "anonym"
If(email_info.checked)Then
If page.isValid Then
Dim conn As New OleDbConnection(connStr)
conn.Open()
Dim sqlInsert As String
sqlInsert = "INSERT INTO informieren VALUES (" &
email.Text.Trim() & ")"
Dim cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = sqlInsert
cmd.ExecuteNonQuery()
conn.Close()
Else
return -1
End If
End If
return 0
Else
If page.isValid Then
'Erzeugen der Teilnehmer-ID
Dim jetzt As datetime
jetzt = datetime.Now
Dim teilnehmerID As String
teilnehmerID = jetzt
teilnehmerID = teilnehmerID.Replace(".","")
teilnehmerID = teilnehmerID.Replace(":","")
teilnehmerID = teilnehmerID.Replace(" ","")
Session("TeilnehmerID") = teilnehmerID
Dim conn As New OleDbConnection(connStr)
conn.Open()
Dim sqlInsert As String
sqlInsert = "INSERT INTO Umfrage VALUES (" _
& teilnehmerID & "," _
& name.Text.Trim() & "," _
& vorname.Text.Trim() & "," _
& funktion.Text.Trim() & "," _
& email.Text.Trim() & ")"
Dim cmd As New OleDbCommand()
cmd.Connection = conn
cmd.CommandText = sqlInsert
cmd.ExecuteNonQuery()
If(email_info.checked)Then
cmd.CommandText = "INSERT INTO informieren VALUES (" &
email.Text.Trim() & ")"
cmd.ExecuteNonQuery()
End If
conn.Close()
return 0
Else
return -1
End If
End If
End Function
</script>
<table class="cssTabelle" style="WIDTH: 508px; HEIGHT: 362px"
cellspacing="10" cellpadding="5" width="508" align="center">
<tbody>
<tr class="cssTabelleHead">
<td colspan="3">
<p>
<strong><u>Angabe Ihrer Daten:</u></strong>
</p>
</td>
</tr>
<tr>
<td width="150">
<asp:Label id="firmaLb"
runat="server">Firma:</asp:Label></td>
<td colspan="2">
<asp:TextBox id="firma" runat="server" Width="300px"
MaxLength="200"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">
<asp:Label id="nameLb" runat="server">Name /
Vorname:</asp:Label></td>
<td colspan="2">
<asp:TextBox id="name" runat="server" Width="150px"
MaxLength="200"></asp:TextBox>
<asp:TextBox id="vorname" runat="server" Width="149px"
MaxLength="200"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">
<asp:Label id="funktionLb" runat="server">Funktion /
Abteilung:</asp:Label></td>
<td colspan="2">
<asp:TextBox id="funktion" runat="server" Width="300px"
MaxLength="200"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">
<asp:Label id="telefonLb"
runat="server">Telefon:</asp:Label></td>
<td colspan="2">
<asp:TextBox id="telefon" runat="server" Width="200px"
MaxLength="200"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">
<asp:Label id="emailLb"
runat="server">E-Mail:</asp:Label></td>
<td colspan="2">
<asp:TextBox id="email" runat="server" Width="200px"
MaxLength="200"></asp:TextBox>
</td>
</tr>
<tr>
<td width="150">
</td>
<td colspan="2">
</td>
</tr>
<tr>
<td colspan="3">
<asp:CheckBox id="anonym" runat="server" Text="ich m�chte
anonym bleiben" OnCheckedChanged="anonym_CheckedChanged"
AutoPostBack="True"></asp:CheckBox>
</td>
</tr>
<tr>
<td colspan="3">
<asp:CheckBox id="email_info" runat="server" Text="ich
m�chte via E-Mail �ber die Ergebnisse informiert werden"
OnCheckedChanged="anonym_CheckedChanged"></asp:CheckBox>
</td>
</tr>
</tbody>
</table>
----- Original Message -----
From: "Andreas Rudischhauser (N)" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, February 17, 2004 9:24 PM
Subject: AW: [Asp.net] projekt start
Du musst den Datentyp der Variable schon richtig angeben, sprich du
musst das Control beim Laden auf deine Codebehind Klasse casten.
Ich kann zwar kein VB.NET aber es m�sste ungef�hr so gehen
Dim teilnehmer As deineteilnehmercodebehindeklasse
teilnehmer =
(deineteilnehmercodebehindeklasse)LoadControl("teilnehmer.ascx")
-----Urspr�ngliche Nachricht-----
Von: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Im
Auftrag von Thomas Beckert
Gesendet: Dienstag, 17. Februar 2004 21:05
An: [EMAIL PROTECTED]
Betreff: Re: [Asp.net] projekt start
das ist der code, den ich bisher habe:
Sub Page_Load(Sender As Object, E As EventArgs)
If Not page.isPostBack Then
Session("Frage") = 0
End If
Dim teilnehmer As Control
teilnehmer = LoadControl("teilnehmer.ascx")
fragenAuswahl.Controls.Add(teilnehmer)
End Sub
'L�dt das n�chste Control in den Place Holder
Sub Weiter_Click(sender As Object, e As EventArgs)
Select Case Session("Frage")
Case 0
Session("Frage") = Session("Frage")+1
fragenAuswahl.insertData(ConnectStrings.OleDBConnectionString())
Dim nextPage As Control
nextPage = LoadControl("frage1.ascx")
fragenAuswahl.Controls.Add(nextPage)
Case 1
Case 2
Case Else
End Select
End Sub
sobald der weiter-button gedr�ckt wird, rufe ich in dem control eine
insert-anweisung auf, die mir die daten in die db schreibt. die liefert
0
zur�ck, wenn es gefunzt hat, ansonsten -1. (muss ich noch abfangen).
wenn 0, dann lade n�chstes control rein ...
soviel zur theorie...
----- Original Message -----
From: "Alexander Zeitler" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, February 17, 2004 9:13 PM
Subject: RE: [Asp.net] projekt start
>
>
> > mh... noch eine frage -
> > wie greife ich denn auf funktionen von dem control zu, den ich in
den
page
> > holder geladen habe ? ???
> >
>
> Du hast doch das Control schon als Objekt, damit
> kannst Du auch auf dessen Members zugreifen.
>
> Was hast Du genau vor? Wie sieht der Code rund
> ums LoadControl aus?
>
> Gruss
>
> Alex
>
>
> _______________________________________________
> Asp.net mailing list
> [EMAIL PROTECTED]
> http://www.glengamoi.com/mailman/listinfo/asp.net
>
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
_______________________________________________
Asp.net mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/asp.net
