Beiträge von Allpa

Allpa

Hallo ich habe wein kleines Problem mit der Ausgabe von Daten ich wollte das Beispiel eines Verwaltungs Programm von http://www.galileocomputing.de/katalog/bueche…4413A4FUg-AulGg nachbauen aber nur mit Fragen nun kann ich aber nicht die werte aus der Listbox in die Textbox einfügen: Hier der Code:

Code

Private Sub lst_anzeige_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_anzeige.SelectedIndexChanged
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
            "select * from Level1 " _
            & "where Frage = " _
            & frage(lst_anzeige.SelectedIndex)


            reader = cmd.ExecuteReader()
            reader.Read()


            txt_frage.Text = reader("Frage")
            txt_a.Text = reader("A")
            txt_b.Text = reader("B")
            txt_c.Text = reader("C")
            txt_d.Text = reader("D")
            cmb_auswahl.Text = reader("Richtig")
            reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub

Alles anzeigen

Könnt ihr mir dabei helfen?

Gruß Michael

Der Restliche Code:

Code

Public Class frm_100er_frage
    Dim con As New SqlServerCe.SqlCeConnection
    Dim cmd As New SqlServerCe.SqlCeCommand
    Dim reader As SqlServerCe.SqlCeDataReader
    Dim frage As New ArrayList


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_einfuegen.Click
        Dim anzahl As Integer



        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
                "Insert into Level1 (Frage, A, B, C, D, Richtig) values ('" & _
               txt_frage.Text & "', '" & _
               txt_a.Text & "', '" & _
               txt_b.Text & "', '" & _
               txt_c.Text & "', '" & _
               txt_d.Text & "', '" & _
               cmb_auswahl.Text & "')"


            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde eine neue Frage eingefügt")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
        AlleSehen()
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_ansehen.Click
        AlleSehen()
    End Sub


    Sub AlleSehen()
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = "select * from Level1"
            Ausgabe()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        txt_frage.Text = ""
        txt_a.Text = ""
        txt_b.Text = ""
        txt_c.Text = ""
        txt_d.Text = ""
        cmb_auswahl.Text = ""
    End Sub


    Sub Ausgabe()
        reader = cmd.ExecuteReader()
        lst_anzeige.Items.Clear()
        frage.Clear()
        Do While reader.Read()
            lst_anzeige.Items.Add(reader("Frage") & " - " _
               & reader("A") & " - " _
               & reader("B") & " - " _
               & reader("C") & " - " _
               & reader("d") & " - " _
               & reader("Richtig"))
            frage.Add(reader("Frage"))
        Loop
        reader.Close()
    End Sub


Private Sub lst_anzeige_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lst_anzeige.SelectedIndexChanged
        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
            "select * from Level1 " _
            & "where Frage = " _
            & frage(lst_anzeige.SelectedIndex)


            reader = cmd.ExecuteReader()
            reader.Read()


            txt_frage.Text = reader("Frage")
            txt_a.Text = reader("A")
            txt_b.Text = reader("B")
            txt_c.Text = reader("C")
            txt_d.Text = reader("D")
            cmb_auswahl.Text = reader("Richtig")
            reader.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()
    End Sub


    Private Sub rdb_aendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_aendern.Click
        Dim anzahl As Integer
        If txt_frage.Text = "" Then
            MsgBox("Bitte einen Datensatz auswählen " _
               & "und mindestens eine Frage " _
               & "eintragen")
            Exit Sub
        End If


        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
               "update level1 set " & _
               "Frage = '" & txt_frage.Text & "', " & _
               "A = '" & txt_a.Text & "', " & _
               "B = '" & txt_b.Text & "', " & _
               "C = '" & txt_c.Text & "', " & _
               "D = '" & txt_d.Text & "', " & _
               "Richtig = '" & cmb_auswahl.Text & "', " & _
               "where Frage = " _
                  & frage(lst_anzeige.SelectedIndex)


            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde ein Datensatz geändert")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        AlleSehen()
    End Sub




    Private Sub rdb_loeschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdb_loeschen.Click
        Dim anzahl As Integer
        If txt_frage.Text = "" Then
            MsgBox("Bitte einen Datensatz auswählen")
            Exit Sub
        End If


        If MsgBox("Wollen Sie den ausgewählten " _
              & "Datensatz wirklich löschen?", _
              MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If


        Try
            con.ConnectionString = "Data Source=Fragen-Datenbank.sdf"
            cmd.Connection = con
            con.Open()
            cmd.CommandText = _
               "delete from level " & _
               "where Frage = " & _
               frage(lst_anzeige.SelectedIndex)
            'MsgBox(cmd.CommandText) 
            anzahl = cmd.ExecuteNonQuery()
            If anzahl > 0 Then
                MsgBox("Es wurde ein Datensatz gelöscht")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()


        AlleSehen()


    End Sub
End Class

Alles anzeigen

Allpa

Schonmal vielen Dank!
Jetzt wird der Footer korrekt am unteren Rand angezeigt,
allerdings bekom ich es nicht hin, dass mein Hauptfenster (#start) nun auch genau bis zum Footer geht...
Kann ich das irgendwie mit fload lösen, oder wie geht das am besten?

Im Prinzip soll die Seite immer so lange sein wie der Inhalt, aber auf jeden Fall immer die ganze Seite ausfüllen.

Allpa

http://www.stage-technics.de/
http://www.stage-technics.de/test/stylesheet.css

Allpa

Bringt leider nichts!
Auch das Hintergrundbild es Footers wird nicht angezeigt

Allpa

Hallo zusammen!
Mich kämpfe mit dem gleiche Problem, mein Footer will einfach nicht nach unten, obwohl ich alle Angaben in dem link befolgt habe!

Könnt ihr mal schaun ob ihr meinen Fehler findet?

Hier meine CSS-Datei:

CSS

* {
margin: 0;
pading: 0;
}
html {
height : 100%;
}
 
body {
background-color : #b3aeab;
font-family : Verdana;
color : #555555;
font-size : 0.8em;
height : 100%;
}
 
#wrapper {
position: relative;
border : 0 ;
width : 1024px;
top : 0px;
margin-left : -512px; 
left : 50%; 
overflow : no;
background-color : #b3aeab;
min-height: 100%;
height: auto !important;
height: 100%;
}
 
#start { 
position : absolute; 
border : 0; 
left : 0px; 
top : 506px; 
width : 1024px; 
overflow : no;
background-image : url(dateien/design/start.jpg); 
background-color : #ffffff; 
padding: 0em 0em 2.5em 0em;
} 
 
