Sunflower84

Also das mit den Hochkommas klappt leider auch nicht. Habe aber ein interessantes Phänomen entdeckt. Wenn ich dieses = entferne macht er mir keinen Fehler, erst wenn ich auf VW oder Renault klick kommt eine Fehlermeldung. Wenn ich danach das = wieder rein mache, funktioniert es. Dann kommt wenn ich Renault anklick alle Modelle außer der Golf, so wie es sein soll. Wenn ich auf anderen Webseiten surf und die Seite danach wieder aufruf funktioniert es auch noch. Aber wenn ich den Browser schließe und erneut öffne funktioniert es nicht mehr. strSQL = "SELECT * FROM ModelleT WHERE ID_Hersteller =" + strHerstellerID + " ORDER BY Modelle" Erst wenn ich den gleichen Vorgang (erst "=" löschen,speichern dann "=" einfügen,speichern...) wiederhole funktioniert es wieder. Also langsam werde ich verrückt. Kann mir das vielleicht jemand erklären? Das ist doch total unlogisch. Lg Sunflower84

Danke für die Anmerkung Aiun. Aber daran liegt es leider nicht. Lg Sunflower84

Habe es jetzt verbessert. Bekomme aber folgende Fehlermeldung: Syntaxfehler (fehlender Operator) in Abfrageausdruck 'ID_Hersteller ='. /auswahl/index7.asp, line 38 <% 'strSQL = "SELECT * FROM ModelleT ORDER BY Modelle" strHerstellerID = Request.Querystring("Hersteller") strSQL = "SELECT * FROM ModelleT WHERE ID_Hersteller = " + strHerstellerID + "ORDER BY Modelle" Set objRS = Server.CreateObject("ADODB.Recordset") [COLOR="red"]objRS.open strSQL, objCon[/COLOR] %> <!-- Selectbox für Modelle--> <select style="width:100px" onChange="document.open.submit()" name='Modelle' size='10'> <% While Not EOF if Request.Querystring("Hersteller") = 1 then While Not EOF and Err=0%> <option value='<% =objrs("ID_Modelle")%>' & '<% =objrs("ID_Hersteller")%>'><% =objrs("Modelle")%></option> <% ObjRS.MoveNext EOF = objRS.EOF Wend else ObjRS.MoveNext EOF = objRS.EOF end if wend EOF = false %> </select> Hab folgendes geändert. Denke das war ein Fehler von dir. Habe strHersteller in strHerstellerID geändert. Denke das war ein Tippfehler, oder?

Hallo Ich habe jetzt folgendes gemacht: Eine Tabelle HerstellerT mit folgenden Spalten: ID_Hersteller Hersteller 1 Renault 2 VW Eine Tabelle ModelleT mit folgenden Spalten: ID_Modelle Modelle ID_Hersteller 1 Clio 1 1 Golf 2 2 Megane 1 3 Laguna 1 Eine Tabelle PST die aber momentan nicht das Problem ist. Wenn ich auf Renault klick zeigt er mir alle Modelle an. Er soll mir aber alle außer den Golf anzeigen. Bei VW zeigt er nichts an. Kann sich jemand mal den Quelltext anschauen und mir sagen was ich falsch mache? <form name="open" action="index5.asp"> <% strDB = "Data Source=" & Server.MapPath("store.mdb") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB SET objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon strSQL = "SELECT * FROM HerstellerT ORDER BY Hersteller" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open strSQL, objCon %> <!-- Selectbox für Hersteller --> <select style="width:100px" onChange="document.open.submit()" name='Hersteller' size='10'> <% While Not EOF and Err=0%> <option value='<% =objrs("ID_Hersteller")%>'><% =objrs("Hersteller")%></option> <% ObjRS.MoveNext EOF = objRS.EOF Wend EOF = false 'ObjRS.MoveFirst %> </select> <% strSQL = "SELECT * FROM ModelleT ORDER BY Modelle" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open strSQL, objCon %> <!-- Selectbox für Modelle--> <select style="width:100px" onChange="document.open.submit()" name='Modelle' size='10'> <% [COLOR="Red"]While Not EOF if Request.Querystring("Hersteller") = 1 then While Not EOF and Err=0%> <option value='<% =objrs("ID_Modelle")%>' & '<% =objrs("ID_Hersteller")%>'><% =objrs("Modelle")%></option>[/COLOR] <% ObjRS.MoveNext EOF = objRS.EOF Wend else ObjRS.MoveNext EOF = objRS.EOF end if wend EOF = false %> </select> <% strSQL = "SELECT * FROM PST ORDER BY ID_PS" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open strSQL, objCon %> <!-- Selectbox für Modelle--> <select style="width:100px" onChange="document.open.submit()" name='PS' size='10'> <% While Not EOF and Err=0%> <option value='<% =objrs("PS")%>'><% =objrs("PS")%></option> <% ObjRS.MoveNext EOF = objRS.EOF Wend EOF = false ObjRS.MoveFirst %> </select> Lg Sunflower84

