cartman1991

21. Oktober 2009

Servus,

Ich hab in einem Verzeichnis mehrere User-Ordner, die bei der Registration mit erstellt werden. In jeden Ordner wird eine Standard-Index.php reinkopiert, in der Variablen stehn, welche aus der Datenbank ausgelesen werden sollen.

Anhand der Ordnernames ermittel ich den Usernamen, des Users dessen Datensatz ausgegeben werden soll.

Jetzt hab ich das ganze so versucht:



$sql = "SELECT FROM tabellenname WHERE 'Username' = '".$username."'";

$rs = mysql_query($sql) or die ("Die Daten konnten nicht geladen werden");

$userdaten = mysql_fetch_array($rs);



$username = $userdaten["username"];

$vorname = $userdaten["vorname"];

.                 .              .             .

.                 .              .             .

.                 .              .             .

.                 .              .             .


?>


<table>

    <tr><td>

            <?php echo "$username"; ?>

    </td></tr>

</table>


usw... 

[/PHP]

Und da ich jetzt denke ich hab mich unverständlich formuliert kommt noch n Beispiel

z.B.

http://wwww.meineSeite.de/profil/Cartman1991/

Mit

[PHP]basename($_SERVER['REQUEST_URI']);

hol ich mir den Usernamen.

Jetzt soll die Tabelle nach dem Usernamen "Cartman1991" durchsucht werden und diesen Datensatz ausgeben.

Danke schon mal im voraus und entschuldigt die nicht so verständnisvolle Beschreibung :X

Mfg Cartman

20. Oktober 2009

Mahlzeit

Ich schreibe gerade ein Registrierungsformular, bei dem nach der Überprüfung der Daten einen persönlichen User-Ordner erstellt. Dieser persönliche Ordner soll in einem Unterverzeichnis, welches ich mit dem root-user von Ubuntu erstellt hab.

Hab dem Ordner Testweise die Rechte 777 gegeben.

Zum erstellen des Ordners verwende ich das hier:

Formular:



       <form action"test.php" method="post">

<input type="text" name="verzeichnis">

<input type="submit">


</form>

[/PHP]

PHP-Teil:

[PHP]
$verzeichnis = $_POST['verzeichnis'];
$directory = "/profil/$verzeichnis";

if( mkdir ("$directory", 0777))
{
echo "Verzeichnis erstellt!";
}

Wenn ich nun versuche ein Verzeichnis zu erstellen bekomme ich die Fehlermeldung:

"Warning: mkdir() [function.mkdir]: Permission denied in /var/www/test/reg_w.php on line 152"

Hoffe ihr könnt mir helfen,

Mfg Cartman

7. Oktober 2009

Moin,

Versuch doch mal die alten Arbeitsspeicher mit der neuen Grafikkarte und umgekehrt, damit n Hardwaredefekt ausgeschlossen ist

Mfg Cartman

24. September 2009

Moin,

Hab mir den Artikel auch mal durchgelesen, doch darin steht

Wenn Sie das nächste Mal Windows neu aufsetzen, brauchen Sie nur für fünf Minuten dabei zu sein.

Heisst, du stellst den ganzen Sums Netzwerkkonfiguration, PcName etc... davor ein und lässt es dann alleine durchlaufen.

Dauern tut's trotzdem noch so lang

mfg

30. Juli 2009

Nein, gestern ging's auch noch, und als ich heut dann wieder n test machen wollte ging's nicht mehr und hab seit gestern nicht's am Quellcode geändert

30. Juli 2009

Hab grad mal

If e.KeyCode = Keys.Up Then

mit

If e.KeyCode = Keys.F10 Then

ersetzt, so funktionierts, kann ich an den Pfeiltasten vllt. irgendwas verstellt habn?!

30. Juli 2009

Danke für den Tipp

& ja ist er, hab eben nochmal nachgesehn

Gibt's vllt. noch eine Alternative zum KeyDown?

30. Juli 2009

Kennt ihr vllt. irgend n Geschäft in den man mal so ne Brille testen könnte?

30. Juli 2009

Hab jetzt mal "Keypreview = True" extra nochmal auf nen Button gelegt, aber hat auch nichts gebracht.

& Anbei noch eine Frage, wenn ich ein kleines Panel erzeuge,

Code:


  Dim Element As New Panel


     With Element

            .BackColor = Color.Green



            .Size = New Size(10, 10)

            .Visible = True


        Berechnen:

            .Location = New Point(Rnd() * 300, Rnd() * 300)

            If Element.Location.X > 340 Or Element.Location.X < 10 Then

                GoTo Berechnen

            ElseIf Element.Location.Y < 290 Or Element.Location.Y > 10 Then

                GoTo Berechnen

            End If

            Me.Controls.Add(Element)

        End With

