Peregrin

hi, welches dbms? wenn subselects erlaubt sind: insert into ziel_tab (select test1 from quell_tab) fuegt alle datensaetze von tabelle quell_tab in ziel_tab ein. (im subselect kann natuerlich auch noch eingeschraenkt werden.) danach bei bedarf loeschen von quell_tab hoffe, es hilft...

hi, sorry, falls der vorschlag nicht dem niveau entspricht (ich mag das aufzeichnen von makros eigentlich auch nicht) aber wenn ich mich schon mit vba herumschlage, dann benutze ich auch die mir angebotenen hilfsmittel. alternativ: zwei geschachtelte schleifen 1) while (not file.eof)) (schleife ueber zeilen) 2) zeile++ 3) ausgelesene zeile an den tabs trennen (array = split(zeile, vbtab)) 3) for i = lbound(array) to ubound(array) (schleife ueber spalten) 4) spalte++ 5) array(spalte) in zelle schreiben nur: da sollte ein newbie hingefuehrt werden... ok, zugegeben, der makrorekorder ist nicht wirklich die loesung...

hi, dafuer wuerde ich anders vorgehen: Workbooks.OpenText Filename:="F:\X\X\input.txt", Origin:=xlWindows, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _ , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _ Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)) damit oeffnest du eine textdatei, deren werte durch tabulatoren in spalten unterteilt sind(parameter tab:=true). in diesem fall werden 6 spalten erwartet (parameter fieldinfo:=array(...)) diese funktion ist in der hilfe recht gut beschrieben. ansonsten mal den makro-rekorder starten und eine solche datei oeffnen... weiter mit der bisherigen loesung: Worksheets("Tabelle1").Range( "A" & CStr(i) ).Value = Temp(i) mit dem blau gefaerbten text wird in der ersten zeile immer eine spalte 'draufaddiert', also A1 -> A2 -> A3 -> ... fuer das problem solltest du dir mal die funktionen 'offset' fuer das range-objekt ansehen. damit kannst du relativ zur aktuellen zelle andere zellen ansprechen. ich weiss da allerdings die syntax nicht mehr so genau... hoffe, es hilft...

hi, moechtest du werte in der tabelle fuer datensaetze mit einem zeichen an einer bestimmten stelle in einem feld aendern? dann teile das doch auf in mehrere statements auf: update tabelle set feld1 = neu_wert where not substr(feld2, 5, 1) in ('1', '2') damit verlagerst du die logik aus dem sql-statement in dein programm. hoffe, es hilft...

hi, Temp als array deklarieren und dimensionieren: Dim Temp(5) As String damit deklarierst du ein array mit der moeglichkeit, 5 werte zu speichern. mit Redim Preserve Temp(anzahl) dimensioniert du das array neu. dann kannst du mit dem schleifenzaehler das i-te element im array ansprechen... hoffe, es hilft

war mir ein fest freut mich, geholfen zu haben...

hi, imho kann mysql keine subselect verarbeiten... siehe auch hier kann mich aber auch irren, dass es ab version 4 geht? loesung waere, die sql-select einzeln auszufuehren und das ergebnis des ex-subselects (" SELECT member FROM iland WHERE ozean='9' AND iland.gruppe='72' AND insel='2' ") im zweiten select (" SELECT farben FROM farbe WHERE member= 'das_ergebnis' ") in die bedingung einzubauen hoffe, es hilft...

hi, grob: das modale anzeigen eines fensters hat zur folge, dass ein programm erst weiter ausgefuehrt wird, wenn das modale fenster geschlossen wurde. wird ein fenster nicht modal angezeigt, so wird nach dem aufruf die naechste anweisung ausgefuehrt. gruessle

hi, war das ironisch gemeint, oder ernst?

hi, im unload-ereignis des formulars kann der 'verursacher' des ereignisses ermittelst werden (parameter unloadmode): der erste fall waere dein fall, dass 'x' geklickt wurde... durch setzen des parameters cancel auf -1 wird das formular nicht entladen quelle: msdn z. b. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If (UnloadMode = vbFormControlMenu) Then End ' user hat 'x' geklickt End If End Sub hoffe, es hilft

hi, im fenster, welches geschlossen wird in dem ereignis form_unload die anweisung End aufrufen. damit sollte das programm beendet sein... hoffe, es hilft...

ironie-tag vergessen?

hi, so wie ich das sehe, moechtest du einen modalen eingabedialog haben? aufruf: Call dlgModal.show(vbModal) wobei dlgModal der name des modalen dialoges ist. das programm haelt die ausfuehrung an dem aufruf dlgModal.show an und faehrt mit der naechten anweisung nach beenden des dialoges fort. um auf werte innerhalb des modalen dialoges zuzugreifen, den dialog nicht mit entladen, sondern nur 'verstecken' (mittels 'Me.Hide') und in dem aufrufenden formular die gewuenschten werte auslesen. hoffe, es hilft...