Du bist echt spitze. Habe den Code eingefügt und es klappt fast. Er gibt mir in der Spalte den Hersteller 3 mal aus obwohl er nur einmal in der Tabelle steht. In der Tabelle Modelle stehen 3 Einträge. Die gibt er mir richtig aus. Wäre lieb wenn du mir den Code mal kurz erklären könntest. Außerdem hast du mir einen Tip gegeben wie ich die Access Tabelle gestalten könnte. Dazu hätte ich auch eine Frage: Wie erstelle ich denn Fremdschlüssel in Access? Wenn ich deine Erklärung von vorhin richtig verstanden habe müssen da Fremdschlüssel rein, oder? Da in die Tabelle von PS ja die Modell_ID mit rein soll. Lg Sunflower84

Der einzige Unterschied ist, dass ich jetzt statt eine Tabelle 2 Tabellen habe. Habe mir das Tutorial zum Thema Datenbankverbindung mal durchgelsesen. Also ich fnde, dass ich das alles so gemacht habe. Lg Sunflower84

Ja, klar gibt es die, in der Tabelle HerstellerT gibt es eine Spalte ID_Hersteller und eine Spalte Hersteller. Deswegen versteh ich das ja nicht Lg Sunflower

Hab beides ausprobiert.Klappt beides nicht. Habe Hersteller in der Datenbank aber auch groß geschrieben. Trotzdem Danke. Vielleicht komm ich ja selbst noch drauf. Lg Sunflower84

Hab jetzt 2 Tabellen gemacht. Eine mit dem Namen HerstellerT und jeweils 2 Spalten und eine HerstellerT mit auch jeweils 2 Spalten. Jetzt bringt er mir folgende Fehlermeldung: ADODB.Recordset (0x800A0CC1) Ein Objekt, das dem angeforderten Namen oder dem Ordinalverweis entspricht, kann nicht gefunden werden. /auswahl/index3.asp, line 21 Hab folgendes gemacht: <% strDB = "Data Source=" & Server.MapPath("store.mdb") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB SET objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon SET objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon strSQL = "SELECT * FROM HerstellerT ORDER BY Hersteller" strSQL = "SELECT * FROM ModelleT ORDER BY Modelle" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open strSQL, objCon %> <!-- Selectbox für Hersteller --> <select name='Hersteller' size='10'> <% While Not EOF and Err=0%> [COLOR="red"]<option value='<% =objrs("Hersteller")%>'><% =objrs("Hersteller")%[/COLOR]></option> <% ObjRS.MoveNext EOF = objRS.EOF Wend EOF = false ObjRS.MoveFirst %> </select> <!-- Selectbox für Modelle --> <select name='Modelle' size='10'> <% While Not EOF and Err=0%> <option value='<% =objrs("Modelle")%>'><% =objrs("Modelle")%></option> <% ObjRS.MoveNext EOF = objRS.EOF Wend %> </select> Warum macht er denn diesen Fehler? Lg Sunflower84

Habe gerade erfahren das es als Hersteller nur Renault geben soll. Wenn ich auf Renault klick sollen die Modelle erscheinen. Danach soll zu den Modellen die ich dann wieder anklicken kann die passenden PS Zahlen in der nächsten Box erscheinen. Muss ich dann eine Tabelle mit Hersteller, eine mit Modelle und eine mit PS machen? Soll ich bei jeder Tabelle eine Spalte ID (AutoWert) einfügen mit einem Primärschlüssel? Lg Sunflower84