#header { 
position : absolute; 
border : 0; 
left : 22px; 
top : 0px; 
width : 980px; 
height : 110px; 
background-image : url(dateien/design/header.jpg); 
background-color : #ffffff; 
} 
 
#links { 
position : absolute; 
border : 0; 
left : 0px; 
top : 0px; 
width : 22px; 
height : 506px; 
background-image : url(dateien/design/links.jpg); 
background-color : #b2adaa; 
} 
 
#rechts { 
position : absolute; 
border : 0; 
left : 1002px; 
top : 0px; 
width : 22px; 
height : 506px; 
background-image : url(dateien/design/rechts.jpg); 
background-color : #b2adaa; 
} 
 
#bild { 
position : absolute; 
border : 0; 
left : 22px; 
top : 126px; 
width : 980px; 
height : 380px; 
background-image : url(dateien/design/bild7.jpg); 
background-color : #ffffff; 
} 
 
#balken { 
position : absolute; 
border : 0; 
left : 22px; 
top : 110px; 
width : 980px; 
height : 16px; 
background-image : url(dateien/design/balken.jpg); 
background-color : #ffffff; 
 
#footer { 
position : absolute; 
border : 0px; 
left: 0px;
bottom : 0; 
width : 1024px; 
margin-top: 15px;
background-image : url(dateien/design/start.jpg); 
background-color : #ffffff;

Alles anzeigen

und meine HTML Datei:

HTML

<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd[/URL]">
<!-- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
    "[URL]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[/URL]"> -->
<html xmlns="[URL]http://www.w3.org/1999/xhtml[/URL]">
 
<head>
<link rel="stylesheet" type="text/css" href="stylesheet.css" />
<meta name="description" content="stage-technics Homepage" />
<meta name="author" content="Patrick Allinger" />
<meta name="date" content="2009-05-10" scheme="DCTERMS.W3CDTF" />
<meta name="language" content="de" scheme="DCTERMS.RFC3066" />
<meta name="rights" content="Alle Rechte liegen beim Autor" />
<meta name="robots" content="index, follow" />
<meta http-equiv="content-type" content="text/css; charset=ISO-8859-1" />
 
<title>stage-technics</title>
 
</head>
<body>
 
<div id="wrapper">
<div id="links"></div>
<div id="rechts"></div>
<div id="header"></div>
<div id="balken"></div>
<div id="bild"></div>
<div id="start">
<br>
Test Test Test Test Test
</div>
<div id="footer">Footer Test</div>
</div>
 
</body>
</html>

Alles anzeigen

Schonmal vielen Dank!

Allpa

Sobald die Polizisten auf dem Bild aber eindeutg zu indetifizieren sind, brauchst du ein sogenantes Modell-Reales, also einen Vetrag zwischen die dem Fotografen und dem Polizisten, damit du es veröffentlichen darfst!
Dabei ist völlig egal ob es sich um eine öffentliche Veranstaltung gehandelt hat oder nicht.

Allpa