hi, was mir dazu spontan einfaellt: was ist denn am arbeitsplatz, wo duch nette kolleginnen die motivation hochgehalten wird?? keine frauen am steuer -> keine frauen am arbeitsplatz -> weniger motivation der mitarbeiter -> schlechtere produktivitaet -> geringeres wirtschaftswachstum -> verarmung der gesellschaft -> ... ;-) nee, nee, lass die frauen mal schoen weiter autofahren...

hi, ich kenne mich mit access im speziellen nicht aus, evtl gibt es fuer diese anforderung auch board-mittel von access... ein formular hat in access ein 'code-fenster' in dem du den vba-code schreiben kannst. in diesem machst du am besten die sql-abfrage und fuellst die controls (textfelder?) mit werten. zu jedem wert, der geaendert werden kann, speichertst du den wert in einer zwischenvariablen. beim klick auf den speichern-knopf (im ereignis button_click) vergleichst du dann die werte aus den controls mit den zwischengespeicherten. hoffe, es hilft... bei weiteren fragen einfach posten

hi, wenn du die id hast, kannst du ja ein update-statement absetzen, in dem du die geaenderten werte ueberschreibst. um die geaenderten werte zu identifizieren, solltest du die aus der db ausgelesenen werte in variablen zwischenspeichern. hoffe, es hilft...

hi, Option Explicit Option Base 0 Private aryEingabe() as String Private Sub cmdOk_Click() Dim strText as String Dim intCount as Integer Dim intIndex as Integer intIndex = UBound(aryEingabe) If txtText1.Text <> "" then intIndex = intIndex + 1 Redim Preserve aryEingabe(intIndex) aryEingabe(intIndex - 1)=txtText1.Text Else For intCount = LBound(aryEingabe) to Ubound(aryEingabe) strText = strText & "An Position " & CStr(intCount) & ": " & aryEingabe(intCount) & vbNewLine Next intCount MsgBox strText End If End sub imho ist fuer so etwas die collection schoener als ein array... hoffe es hilft

hi, in kuerze: ein prozessorientierter projektbericht sollte den prozess der anwendungsentwicklung darstellen. d. h.: den verlauf des projektes (anforderungsanalyse, systementwurf, programmentwurf, programmierung, implementierung, test, wartung) wichtig ist hierbei, dass deutlich wird, welche schritte du unternommen hast, um erkannte probleme zu loesen (begruendung fuer deine entscheidungen) ansonsten mal googlen, was zu dem thema im netz steht. hoffe, es hilft

hi, normalerweise sollte das dbms formatierer bereitstellen, mit denen du die ausgabe des datumsformats bestimmen kannst. btw, mit welchem dbms arbeitest du denn?

hi, datensaetze in tabellen einfuegen mittels sql: insert into tab_name values('wert_spalte1', 'wert_spalte2', ...) werte mit ado auslesen: dim rs as adodb.recordset dim swert as string set rs = dbconnection.execute("select spalte1 from tab_name") if (not rs is nothing) then while (not rs.eof) ' so werden strings ausgelesen swert = trim(rs.fields.item("spalte1").value & "") ' eventuelles casten in numerische datentypen wend call rs.close set rs = nothing end if wer lesen kann, ist klar im vorteil (z. b. buecher...)

hi, ich hoffe, dich richtig zu verstehen... du brauchst ein interface, welches eine bestimmte funktionalitaet beschreibt (z. b. anzeige eines charts). diese sollen dann alle anzeigen implementieren ?? falls ja, dann kannst du dir ein klassenmodul schreiben, welches die oeffentlichen methoden enthaelt (z. b. show_chart()). in einem (oder mehreren) klassenmodul(en) kannst du dieses interface dann implementieren (implements class_interface). damit wirst du 'gezwungen' die im interface definierten methoden zu 'ueberschreiben'. somit kannst du alle 'implementierenden' klassenmodule ueber ihr interface class_interface ansprechen und die (unterschiedlich implementierten) methoden benutzen. (z. b. show_chart()) hoffe geholfen zu haben (und dass es verstaendlich war)...

hi, in einem modul?!

hi, ungetested aus der erinnerung: dim i as integer dim path as string dim filename as string dim sep as string dim ret as string sep = "\" path = getCompletePatch() 'hier den ausgelesenen pfadnamen merken filename = getFilename() 'hier den dateienemen speichern filename = sep & filename i = instrrev(path, sep, len(filename)) ret = mid(path, i, len(path) - i - len(filename) sollte so oder so aehnlich gehen hoffe, es hilft...

jupp, hatte wohl eine kleine blockade... danke fuer den anstoss :-)

hi, ich wuerde das erd-modell in die doku mit aufnehmen, und schriftlich beschreiben, wie du dahin gekommen bist (evtl durch normalisierung). dann sollte man beschreiben, wie man von dem modell zu der physischen datenbank kommt (generieren des sql-scriptes, ausfuehren des scriptes) halt das beschreiben, was man gemacht hat... es gibt keine allgemeingueltige musterloesung dafuer. hoffe, es hilft...