streffin

12.03.2009, 23:27 macht doch die Leiche ma zu

Ich würd da liebend gern was konstruktives beitragen zu, aber : du teilst uns hier weder mit, was List1 ist, noch was fields ist. allgmein gesprochen, mit split("a/b/c", "/") kannst du nen String an nem Trennzeichen aufsplitten. Rückgabewert ist ein Array mit den "Abschnitten" des strings den du übergeben hast. Wenn du jetzt Range("A1").Value, oder Cells(1,1).Value (ich bin Fan von integern, da muss ma nit no ne funktion schreiben um "AB1" umzumünzen und ma kann in schleifen durchrattern) übergiebst, dann splittet dir die Funktion das was in der Zelle A1 steht auf anhand des Trennzeichens. Im Endeffekt weis ich nich ma was du eigentlich grad Fragst oO (Das kann allerdings auch daran liegen das ich momentan nimmer ganz alleine bin) mfg Sven

da würd ich dann aber schon die mysql gui tools empfehlen, da ist man schon WEIT besser bediehnt, und muss sich net noch nen apache oder xampp drufschmeissen

Import in was ? btw, es giebt ne split(String, Trennzeichen) funktion die dir nen String in ein array Aufsplittet, zumindest Zeilenweise kommste so zum Ziel mfg Sven

Nach Miete Strom und Telefon .... mhm n Brot eventuell

Mhm Access sollte sich überreden lassen sich mit Oracle zu verstehen. aber beim Stichwort "WYSIWYG" Frontend fällt mir eigentlich nur :upps ein. Bastelt das Frontend doch mit c# oder vb.net, dann haste was erweiterbares, stabileres, und einfach erweiterbares. Per Formdesigner ist so nen Formular auch per durchklichen gemacht, nur kannste das was die Form macht sehr viel variabler gestalten. What you see is What you Get ... das Prinzip hat noch nie anständig funktioniert.

von globalen Variablen sollte man imo nur dann gebrauch machen wenn das wirklich global ist, was weis ich, nen Username oder sowas. Das gefährliche an globals ist dass man damit verdammt schnell, verdammt hässliche Seiteneffekte haben kann und wird, wenn das Projekt mal etwas grösser wird. Ich benutz die daher auch fast ausschlieslich für konstante Werte. Und Form1 durch ein Event auf Form2 reagieren lassen ist verdammt einfach. Du rufst einfach im Eventhandler auf Form2 (da wo was passieren soll mit Form1) die entsprechende Methode auf Form1 auf. Das ist nen einfaches Form1.machwas(). Und so wie sich der Fall für mich gerade anhört, dass du die Daten im Form_load aktualisierst : form1.reload()

Wir leben ja mitlerweile auch in der Zeit von anständigen Entwicklungsumgebungen die Textvervollständigung beherschen, ich schreib recht viel mit <tab> Ansonsten kannst du ne Tastatur irgendwo mit nem Instrument vergleichen, mit der Zeit weiste einfach wo der Finger hin muss damit das gewünschte Ergebnis bei rauskommt. Und wenn du mal ein paar Jahre Übung hast, dann schreibst du mit deinem eigenen "System" so oder so weit schneller als jemand der nich den kompletten Tag vor der Kiste sitzt, also mach dir keine Sorgen.

Ich find den kleinen irgendwie niedlich .... meint er is was besonderes weil er von mama un papa nen Ausbildungsplatz in Rachen geworfen bekommt, und geht flennen wenn ihm was nich passt. Berufsschule is hart wa ? (so KINDER wie du sind immer ganz toll angesehn unter den normalerweise doch etwas reiferen Kollegen)

Ich würd mal sehr sagen, dass es auf den Ton angeht, mit vor sarkasmus triefender Stimme jemandem nen HAVE A NICE DAY zufauchen würd ich auch als Lmaa übersetzen, ansonsten ... sagen mers so meine Mails (auch an Kunden) enden des öfteren damit. Gruß Sven

16 stellige Hex zahl, 16^16, wird dir denk ich a weng den zahlenbereich sprengen, wenn du das direkt umwandeln willst. aber da du die Hex zahl dann hinterher eh per string speichern wirst (nehm ich mal an), kannst das auch schrittweise zusammensetzen. Randomize() x = Round(Int(17 * Rnd())) giebt dir ne zahl zwischen 0 und 16, dann würd ich mir noch ne kleine Funktion schreiben die das in HEX ummünzt, mit ner if oder nem switch if 0 = "0" elseif 1 = "1" ..... elseif 10 = "A".... und dann einfach Stringverketten bis de 16 stellen hast. Weis jetzt nicht obs schon fertige funktionen in vbs für sowas giebt, aber so wie oben is das in 10 minuten gemacht.