Super, dass klappt jetzt das er mir beide slelect Boxen füllt. Weisst du vielleicht auch wie ich es mach, dass ich z.B auf Renault in der ersten Box klick und er mir dann in der zweiten Box die Spalte Modelle_Renault anzeigt? Lg Sunflower84

Morgen wäre auch OK. Könnte ab 9 bis 16 Uhr Wie siehts bei dir morgen aus? Lg Nadine

Es könnte natürlich auch mit PHP und JAVA gemacht werden aber leider habe ich von PHP und JAVA nicht sehr viel Ahnung, aber programmiert habe ich mit beiden Sprachen schon. Aber nicht sehr viel. Die Sprache ist also eigentlich egal. Hauptsache es läuft im HG eine Access Datenbank. Lg Nadine

Das würdest du wirklich machen :beagolisc Das ist nämlich für die Firma und ich habe leider keinen der mir helfen kann Wann hast du denn am Wochenende Zeit? Also bei mir geht es eigentlich den ganzen Samstag. Lg Sunflower84

Ich habe mir den Quelltext ja schon angeschaut aber irgendwie kann ich es nicht so richtig umsetzen was die machen. Aber ich schau mal ob ich es irgendwie hin bekomme. Du kennst nicht zufällig ein Tutorial wo so etwas beschrieben wird? Großes Dankeschön nochmal. Lg Sunflower84

Hallo Also erstmal Danke für deine schnelle Antwort. Also die Hersteller schreibt er mir rein aber die Modelle nicht. Aber ich glaube ich meinte ListBox. Großes Sorry !!! Da man die Einträge alle sehen soll und wenn man z.B auf den Hersteller Audi klickt sollen in der nächsten Box nebendran die Modelle von Audi angezeigt werden. Hast du da auch so eine geniale Idee? Sorry nochmal das ich mich falsch ausgedrückt habe. Lg Sunflower84

Hi Ich habe eine MS Access Datenbank aus der ich gerne die Daten in ein select Menü rein schreiben will. Momentan gibt er mir Daten ganz normal auf der Website aus. Aber wi bekomme ich es hin das sie in einem select Menü angezeigt werden? Momentan sieht es so aus: <% strDB = "Data Source=" & Server.MapPath("store.mdb") strCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & strDB SET objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon SET objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon strSQL = "SELECT * FROM Auto ORDER BY Hersteller" strSQL = "SELECT * FROM Auto ORDER BY Modell" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open strSQL, objCon %> <table width="275"> <tr> <td><b>Automarke</b></td> <td><b>Modell</b></td> </tr> <tr> <% While Not EOF and Err=0%> <td><% =objrs("Hersteller")%></td> <td><% =objrs("Modell")%></td> </tr> <% ObjRS.MoveNext EOF = objRS.EOF Wend %> </table> <% objCon.close SET objCon = Nothing %> </td> </tr> </table> Hat da jemand eine Idee? Lg Sunflower84

Was kann ich. Hmm Also auf jeden Fall HTML und ASP Leider muss ich es mit Microsoftprodukten machen. Also werde ich eine Access Datenbank nehmen müssen. Das Frontend ist kein Problem aber wie lese ich es aus? Eigentlich müsste das doch mit ASP funktionieren, oder? Lg Sunflower84

Kennt jemand vielleicht so etwas wie ein Tutorial wo so etwas erklärt wird? Lg Sunflower84

Hallo Wie bekomme ich dieses Menü selbst hin: http://www.cityfilter.de/lieferprogramm.php und dann auf Hersteller/Modell klicken Geht das mit Javascript? Eine Datenbank brauche ich doch dazu auch, oder? Lg Sunflower84

Also ich glaube das bringt mir nichts mit dem Verlauf leeren. Wenn ich nämlich den Inhalt des Verlaufsordners manuell lösche und den IE neu starte bleibt der Verlauf trotzdem. Wird der Verlauf noch irgendwo gespeichert? Lg Sunflower84

Hallo Was für einen unten genannten Tip meinst du denn? Es wäre eigentlich kein Problem den Browser zu schließen und dann wieder aufzurufen. Lg Sunflower84