Der Papst stirbt und kommt an die Himmelstür. Petrus begrüßt ihn und fragt nach seinem Namen. "Ich bin der Papst!"
"Papst, Papst", murmelt Petrus. "Tut mir leid, ich habe niemanden mit diesem Namen in meinem Buch."
"Aber... ich bin der Stellvertreter Gottes auf Erden!" "Gott hat einen Stellvertreter auf Erden?", sagt Petrus verblüfft. "Komisch, hat er mir gar nichts von gesagt..."
Der Papst läuft krebsrot an. "Ich bin das Oberhaupt der Katholischen Kirche!"
"Katholische Kirche... nie gehört", sagt Petrus.
"Aber warte mal nen Moment, ich frag den Chef."
Er geht nach hinten in den Himmel und sagt zu Gott: "Du, da ist einer, der sagt, er sei dein Stellvertreter auf Erden. Er heißt Papst. Sagt dir das was?"
"Nee", sagt Gott. "Kenn ich nicht. Weiß ich nichts von. Aber warte mal, ich frag Jesus.
Jeeesus!"
Jesus kommt angerannt.
"Ja, Vater, was gibts?"
Gott und Petrus erklären ihm die Situation.
"Moment", sagt Jesus, "ich guck mir den mal an. Bin gleich zurück."
Zehn Minuten später ist er wieder da, Tränen lachend. "Ich fass es nicht", japst er. "Erinnert ihr euch an den kleinen Fischerverein, den ich vor 2000 Jahren gegründet habe? Den gibts immer noch!"

Allpa

Holland macht in letzter Zeit ein echt starkes Spiel!
Und welche Mannschaf hat sonst 6 weltklasse Stürmer???

Das wäre auch mein Tip für den EM!

Allpa

8mm ist in Ordnung!

Allpa

Laminat verlegen ist wirklich keine Kunst, die einzelnen Platten werden nur ineinander geschoben und verhacken sich dabei! Das kann man sogar mit 2 linken Händen!

Was du vll noch einrechnen solltest sind Sockelleisten.
Ich würde dir auserdem empfehlen das laminat beim Fachhändler zu kaufen und nicht im Inet. Ersten kannst du dir die Farben dort viel besser anschauen und zum anderen gibt es dort (meistens kostenlos) das passende Werkzeug zum ausleihen.

Allpa

Zwischen mögen und müssen liegt halt leider ein Unterschied!
Hab auch nicht recht Lust heute Nacht noch Bäume zu zersägen ...

Allpa

Das kommt jetzt vor allem drauf an ob bei dem Laminat eine Trittschalldämmung mit dabei ist, und wie stark es ist!

Denn eine Trittschalldämmung bzw. eine Dampfsperre solltest du auf jeden Fall auch verlegen. Je stärker das Laminat desto öfters kann es abgeschliffen werden.

Für 8€ bekommt man auf jeden Fall schon was sehr vernünftiges, geh doch am besten Mal in das nächste Fachgeschäft und lass dich beraten!

Allpa

und Arno mal wieder im Dienst zu dieser späten Stunde?

Hab irgenwie auch das Gefühl das ich heute Nacht noch raus muss!

Allpa

Zitat von -Bambino-

Das erste war n Abseitstor... xD

Abseits ist es erst, wenn der Schiri es pfeift!
Da kann er auch 10 Meter hinter dem letzen Mann gestanden sein, solange es nicht gepfiffen wird ist es auch kein Abseits!

Und alleine schon die Tatsache das wir das hier diskutieren müssen zeigt doch, dass es für den Schiri nicht möglich war es genau zu erkennen.
Dann heißt es nunmal im Zweifel für den Angreifer!

Es war kein Abseits

Allpa

wer hat jetzt gewonnen, und was ist die Zahl?

Allpa

inzwischen ist auch 0800 sehr beliebt! z.b. 0800hotels.de ...

Allpa

Also aufhängen würde ich es auf jeden Fall noch in den Jugendhäusern in eurer Umgebung!

Ansonsten fehlt mir noch folgendes:
- was wird beim Casting verlangt?
- wieviele Konzerte... habt ihr und in welcher Größenordnung?
- wie oft probt ihr?

Telefonnummer auf keinen Fall aushängen, selbst eine Email-Adresse ist schon riskant!

Allpa

ist meiner meinung nach auch die sicherste Quelle!

Allpa

Du gest immer über die Zurücktaste zurück zur Themenübersicht... richtig???

Dann werden die einzelnen Threads nicht als gelesen markiert, wenn du dann aber das Forum aktualisierst oder oben über die Links zurück gehst, sind alle als gelesen markiert, die du dir zuvor angesehen hast.

Brauchst dich also nicht immer ausloggen!

Allpa

ja, gibts aber soweit ich weiß nur bei phpBB3, außer irgendwer hat ein MOD fürs 2er gemacht!

Beiträge von Allpa

Ausgabe von Datenbankwerten von einer Listbox in eine Textbox

DIV ganz unten "anpinnen"?

DIV ganz unten "anpinnen"?

DIV ganz unten "anpinnen"?

DIV ganz unten "anpinnen"?

Fotos von Polizei-Beamten

offizieller Witz-Thread: Witze bitte hier rein

Der EM-THREAD !!! (ja, fussball )

laminat 16m² - wie teuer?

laminat 16m² - wie teuer?

Nacht Topic (22 - 7 uhr)

laminat 16m² - wie teuer?

Nacht Topic (22 - 7 uhr)

Der EM-THREAD !!! (ja, fussball )

Zahl erraten [kleines Gewinnspiel]

Domainname24.de Bedeutung?

Casting Zettel bewerten

aktuelle Google PageRank update

Themen bleiben immer ungelsen :(

Meldung über neue Antwort beim Antworten