For 0=k to sEingabe.Length - 1 du willst grad der 0 den wert von k zuordnen, mach das ma anders rum For k=0 to sEingabe.Length - 1

Also ich fands klasse, da lernt man wirklich was, und wenn ich ma gefragt hab, hat mir auch jeder der Kollegen / Ausbilder nen Schups in die richtige Richtung gegeben. Und mitlerweile schreib ich auch nen 700 Zeilen sql script runter ohne das ich da google oder anderes zur Hand ziehen muss, da könnt ma glatt sagen ich hab was gerlernt

Ich bin FIAE Also Berufsschule is bei mir jedenfalls komplett fürn Ar*** Ich sitz da in der regel vorm Laptop und programmier an nem privaten Projektchen bissl rum. Rest der Klasse hängt zu 50% in der Mehrfachsteckdose und zockt.... (is jedesmal ne halbe Lanparty wenn ma da auspacken) Lehrpläne sind .... jo ... Religion, Deutsch, Gemeinschaftskunde ... wundertoll, genau das braucht n AE`ler Englisch, ok, soll Leute geben die da Schwächen ham ... Programmieren, bei nem Fossil, das zwar weis was ne Klasse und nen Objekt ist, aber der nicht weis wie man damit umgeht. (erkennt man an seinem Script seeeehr deutlich, der schreibt Klassen als Funktionssammlung, aber insanziert sich praktisch nie nen Objekt mit Methoden ale "Fähigkeiten") Dann noch Bwl .... Spass mit Excel ... woho Wirtschaftskunde, ok, muss man durch Und in TI halten mer seit nem Jahr Präsentationen ... Das Niveau des ganzen bewegt sich knapp über dem Meeresspiegel, alles in allem mehr oder weniger Zeitverschwendung das Ganze. Dann die andere Seite der Medallie, Betrieb : Wurd am Ersten Tag hingesetzt, Ausbilder : "Hast schonma was mit VBA gemacht? " Ich : "Ähhhhhm" Ausbilder : "Schreib ma n Excel makro das blablabla und blabla fasel macht" Ich : "Ähhhhhhhhhm" Ausbilder : "Da is google" Nach vba gings dann weiter mit sql (ja i weis sql is einfach, aber n querry mit 5 ebenen subquerrys is am anfang doch a weng gewöhnungsbedürftig) und .net Joa, jetzt besteht mein Daily work darin Reportings zu schreiben, hier und da ma Datenimporte, und immer ma wieder interne Tools in .net schreiben, oder Bestehende Software (Frontends) zu erweitern. Man könnte sagen dass ich durchaus ganz hübsch was lern. Vorallem gefällt mir, dass ich zu 100% produktiv arbeiten darf, und nicht wie Bekannte aus der Berufsschule den halben Tag am surfen bin, oder der extrem Fall den mer ham, seit nem Jahr als 1st Level Support an der Strippe häng. Schule : 6- Betrieb : 1+

Ted, wenn er nur die Daten haben will, die NICHT in beiden Tablen vorkommen, dann wäre das ein where t2.key is null Das query von dir ist im endeffekt ein inner join. Gruß Sven

was inserts und updates angeht : Dim db_con As New SqlClient.SqlConnection(dein connection string) db_con.Open() Dim sc As New SqlClient.SqlCommand(sql, db_con) sc.ExecuteNonQuery() sc.Dispose() sc = Nothing db_con.Close() db_con.Dispose() End Sub drauf zugreifen kannste auf deine Datatable ganz einfach, hier mal n beispiel wennd mit ner for schleife alle datensätze der Table durchgehen willst : For each row as Datarow in tbl_xyz.Rows meinLable.text = row.item("irgendeineSpalte") meineTextbox.text = row.item("andereSpalte") next

Ganz eindeutig Jagged Alliance 3. Ich bin fast so viel zeit vor ja2 gesessen wie vor master of orion 2. Und wer wer hier jetzt master of orion 3 ins feld führt, wird er auf dem nerdhügel gekreuzigt !

Hoi, warum willste da nen Batch datei in Gottes Namen ? Führ die 4 scripte einfach per job aus, jedes script ein Step, dann haste das Problem nicht. Wenns was umfangreiches ist kannste auch nen package für schreiben und das package per job ausführen. mfg Sven

Uh wo fangen mer an .... 1. Makro aufzeichnen macht ma nur wenn ma faul is un sich nich drum kümmert was für sch... bei rauskommt 2. Das mitn rechten, in dem moment wo du das ding ausführst gelten bei thrusted connections deine zugriffsrechte. D.h, entweder steht im connection string user und passwort, oder du hast das Problem mit Rechten so oder so. Jetzt zum eigentlichen : Du kannst eigentlich nur eines machen was die Dauer der Abfragen angeht : Wenn die Daten vorher schonmal abgefraget werden, da wo die abgefragt werden, schreib se local in deine access datenbank, und führ deine Statistik abfragen auf die Lokalen daten aus. Also im endeffekt, erstmal ALLE Daten ziehen, und lokal cachen, und dann auf den lokalen daten arbeiten, was updates angeht, das kannste dann punktuell direkt auf der source. Is nich schön, aber 15min für nen querry sin schon so hässlich .... da is irgendwas so oder so verdammt dirty but working gelöst worden. Ansonsten bleibt dir nix anderes über, als a weng server cpu zeit zu verbraten fürchte ich. btw, ich hasse access :mod:

allgemein würd ich sagen, schreib dur ne function mit oder ohne query als übergabewert (mit query wär die sache dynamischer, was in der regel nützlich ist), die ein (das was du ham willst) recordset zurückliefert. mfg Sven

Das sind so fälle wo man in die Tastatur beisst hinterher wa ? ich kenn das nur zu gut

Du hast in dem Package irgendwo ein Rechte Problem : Fehler bei der Anmeldung für den Benutzer 'NT-AUTORITÄT\ANONYMOUS-ANMELDUNG' Ich geh davon aus, du connectest auf den Server mit einer Trusted connection, deshalb funktioniert das wenn du das package direkt ausführst. Wenn du das ding per Job anwirfst, dann ist das ein anderer User.

des kommt von wenn man nichts zum debuggen da hat .... Sub selektieren() Dim sRange As String For Each cell In Selection If LTrim(RTrim(cell.Value)) = "irgendwas" Then sRange = sRange & GetColName(cell.Column) & CStr(cell.Row) & " ," End If Next If Len(sRange) > 0 Then sRange = Left(sRange, Len(sRange) - 1) Range(sRange).Select End If End Sub Function GetColName(lcol As Long) Dim s As String If lcol > 26 Then s = Chr(64 + (lcol - 1) \ 26) & Chr(64 + (lcol - 1) Mod 26 + 1) Else s = Chr(64 + lcol) End If GetColName = s End Function so, dat tut.

Bah gott, vergiss n grossteil, ich brauch urlaub .... prinzip bleibts gleiche, aber einfacher : sub selektieren dim sRange as String For Each cell in Selection if ltrim(rtrim(cell.Value)) = "irgendwas" then sRange = sRange & "Cells(" & cell.row & "," & cell.column & ")," end if next sRange = Left(sRange , len(sRange) - 1 ) Range(sRange).select end sub mir ist enfallen das man ne Range auch per Range(Cells(i,j), Cells(x,y)) bilden kann, is so natürlich um einiges einfacher ..... vergiss den Beitrag eins drüber am besten

Hm, du hast dir da was doofes rausgesucht muss ich sagen .... Mir wäre nicht bekannt, dass es da eine Methode giebt, mit der man einzellne Zellen zu einer Selektion hinzufügen oder entfernen kann. Aber, du kannst eines machen : du nimmst dir ein Array (redim preserve brauchste hier dann), oder eine Arraylist (String), gehst zuerst deine Selektion durch, und schreibst dir jede Zelladresse in das String array. Die Adresse einer Zelle bekommste for each cell in Selection cell.row cell.column Allerdings brauchst du noch eine kleine Funktion dafür, mit der du dir den Spaltennamen von 1,2,3,4 in A,B,C,D übersetzt. In dein Array schreibst du dann die Zelleadresse im Format "A1", "B1" usw. So, dann haste erstmal alle Zellen deiner Selektion in dem Array. soweit, so gut. Wenn du jetzt alle Elemente deines Arrays durchgehst, prüfst ob die Zellen den gesuchten String enthalten, und dir dann daraus eine neue Selektion baust, haste was du haben willst : dim sRange as String = "" for i = 0 to ubound(arr) - 1 range(arr(i)).select if activecell.value = "irgendwas" then sRange = sRange & arr(i) & "," end if i = i + 1 next sRange = left(sRange, len(sRange) -1) range(sRange).select Is nen dirty workarround, aber .... naja, is halt vba Hoff du hast ungefähr ne Vorstellung wie ich das mein. Allgemein gesagt, Selection is immer was doofes, was du aber auch nicht wirklich oft brauchst in makros. Makros schreibst du ja primär zur automatisierung von Arbeitsschritten die oft vorkommen, oder wenn du sachen vor hast, die Excel in der Form nicht ohne weiteres hinbekommt (Ich sag nur Datenbank Excel reporting, ein weites Feld). D.h. du gehst im Makro eher hin, und kopierst, löschst, oder sonst was mit den Zellen die du am suchen bist. Das ist auch weit einfacher zu programmieren dann. mfg Sven