Jetzt habe ich zwar keine Fehlermeldung mehr aber mein Verlauf ist immer noch nicht leer. Hier mein Code: Option Explicit Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long Private Const WIN_LOGOFF = 0 Private Declare Function GetKeyState Lib "user32.dll" ( _ ByVal nVirtKey As Long _ ) As Integer Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _ ByVal vKey As Long _ ) As Integer Private Const VK_MENU As Long = &H12& Private Const VK_SHIFT As Long = &H10& Private Const VK_CONTROL As Long = &H11& Private Const VK_CAPITAL As Long = &H14& Private Const VK_F1 As Long = &H70& Private Const VK_F3 As Long = &H72 Private Const VK_F2 As Long = &H71 Private Const VK_F10 As Long = &H79 Private Const VK_F12 As Long = &H7B Dim s As Integer Dim m As Integer Dim h As Integer Dim sec As Integer Dim min As Integer Dim hour As Integer Dim Abbruch As Boolean Dim frmontop As Double Dim TaskID As Long Dim vShellDummy As Variant Private Sub form_load() ' Minimieren/Maximieren Buttons zur ' Laufzeit anzeigen MinMaxButton Me StartTimer ' Fenster immer im Vordergrund anzeigen TopWindow Me.hwnd End Sub Private Sub Timer1_Timer() s = s - 1 If s < 0 And m > 0 Then m = m - 1 s = 59 ElseIf m <= 0 And h > 0 And s < 0 Then h = h - 1 m = 59 s = 59 End If Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) And CBool(GetAsyncKeyState(VK_F2) And &H8000) Then m = 1 s = 0 End If If CBool(GetAsyncKeyState(VK_SHIFT) And &H8000) And CBool(GetAsyncKeyState(VK_F12) And &H8000) Then frmLogin.Visible = True End If If CBool(GetAsyncKeyState(VK_CONTROL) And &H8000) Then On Error Resume Next vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide) Call AppActivate(vShellDummy) ' Fehlerbehandlung einschalten On Error GoTo 0 'Kill "C:\Dokumente und Einstellungen\nschlapp\Lokale Einstellungen\Verlauf" End If 'If h = 0 And m = 3 And s = 0 Then 'MsgBox "15 minutes allowance are over. Please finish your work now.", vbOKOnly + vbSystemModal 'End If If s = 0 And m = 0 And h = 0 Then Label1.ForeColor = vbRed 'MsgBox (NameC1 & "abgelaufen") Timer1.Enabled = False 'Call ExitWindowsEx(WIN_LOGOFF, &HFFFF) frmLock.Visible = True End If End Sub Public Sub StartTimer() Abbruch = False Timer1.Interval = 1000 Timer1.Enabled = True 'fester Wert eintragen s = 0 m = 1 h = 0 Label1.ForeColor = vbGreen Label1.Caption = Format(h & " :" & m & " :" & s, "Long Time") 'Do 'If Abbruch = True Then Exit Do 'DoEvents 'Unload Me End Sub Unter C:\Windows gibt es bei mir auch keinen Ordner Verlauf. Hab aber auch mal mein Pfad eingeben wo mein Verlauf ist, aber das bringt auch nichts Lg Sunflower

Geht leider nicht. Hab folgendes gemacht. Die Variable deklariert und: If CBool(GetAsyncKeyState(VK_CONTROL) And &H8000) Then On Error GoTo 0 vShellDummy = Shell("command.com /c deltree /y C:\Windows\Verlauf\*.*", vbHide) Call AppActivate(vShellDummy) End if Habe ich da noch was vergessen, bekomme nämlich immer folgende Fehlermeldung: Ungültiger Prozeduraufruf oder ungültiges Argument Lg Sunflower84

Das bringt mir leider auch nichts. Da dieser Hinweis in dem Artikel steht : Hinweis: Wenn der Internetexplorer zu dieser Zeit geöffnet ist, wird die Rubrik "Heute" nicht gelöscht! Leider ist der Browser aber geöffnet. Man kann ihn auch nicht schließen da es für ein Internetcafe ist. Ich würde das ganze nämlich via Tastenkombination lösen. Lg Sunflower84