Zum Inhalt springen

Chlochou

Mitglieder
  • Gesamte Inhalte

    43
  • Benutzer seit

  • Letzter Besuch

Alle Inhalte von Chlochou

  1. Guten Tag Community! Leider passt dieses Thema sowohl in Hardware wie auch in den Software Bereich Und zwar gibt es folgendes Problem mit einem HP Elitebook 8440p: Sobald das Notebook an einer Dockingstation angeschlossen ist flackert das Display. Der externe Monitor welcher an der Dockingstation angeschlossen ist jedoch NICHT. Nun habe ich es mit einer anderen Dockingstation ausprobiert. Genau das gleiche Problem. Auch wurden Display und Mainboard getauscht. Auch Treiber und das aktuellste BIOS wurden installiert. Hätte da jemand eine Idee, ausser das Notebook einzuschicken? Danke schonmals
  2. Hallo Community! Und zwar hab ich zwei Probleme bei meinem Programm. Ich lese Daten aus und schreibe diese in eine Listbox. Hier kann es sich um x beliebig viele handeln. Also können es auch 0 sein oder auch mal 4. Dies funktioniert soweit auch, jetzt möchte ich dies aber in eine Access Datenbank schreiben. Ich habe in Access den Datentyp memo gewählt. Doch wie lautet der Befehl zum alle Freigabe Daten (Items) reinzuschreiben? Gibt es eine möglichkeit das Programm in den Autostart zu packen und zu verhindern das der Benutzer es beendet kann? Danke und Gruss
  3. so wegen Internetverbindung sagte uns der Lehrer jetzt es würde so reichen. Jetzt haben wir ein DataGridView eingebunden damit wir die Mitarbeiterliste des Betriebs anzeigen können. Diese zeigt es auch an mit diesem Code: Dim con3 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=F:\Projekt\Datenbank\DB_Meldungen.accdb") Dim cmd3 As New OleDb.OleDbCommand cmd3.Connection = con3 cmd3.CommandText = "select * from Mitarbeiter" Dim data3 As New OleDb.OleDbDataAdapter(cmd3) Dim ds3 As New DataSet data3.Fill(ds3) dgvMitarbeiterliste.DataSource = ds3.Tables(0) Jetzt wollten wir aber das wir den Datensatz löschen und bearbeiten können sowie mit einer neuen Windows Form einen Benutzer hinzufügen. Das Hinzufügen klappt auch nicht ganz. Ich öffne zuerst die WindowsForm: Private Sub btnHinzufugen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufugen.Click Mitarbeiter.Show() End Sub danach kann ich alle Daten eingeben und wenn ich auf Speichern klicke sollte es in die Access Datenbank schreiben und eine "Erfolgreich" Meldung ausgeben: Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=F:\Projekt\Datenbank\DB_Meldungen.accdb") Dim cmd As New OleDb.OleDbCommand cmd.Connection = con cmd.CommandText = "INSERT INTO Mitarbeiter (Name, Vorname, E-Mail, Telefon) VALUES ('" & Me.txtName.Text & "','" & Me.txtVorname.Text & "','" & Me.txtEMail.Text & "','" & Me.txtTelefon.Text & "')" Dim data As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet data.Fill(ds) MsgBox("Speicher Erfolgreich!") Aber leider gibt es immer den gleichen Fehler aus: Syntax error in INSERT INTO statement. Aber ich sehe ehrlich gesagt keinen Fehler oO
  4. Fehlermeldung kann ich dir grad nicht liefern da ich das Programm nicht da hab. Aber der Code für die Internetverbindung haben wir jetzt eifnach so gemacht: If IsConnected() Then Me.txtVerbindung.Text = "Es besteht eine Internetverbindung" If Me.txtVerbindung.Text = ("Es besteht eine Internetverbindung") Then Me.txtVerbindung.BackColor = Color.GreenYellow End If Else Me.txtVerbindung.Text = "Es besteht KEINE Internetverbindung" If Me.txtVerbindung.Text = ("Es besteht KEINE Internetverbindung") Then Me.txtVerbindung.BackColor = Color.Red End If End If Private Function IsConnected() As Boolean 'auf Konnektivität prüfen Try My.Computer.Network.Ping("www.google.ch") Return 1 Catch ex As Exception Return 0 End Try End Function
  5. Ohje das wird ja was. Aber Danke für die Antwort! Das Problem bei uns war eben das wir einfach die Aufgabe erhielten Fehler aus einem Netzwerk auszulesen (Nach Vorgabe ob das Laufwerk freigegeben ist oder nicht, Internetverbindung hat, Sich etwas im Laufwerk befindet) Zur Verfügung standen einfach VB.NET, MySQL, ColdFusion, HTML/CSS, Access und C# Da wir aber alle nicht programmieren können und so haben wir den Lehrer gefragt und der meinte mit Access und VB wäre es sehr einfach. Jetzt hab ich nurnoch das Problem: Vorher hat alles bestens funktioniert aber seit ich ein paar Dinge getestet habe und so funktioniert die Verbindung zur Datenbank nicht mehr besser gesagt das Auslesen ins DataGridView: Immer bei data.Fill(ds) gehts nicht Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Users\Chlochou\Documents\Admin\Database11.accdb") Dim cmd As New OleDb.OleDbCommand cmd.Connection = con cmd.CommandText = "select * from Fehler" Dim data As New OleDb.OleDbDataAdapter(cmd) Dim ds As New DataSet data.Fill(ds) DgvFehlerauslesen.DataSource = ds.Tables(0)
  6. Also wir dachten das wenn keine Verbindung besteht und nach 3 mal Versuch die Verbindung aufzubauen dann einfach eine Fehlermeldung kommt. Ist eben die einzige Lösung die uns in den Sinn kam und da Abgabetermin in 3 Wochen ist. Aber wenn du willst kannst du ja mal sehen wie wir das mit dem Code gelöst haben, dann könnte man da vllt doch noch was machen?
  7. Hallo zusammen! Derzeit muss ich ein Projekt in der Schule machen welches einmal eine Client Software und einmal eine Administrator Software beeinhaltet. Es sind mehrere Clients im Netz! Client Software Es ist so das hier verschiedenste Daten ausgelesen werden (Betriebssystem, Benutzername, Datum etc.) Diese werden über einen Timer jede Minute in eine Access Datenbank gespeichert. Administrator Software Diese liegt auf unserem Server (genau wie die Datenbank). Mit dieser können die Datensätze in einem DataGridView ausgelesen werden (auch über einen Timer mit Zeit 1 Minute). Klappt soweit auch 1.) Admin Software: Wie schaffe ich es das ich einen Datensatz im DataGridView anklicken kann und diesen mithilfe eines Buttons als Erledigt kennzeichnen kann? (Ist ja Wert Ja/Nein oder?) Dieser muss dann auch wieder zu löschen sein. 2.) Admin Software: In der Client Software schauen wir auch ob eine Internet Verbindung besteht oder nicht und das wird in die Datenbank geschrieben. Wie schaffe ich es jedoch das ich immer nur die aktuelle Minute auslesen kann? Beispiel: 10:00 Uhr: Alle Daten der Client Software werden in die Datenbank eingelesen 10:00 Uhr: Administrator Software zeigt an wie viele PC's online sind 10:01 Uhr: Wiederum werden alle Daten eingelesen usw. 10:01 Uhr: Administrator Software zeigt an wie viele PC's online sind Es dürfen also nur die Datensätze angezeigt werden welche zur gleichen Zeit ausgelesen wurden Ich hoffe ihr versteht was ich meine! Es ist wirklich wichtig und hoffe auf eure Antworten damit ihr mir weiterhelfen könnt (: Dankeschöööööön
  8. Okay hab den Fehler gefunden! War eigentlich alles richtig eingestellt nur hatte ich (laut dem Lehrer) ein paar Zeilen in der Konfigurationsdatei drin die ich nicht gebraucht hätte.. Die rausgelöscht und alles hat funktioniert! DAnke an euch
  9. So hab mit der anleitung gearbeitet nur eben centos begriffe verwendet etc. Habe jetzt auch ne batch datei die funktioniert aber: Ich kann mit xp aufs laufwerk zugreifen, und wenn ich dann auf neu/ordner gehe kann ich dem keinen namen geben. Aber wnn ich wegklicke wir der ordner mit dem namen: neuer ordner(1) etc erstellt. Wenn ich da reingehe kann ich aber ordner erstellen, umbenennen. Eben alles was man machen kann und sollte Hab auch den lehrer gefragt aber der hat sowas noch nie gesehen undnkann mir nicht weiterhelfen, habt ihr einen tipp für mich? Centos samba
  10. Huhu, danke für den link frage dazu: ist das nur für ubuntu geeignet oder unterstützt das cent os auch?
  11. Hallo Community! Ich brauche dringend eure Hilfe. Und zwar muss ich bis Montag Mittag einen Samba Server auf CentOS als Domänen Controller mit Login Scripts installieren. Das Problem hierbei ist: Es zählt für die Abschlussprüfung und wir hatten NICHTS davon! Ich habe jetzt einfach verschiedene Tutorials im Internet angeschaut und etwas gemacht, funktionieren tut es jedoch nicht Ich habe folgende Software: CentOS V5, Windows XP und IPCop als Firwall/Router. Auftrag heisst: PDC (Samba-Server) (samba, swat) Die Vorgaben sind: User mit sbin/false (oder so ähnlich) einschalten Ordner Struktur genau wie vorgegeben sowie die Benutzer OrdnerStruktur alle direkt im Wurzelverzeichnis: Allgemein (alle Benutzer Zugriff), gl (Gruppe Geschäftsleitung r/w), verkauf (Gruppe gl r/w), informatik (gruppe informatik r/w), spedition (Gruppe spedition r/w) Home Verzeichnis von jedem Benutzer muss unter Home sein. Die Administratoren haben Vollzugriff auf alles Benutzer - Gruppe gustaf - gl karl - spedition alfons - verkauf berta - verkauf henry - informatik/admin urs - informatik/admin Also meine Schritte bisher: Windows XP PC Name auf WinXP geändert Arbeitsgruppe: WORKGROUP Fixe IP vergeben: 10.0.0.20, Subnetz: 255.255.255.128, Gateway: 10.0.0.1, DNS: 10.0.0.1 IPCop Root und Admin Passwort geändert, IP Adresse von Green auf 10.0.0.1 geändert CentOS IP Adresse: 10.0.0.15 Subnetz: 255.255.255.128 Gateeway: 10.0.0.1 Rechnername: SAMBASERVER DNS: 10.0.0.1 yum install samba -> geglückt ports freigegeben: iptables -I INPUT -m state --state NEW -m udp -p udp --dport 138 -j ACCEPT sowie die Ports 137,139,445 service iptables save -> OK Ordner installiert: cd / mkdir -p allgemein, gl, informatik, spedition, verkauf User erstellt: useradd -m -s /sbin/nolong -g users henry etc. Gruppen erstellt: groupadd spedition etc. Zuordnung: usermod -G informatik,allgemein,adm urs etc. Berechtigungen setzen: chgrp gl gl chmod 750 gl SWAT installiert yum install samba-swat Dann Datei geöffnet: disable auf no gesetzt und only_from auf 10.0.0.0 dann chkconfig xinetd on Nochmal Ports hinzugefügt: iptables -I INPUT -m state --state NEW -m udp -p udp --dport 901 -j ACCEPT service iptables save Webinterface ist mithilfe von XP erreichtbar Wie geht das über Konsole? Habe Anfangsversuche gestartet aber eben.. Datei geöffnet unter [global]: workgroup: WORKGROUP netbios name= SAMBASERVER server string = Samba Servereinrichtung interfaces = lo eth0 10.0.0.0 host allow=127.0.0.1, 10.0.0.1, 10.0.0.15, 10.0.0.20 [public] path = / valis users = gustaf, lukas, karl, alfons, berta, henry, urs read list = " " write list = " " read only = no create mask = 0664 directory mask = 0775 Samba Benutzer eintragen smbpasswd -a gustaf etc. service smb start Samba "Freigeben" Unter der Firewall Konfiguration: Deaktiviert, SELinux Deaktiviert Anpassen -> SSH, Samba Prüfung service smb status service smb start Dann bei XP mal IP im Browser eingegeben und dann kam ich aufs WebGUI Aber in der Netzwerkumgebung wird noch nichts angezeigt, das einzige was möglich ist, Im Explorer die IP eingeben und dann kommt wieder so ein login fenster, aber da komm ich auch mit dem root nicht rein. Was mach ich falsch? und wie kann ich Login Scripts einfügen/was beinhalten sie? DANKE schonmal im Voraus da es sehr sehr wichtig ist! Lg Chlochou
  12. Okay Danke viel mals! Mit dem Geld wäre es an sich ja für die kein Problem.. haben GENUG auf dem Konto *augen verdreh* Aber sie wollen ja selber dran spielen und wollen alles immer gratis haben.. und das gibt es ja leider nicht! x) Ich werde ihnen dann mal einen neuen Empfehlen!
  13. Hallo! Danke vielmals für deinen Post. Ja das mit AGP hab ich mir schon gedacht. Sie gedenken schon neuere Spiele zu spielen (12 jähriger Sohn -> Spiele *.*) In Betracht darauf das sie auch gerade erst neu RAM gekauft haben ( von 512MB auf 1GB) würde ich ja eher auf einen neuen PC tippen, da bei ihnen schon einige Reparaturen angefallen sind und auch das Starten bei ihnen sehr lange geht (30minuten) Gruss
  14. Hallo zusammen! Ich hätte da mal eine Frage an euch da ich mit Hardware nicht viel anfangen kann^^ Und zwar haben die Eltern meines Freundes mit gebeten, eine neue Grafikkarte zu finden. Mindestanforderung: ATI Radeon X1300 für ein Spiel (Direct X9 oder so) Derzeit haben sie folgenden PC: XP Home 32 Bit Asustek computer board Prozessor: intel pentium 4 CPU 3.20 GHz RAM: 1 GB ATI Radeon X300, 256 MB, Refresh 60 Hz Jetzt ist halt für mich die Frage: neuer PC oder neue Grafikkarte? Weil soweit ich gesehen habe hat der noch AGP Anschluss und sie wollen neue Spiele spielen. Und der PC ist auch schon über 6 Jahre alt. Danke schonmal!
  15. *lach* naja der Weg sollte ja wohl nicht so schlimm sein oder? ich muss auch um halb 7 ausm Haus damit ich um 20 nach 8 da bin^^, komm Abens um halb 9 heim (bis 20 nach 5 Schule). Finde das nicht so ein Problem. Klar, kann nervig sein, aber ist doch okay^^
  16. Hi zusammen ! Bin die Nadja aus Liechtenstein (jaja Ausland ) Seit 3 Monaten bin ich Praktikantin und ab dem Sommer fange ich die Lehre als Informatikerin Applikationsentwicklung an. Davor war ich ein halbes Jahr an ner Schule für's Fachabi (******) Denke auch, das ich eher Fragen stellen werden anstatt sie zu beantworten da ich noch nicht sehr viel kann mit meinen 16 Jahren^^ glg
  17. Ich kann nur von Liechtenstein reden: Wir hier haben 4 Lehrjahre wenn man Informatik wählt. Und zwar in jeder Abteilung der Informatik. Die ersten zwei Jahre sind bei allen 4 Abteilungen gleich.. Die restlichen 2 bestehen dann aus unterschiedlichen Aufgaben, je nach Auswahl
  18. Mach ne Ausbildung zu Informatik AE 1. Jahr -> 400 Euro 2. Jahr -> 530 Euro 3. Jahr -> 665 Euro 4. Jahr -> 800 Euro Kriege aber noch nen 13. Monatslohn, Weihnachtsgeld, Fahrtkosten und Schulzeug bezahlt Is doch schon recht viel für mein Alter *gg* (16) glg
  19. Hi ihr ! Ich programmiere noch nicht sehr lange mit VB.NET und deshalb stellen sich bei mir schon die ersten Fragen: Ich möchte einen Zinsrechner erstellen bei dem man zuerst die Bank auswählen muss und dann den Standort der Bank. Diese beiden Dinge habe ich mit je einer Combobox gelöst. Jedoch ist mir bewusst das nicht jede Bank den gleichen Standort hat. Deshalb sollte sich das ändern. Beispiel: Kantonalbank -> Standorte: Buchs, St.Gallen UBS -> Standorte: St.Gallen, Zürich Etc. Hoffe es ist einigermassen logisch erklärt. So, nun zu Frage zwei. Ich möchte, das jeder Standort, einen anderen Zinssatz hat. Beispiel: UBS / St.Gallen -> 2.5% UBS / Zürich -> 3% Etc. (in meinem Zinsrechner eben Hauptsächlich Kantonalbank etc.) Dritte Frage: Ich möchte, das wenn man z.B auf die TextBox einen Doppelklick macht, das sich da ein zweites Fenster öffnet in dem man die Zahlen auswählen kann.. also sozusagen ein Windows Taschenrechner mit einbeziehen in das Programm. Wie ginge das dann? Ich weiss nicht wo und wie ich das einfügen kann. Ich hoffe ihr könnt mir da ein bisschen weiterhelfen da ich wirklich noch totaler Anfänger bin ! Danke schonmal Hier noch den Code von meinem jetzigen Zinsrechner, ich hoffe es ist einigermassen verständlich: Public Class Zinsrechner Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cmbBank.Items.Add("VP Bank") cmbBank.Items.Add("LLB") cmbBank.Items.Add("LGT") cmbBank.Items.Add("Kantonalbank") End Sub Private Sub btnBerechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBerechnen.Click 'If Gehalt <= 12000 Then ' Zinssatz = 12 'ElseIf Gehalt <= 20000 Then ' Zinssatz = 15 'ElseIf Gehalt <= 30000 Then ' Zinssatz = 2 'ElseIf Gehalt > 30000 Then ' Zinssatz = 25 'End If 'Alte Funktion -> nicht beachten Me.txtZinssatz.Text = CStr(StandortZins(CDbl(Me.txtGehalt.Text), Me.cmbStandort.Text, Me.cmbBank.Text)) Me.txtSteuer.Text = Zinsguthabenausrechnung(CType(Me.txtGehalt.Text, Double), _ CType(Me.txtJahr.Text, Integer), _ StandortZins(CType(Me.txtGehalt.Text, Double), _ Me.cmbStandort.Text, _ Me.cmbBank.Text)).ToString Me.txtErtrag.Text = (CType(Me.txtSteuer.Text, Double) + CDbl(Me.txtGehalt.Text)).ToString End Sub Private Sub txtGehalt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtGehalt.KeyPress Select Case e.KeyChar Case "0"c, "1"c, "2"c, Chr(8), "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "."c Case Else e.KeyChar = Nothing End Select End Sub Private Function Zinsguthabenausrechnung(ByVal Guthaben As Double, ByVal Jahr As Integer, ByVal Zinssatz As Double) As Double Dim i As Integer Dim Zins As Double For i = 1 To Jahr Zins += (Guthaben + Zins) * Zinssatz / 100 'Guthaben = Zins + Guthaben ~ Wird nicht mehr gebraucht ''Guthaben += Zins ~ Wird nicht mehr gebraucht Next Return Zins End Function Private Function StandortZins(ByVal Gehalt As Double, ByVal Standort As String, ByVal bank As String) As Double Dim Zinssatz As Double Select Case Standort Case "Vaduz" Select Case bank Case "LGT" If Gehalt <= 12000 Then Zinssatz = 20 ElseIf Gehalt <= 20000 Then Zinssatz = 24 ElseIf Gehalt <= 30000 Then Zinssatz = 26 ElseIf Gehalt > 30000 Then Zinssatz = 30 End If Case "LLB" If Gehalt <= 12000 Then Zinssatz = 10 ElseIf Gehalt <= 20000 Then Zinssatz = 12 ElseIf Gehalt <= 30000 Then Zinssatz = 14 ElseIf Gehalt > 30000 Then Zinssatz = 16 End If Case "VPBank" If Gehalt <= 12000 Then Zinssatz = 12 ElseIf Gehalt <= 20000 Then Zinssatz = 15 ElseIf Gehalt <= 30000 Then Zinssatz = 20 ElseIf Gehalt > 30000 Then Zinssatz = 25 End If End Select Case "Buchs" Select Case "Bank2" Case "Kantonalbank" If Gehalt <= 12000 Then Zinssatz = 4 ElseIf Gehalt <= 20000 Then Zinssatz = 6 ElseIf Gehalt <= 30000 Then Zinssatz = 8 ElseIf Gehalt > 30000 Then Zinssatz = 10 End If End Select Case "Heerbrugg" Select Case "Bank3" Case "Kantonalbank" If Gehalt <= 12000 Then Zinssatz = 10 ElseIf Gehalt <= 20000 Then Zinssatz = 12 ElseIf Gehalt <= 30000 Then Zinssatz = 13 ElseIf Gehalt > 30000 Then Zinssatz = 15 End If End Select End Select Return Zinssatz End Function Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click Dim Delete As String Me.txtGehalt.Text = "" Me.txtJahr.Text = "" Delete = "" End Sub End Class

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...