& Ich erzeuge mehrere, werden diese dann automatisch nummeriert oder weisst jemand wie ich jedes panel selbst ansprechen kann?

30. Juli 2009

Nein D:

Aber an was könnte das denn dann liegen? :S

29. Juli 2009

Tach,

Ich hab folgendes Problem und zwar möchte ich mein Panel2 mit den Pfeiltasten bewegen, das ganze hab ich so probiert:

Bsp:


Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown


'// Timer für Bewegung nach Oben an


        If e.KeyCode = Keys.Up Then

            timRunter.Enabled = False

            timRechts.Enabled = False

            timOben.Enabled = True

            timLinks.Enabled = False

....

& hier noch der Timer:


   Private Sub timOben_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timOben.Tick

        Panel2.Location = New Point( _

        Panel2.Location.X, _

        Panel2.Location.Y - 10)


        If Panel2.Top = Panel1.Top Then

            MsgBox("Leider verloren")

            timRunter.Enabled = False

            timRechts.Enabled = False

            timOben.Enabled = False

            timLinks.Enabled = False


            Panel2.Location = New Point(200, 200)

        End If

    End Sub

Jetzt wenn ich den Debug-Modus starte und eine Pfeiltaste drücke, passiert überhaupt nicht's :S

Hoffe könnt mir helfen,

mfg Cartman

29. Mai 2009

