Zum Inhalt springen

Buell

Mitglieder
  • Gesamte Inhalte

    140
  • Benutzer seit

  • Letzter Besuch

Alle Inhalte von Buell

  1. Also mal ganz blöd (ist mir auch schon mal passiert). Frischen Rechner geliefert bekommen und wollte BS und Software installieren. Zuerst aber mal BIOS und so checken. Mitten unter Durchforsten vom BIOS zerbröselte es die Grafik. Lauter Vierecke wie bei Peek und Poke unterm C64. Letzendlich war die Grafikkarte nicht ihren festen Sitz im AGP-Slot. Also die mal raus und wieder rein. Nur mal so in die andere Ecke gedacht. Buell
  2. Hi, also mit Mappoint geht das. Per VB (MapPoint Object Library und MapPoint Control 9.0) geht das wunderbar. Allerdings muss MapPoint installiert sein. Hab da so mal mit rumgespielt. Eingabe von PLZ und die Karte springt direkt dorthin. Ist in allen Richtungen (Strasse, Hausnummer) ausbaubar. Haken: Mappoint ist nicht billig ciao Buell
  3. Hi, leider kann der ST20000A die TR4-Bänder nur lesen: http://www.seagate.com/support/tape/manuals/travan/tr5apm.pdf Seite 21 Buelli
  4. Hi, ich hatte mal ein ähnliches Problem. Es musste in einer Spalte alles auf gleiche LEN gebracht werden. d.h. führende Nullen rein (war ne Art Postleitzahlenproblem). 1. Funktion schreiben, die die Längendifferenz bildet: etwa so: Public Function min_max(cn As ADODB.Connection, Tabelle As String, Spalte As String) As Integer 'Gibt die die Differenz zwischen der maximalen und minimalen vorkommenden Laenge der Wert 'einer Spalte zurück Dim rs As New ADODB.Recordset Dim sql_string As String Dim maximum As Integer Dim minimum As Integer rs.ActiveConnection = cn sql_string = "SELECT MAX(LEN(" & Spalte & ")) as Laenge FROM " & Tabelle rs.Open sql_string rs.MoveFirst maximum = rs!Laenge rs.Close sql_string = "SELECT MIN(LEN(" & Spalte & ")) as Laenge from " & Tabelle rs.Open sql_string rs.MoveFirst minimum = rs!Laenge min_max = maximum - minimum rs.Close Set rs = Nothing End Function Im Hauptcode prüfen: wenn min_max < 0 dann schwerer Fehler ;-| wenn min_max = 0 dann nichts zu tun, alles gleich lang min_max = 1 dann: If differenz = 1 Then maximum = max_Feld(cn, cbo_Tabelle.Text, Spalte) sql_string = "UPDATE " & cbo_Tabelle.Text & " SET [" & Spalte & "] = '0'+[" & Spalte & "] WHERE (((LEN([" & Spalte & "]))<" & maximum & "))" cn.Execute sql_string cn.Close MsgBox ("Die Tabelle wurde aktualisiert!") Exit Sub End If min_max > 1: damals trat das nie auf und ich brauchte es auch nicht. Sicherheitshalber habe ich den Code mal "anprogrammiert", ob dieser auch genauso geht, wurde nie richtig getestet. Gedankenansatz: If differenz > 1 Then 'MsgBox ("Noch nicht implementiert! Der Längenunterschied ist größer als 1!") 'Der einfachste Weg wird wohl sein, solange Nullen anfügen, bis die Differenz eben 0 ist While differenz > 0 maximum = max_Feld(cn, cbo_Tabelle.Text, Spalte) sql_string = "UPDATE " & cbo_Tabelle.Text & " SET [" & Spalte & "] = '0'+[" & Spalte & "] WHERE (((LEN([" & Spalte & "]))<" & maximum & "))" cn.Execute sql_string differenz = min_max(cn, cbo_Tabelle.Text, Spalte) Wend cn.Close MsgBox ("Die Tabelle wurde aktualisiert!") Exit Sub End If Hier wird noch eine Funktion max_Feld benutzt: Public Function max_Feld(cn As ADODB.Connection, Tabelle As String, Spalte As String) As Integer ' Ermittelt die maximale Laenge vorkommender Werte einer Spalte und gibt dies als Wert ' zurück Dim rs As New ADODB.Recordset Dim sql_string As String Dim maximum As Integer rs.ActiveConnection = cn sql_string = "SELECT MAX(LEN(" & Spalte & ")) as Laenge FROM " & Tabelle rs.Open sql_string rs.MoveFirst maximum = rs!Laenge max_Feld = maximum rs.Close Set rs = Nothing End Function cn ist immer eine Connection, cbo_Tabelle.Text war hier immer ein Tabellenname, Spalte ist selbstredend. Ich denke die SQL-Statements sind die wichtigen Methoden für Dich. So nun aber Schluß mit Codebeispielen hier. Fragen per EMail am besten. Sollte nur eine Anregung sein Grüße Buell
  5. Hi, schau mal beim Domänencontroller (!!) unter Programme/Verwaltung/Terminaldienstelizensierung. Gruss Buell
  6. Versuch mal für drei,vier Sekunden lang den Power-Knopf gedrückt zu halten. Müsste dann ausgehen... mfg Buell
  7. Hi, also ich sehe da zwei Möglichkeiten, die aber u.U. mit Rechteproblemen behaftet sein könnten: 1. Einrichten einer User_DSN (ODBC) und versuchst im letzten Schritt beim Einrichten den "Verbindungstest", oftmals ist mei MS-SQL die Beispieldatenbank Nordwind oder Northwind mit drauf (also auf die connecten). 2. die Ereignisanzeige des Clients starten. Rechtklick auf "Ereignisanzeige (dieser Computer)", dann Verbindung zu anderem Computer herstellen (da eben den Servernamen eingeben) Tja, erstmal haste alle Ereignisse. Unter Ansicht den Filter auf SQL-Server setzen (bei der Ereigniskategorie Anwendungen). Hmm, das ist das einzige was mir mit Bordmitteln von W2K einfällt. serwaaas Buell
  8. Ohje, meine Zeiten der Batchprogrammierung sind so lange her, aber ich würde mal so schnell schnell mal xcopy g:\Daten\*.* e:\daten\*.* /E probieren hope it helps Buell
  9. Buell

    Ole Db

    Moin, OLE DB ist quasi der Nachfolger von ODBC (laut Kofler) und soll auch mit nichtrelationalen DBs umgehen können (zum Beispiel OLE DB for Data Mining). Mehr Infos unter: http://www.microsoft.com/data/ ciao Buell
  10. http://support.microsoft.com/default.aspx?scid=kb;de;D43699 da Buell
  11. Hi, meinst du den? http://www.photomodeler.com/Lite/ ciao Buell
  12. hmm wenn sich seit W2k nichts geändert hat start->einstellungen->systemstemsteuerung->sounds und multimedia ciao Buell
  13. Hi, nur sehr sehr eingeschränkt möglich: http://msdn.microsoft.com/vbasic/techinfo/articles/upgrade/default.asp ciao Buell
  14. kommt auf die Office-Version an. Prinzipiell nur über Einstellungen/Systemsteuerung/Software/ --> Hinzufügen Office XP meines Wissens null Problemo. Office2000 nur über Anleitung: http://www.microsoft.com/office/ork/2000/two/30t3_2.htm Es wird das Office 2000 Resource Kit benötigt bzw. nur die Datei daraus (TermSrvr.mst). ciao Buell
  15. Hi, also ich bin ein Fan von Kofler. Der schreibt bei Addison Wesley. Sein .net-Buch habe ich leider noch nicht in den Fingern gehabt, jedoch seit VB4 habe ich alle seine VB-Bücher und das mit der Datenbankprogrammierung. Ich kann seinen Schreibstil und Erfahrungsschatz nur empfehlen. ciao Buell
  16. Hi, ich find httrack einfach genial: http://www.grammiweb.de/software/httrack.shtml grüße Buell
  17. Hi, das mit Apache weiss ich nu auch ned. aber unter http://www.firedaemon.com/ gibbet ein Tool, damit kann man so jedes Programm als Dienst starten lassen. Einfach ausprobieren. ciao Buell
  18. Das dürfte Deine Frage wohl indirekt beantworten http://www.heise.de/ct/faq/result.xhtml?url=/ct/faq/hotline/99/03/14.shtml&words=Festplatte%20Wasser ciaoi Buell
  19. Buell

    60er IBM Platten

    Hi, vor einer Stunde habe ich eine 60er IBM nach Hause geschickt, Platte war 6 Monate im Einsatz (Sectorfehler und wahrscheinlich noch das Interface im A.) Ansonsten haben wir hier fünf 30er, eine 40er, zwei 20er, eine 10er IBM-IDE-Platten. Bei den 30ern standen bei drei schon Low-Level-Formatierungen an, dann gingen sie wieder. Ansonsten sage ich für meinen Teil. Die nächsten Platten werden nicht mehr von IBM sein, die sind dann WD oder Maxtor. greets Buell
  20. Try this PrimalScript http://www.sapien.com/ Syntaxhighliting von ziemlich alle´Sprachen und auch direktes Compilieren von .Net-Code Testversion 30 Tage denke ich. ciao Buell
  21. Lösung gefunden mit dem Imagecontrol und andere Width-Werte gehts nun optimal: Me.MSChart2.EditCopy Me.Image1.Picture = Clipboard.GetData(vbCFMetafile) If Me.Option1.Value = True Then Printer.Orientation = vbPRORLandscape Else Printer.Orientation = vbPRORPortrait End If Printer.ScaleMode = vbTwips co = Printer.ScaleWidth / Me.Image1.Width y = Printer.CurrentY Printer.PaintPicture Me.Image1.Picture, 0, y, Me.Image1.Width * co, Me.Image1.Height * co Printer.EndDoc ciao Buell
  22. Hi, ich habe hier ein MSChartControl, das einfach nur eine Jahresübersicht von Zahlen hat (12 Reihen, eine Spalte) wenn ich wie im VB6 Buch von Michael Kofler beschrieben das Ding drucken will, dann fehlt links und recht ein wenig, so das die Y-Achsenbeschriftung (also 100,200,300,400..) sowohl links auch rechts nicht komplett sind. Das MSChart-Control selbst unterstützt das drucken ja nicht, so dass der Umweg über das Clipboard und das Printer-Objekt gegangen werden muss: Clipboard.clear Dim border Me.MSChart2.EditCopy Set Picture.Picture = Clipboard.GetData(vbCFMetafile) Printer.ColorMode = 1 Printer.Orientation = vbPRORLandscape border = Printer.ScaleWidth / 20 Printer.PaintPicture Me.Picture1.Picture, border, _ border,Printer.ScaleWidth - 2 * border, _ Printer.ScaleHeight - 2 * border Printer.EndDoc Testweise habe ich mit den Border-Werten rumgespielt und auch ein anderes Picture-Control (von Protoview) verwendet. Dort war das gleiche Problem. Nun, mein Leben hängt vom Feature "Chart Drucken" nicht ab, doch ich hätts halt gerne eingebaut. Any Hints? thanx Buell
  23. Hi, zieh Dir mal das rein: http://www.microsoft.com/germany/produkte/files/W2kDatenblatt.pdf kurzum, Anzahl Prozessoren, max. Hauptspeicher... Buell
  24. Buell

    Welchen Streamer???

    klar hast recht, aber ich bin da schon ein mal in dieser richtung auf die schnauze gefallen. waren allerdings andere dimensionen. 240 GB mit DLT sichern. damals bin ich halt auch ausgegangen 70GB steht drauf, 70 GB gehen auch drauf. so wars halt dann noch ned. nungut. für normale daten gehe mit 40% kompression aus und nicht 50 wie die hersteller. damit fährt man dann doch sicher. ciao Buell

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...