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