Benutze Vb .Net, hab es mit """ versucht, aber dann is alles nach dem mittleren " rot dargestellt

z.B. textbox1.text.split(""") dabei wird dann textbox1.text.split(""")

29. Mai 2009

Moin,

Hab mal wieder n Problem/Frage,

Wie splitte ich bei Anführungszeichen?

z.B.

<meta name="title" content="Hier der Titel den ich angezeigt bekommen möchte">

Danke

Mfg cartman

28. Mai 2009

Mahlzeit

Hier mein nächstes Problem, ich möchte die Quellcode-Dateien mit einer fortlaufender Nummerierung speichern, der Code sieht bis jetzt so aus:



        Dim fNummer As Integer

        Dim yName As String

        Dim syName As String



yName = "QuelltextDownload" & "(" & fNummer & ")" & ".txt"


Nummerieren:

        fNummer = fNummer + 1

        If My.Computer.FileSystem.FileExists("C:\Temp\" & yName) Then

            Label1.Text &= yName & vbCrLf

            GoTo Nummerieren

        Else

            Label1.Text = yName

            syName = yName

        End If

Sollte jetzt nur die Namen erstmal geben, doch wenn ich den Button betätige hängt sich alles auf ohne jegliche Fehlermeldung.. :S

27. Mai 2009

Danke, hat super geklappt!

 teil = eingabe.Split("'")

                teil(0) = ""

                teil(1) = ""

                teil(2) = ""

                txtQuellcode.Text &= "video_id:" & teil(3)

                teil(4) = ""

                txtQuellcode.Text &= vbCrLf & "l:" & teil(5)

                teil(6) = ""

                txtQuellcode.Text &= vbCrLf & "t:" & teil(7)

27. Mai 2009

Moin,

Mein Problem ist, dass ich einen bestimmten String zwischen zwei ' heraus... trennen?! möchte und das kommt öfter in einer Zeile vor.

Bsp.:

{hl:'en',video_id:'Bh26zOjIh9I',l:'260',t:'OEgsToPDskKSvBvEz9yl_b1O-WlRxUXS',sk:'0PIQQCthXffjlTcvZENpKQC'};

So steht das in meiner Textbox, das was dabei rauskommen sollte, sollte in etwa so aussehen:


video_id:'Bh26zOjIh9I'

l:'260'

t:'OEgsToPDskKSvBvEz9yl_b1O-WlRxUXS'

Doch ich komme nicht darauf wie das funktionieren soll :|

Mfg Cartman

23. April 2009

Wenn ich ehrlich bin hab ich mir das Login-Script noch nie angesehen & als Azubi im ersten Jahr denk ich, darf ich das auch nicht ohne weiteres einfach mit einfügen.

Weil wir nur ein paar von uns ausgewählten Updates verteilen wollen.

Sollen dann auch gleich sich selbstständig installieren, sodass die Benutzer es gar nicht mitbekommen welche Updates installiert werden, da wir ziemliche Faule Säcke in der Firma haben ^^

23. April 2009

Ich möchte das Programm danach per E-Mail an alle Pc's in der Firma senden, deswegen bin ich mir nicht sicher ob es dann auch jeder im selben Verzeichnis öffnet.

23. April 2009

Guten Morgn

1. Ich möchte in vb 2008 ein Programm schreiben, das abfrägt ob neue Windows-Updates verfügbar sind, wenn ja, dann soll der es die Updates gleich downloaden und installieren, leider weiss ich nicht wie ich das mache.

2. Möchte ich eine exe,- & mehrere Batchdateien in den system32 Ordner kopieren, das versuch ich mit z.B.


If Not File.Exists("C:\Windows\system32\devcon32.exe") Then

            My.Computer.FileSystem.CopyFile("devcon32.exe", "C:\Windows\system32\devcon32.exe")

Dabei bekomme ich aber immer wieder die Fehlermeldung, dass die Datei nicht existiert, manchmal beim kopieren aber auch manchmal beim starten der Datei aus dem system32-Ordner.

Mfg Cartman

26. März 2009

Danke

Das klappt auch alles ganz gut, nur kommt die Meldung erst nachdem ich komplett durch das andere Panel durchgefahren bin, jedenfalls sehr verspätet ^^

Gibt es auch Möglichkeit den Bereich auf dem das Panel sich bewegen kann auch einzuschränken?

Also nur nicht nur in nem Viereck sondern z.B. in nem Labyrinth

24. März 2009

Ouh Man D:

Danke! ^^

& noch ne Frage,

Wie löse ich etwas aus wenn mein Panel jetzt ein anderes berührt?

z.B. Ich streife mit meinem panFigur, ein anders festes Panel & dann soll eine MsgBox auftauchen

Mit If panFigur.location = <anders panel>, bla bla bla

geht's schonmal nicht :|

24. März 2009

Tach,

Ich hab mal wieder ein Problem und zwar möchte ich mein Panel bewegen, wobei ich den Timer per Tastendruck starte, der dann mein Panel bewegt.

Nur weiss ich nicht wie ich den Timer abschalte sobald ich die Taste loslasse

Hier mal der Code:


Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        timRunter.Enabled = False

        timRechts.Enabled = False

        timOben.Enabled = False

        timLinks.Enabled = False

    End Sub


    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown


        If e.KeyCode = Keys.Up Then

            timRunter.Enabled = False

            timRechts.Enabled = False

            timOben.Enabled = True

            timLinks.Enabled = False


        ElseIf e.KeyCode = Keys.Down Then

            timRunter.Enabled = True

            timRechts.Enabled = False

            timOben.Enabled = False

            timLinks.Enabled = False


        ElseIf e.KeyCode = Keys.Right Then

            timRunter.Enabled = False

            timRechts.Enabled = True

            timOben.Enabled = False

            timLinks.Enabled = False


        ElseIf e.KeyCode = Keys.Left Then

            timRunter.Enabled = False

            timRechts.Enabled = False

            timOben.Enabled = False

            timLinks.Enabled = True

        End If


    End Sub


    Private Sub timRunter_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timRunter.Tick

        panFigur.Location = New Point( _

        panFigur.Location.X, _

        panFigur.Location.Y + 2)

    End Sub


    Private Sub timRechts_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timRechts.Tick

        panFigur.Location = New Point( _

                panFigur.Location.X + 2, _

                panFigur.Location.Y)

    End Sub


    Private Sub timOben_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timOben.Tick

        panFigur.Location = New Point( _

        panFigur.Location.X, _

        panFigur.Location.Y - 2)

    End Sub


    Private Sub timLinks_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timLinks.Tick

        panFigur.Location = New Point( _

        panFigur.Location.X - 2, _

        panFigur.Location.Y)

    End Sub


End Class

Mfg Cartman

18. März 2009

War alles ganz normal,

Benutze VB Express Edition 2008

Beim Überwachen läuft alles ganz normal ab.

Der Wert steht von Anfang an auf False

Wenn ich ihn auf True gesetzt hat, hat er's sofort wieder auf False gesetzt

Es sind mehrere GroupBox'en untereinander, die ich anzeigen möchte.

Hab sie jetzt mal nebeneinander aufgereiht und es hat funktioniert.

Weisst du an was es gelegen haben könnte?

18. März 2009

Heyo,

Bin auch n blutiger Anfänger wie du ^^

Schnupper doch mal in dieses e-book rein

>e-book<

Nach den ersten paar Tagen kannste dann auch schon n Taschenrechner ^^

Mfg Cartman

18. März 2009

Danke für deine Antwort.

Ja hab ich, aber beim Überwachen konnte ich keine Fehler entdecken.

kann es vllt. auch an einer falschen Einstellung bei der GroupBox liegen?

Anmelden

Profile

Forum

Downloads

Kalender

Blogs

Shop

Beiträge von cartman1991

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte