Leominora

schau dir mal die Funktion ReInstr() an, könnte dir glaub ich helfen

Kann man in einer Checkbox die Farbe des Kästchens ändern und bei Radiobutton die Farbe des ... naja ihr wisst schon? Habe nirgends was gefunden, wär aber praktisch. Danke für eine Antwort Leominora :confused:

kommt darauf an, wie du das Datum gespeichert hast, als String yyyy.mm.dd oder dd.mm.yyyy oder als Datumsfeld. Das erstere ist das beste (find ich). Where Left(Datum,4) = ' " & zJahr & "' oder mit Monat Where Left(Datum,7) = ' " & Format(zJahr,"0000") & "." & Format( zMonat,"00") &"' oder WHERE Datum BETWEEN 'ersterTag' AND 'LetzterTag' Habe alles schon verwendet.

dim lZahl as Long dim zText as String zString = "5" lZahl = clng(zString)

Du fügst die Progressbar entweder gleich in das Formular ein, welches du gerade benutzt, oder legst ein neues Formular an, welches du dann auch aus anderen Formularen aus aufrufen kannst. Dann brauchst du nur noch die Anzahl deiner Datensätze zum Beispiel. Dim lFenster as frmProgressbar lFenster.Visible = True lFenster.Caption = "Auslesen der Daten..." lFenster.ProgressBarLaden.Visible = True lFenster.ProgressBarLaden.Min = 0 If Recordset.RecordCount = 0 Then 'Damit trotzdem die Progressbar angezeigt wird lFenster.ProgressBarLaden.Max = 100 Else lFenster.ProgressBarLaden.Max = Recordset.RecordCount End If 'Startwert setzen lFenster.ProgressBarLaden.Value = 0 Recordset.MoveFirst Do until Recordset.EOF ... Recordset.MoveNext If Recordset.EOF Then Exit Do lFenster.ProgressBarLaden.Value = lFenster.ProgressBarLaden.Value + 1 Loop Unload lFenster Naja, jedenfalls war es so bei VB6, aber in .net dürfte es nicht groß anders sein.

Du brauchst die Höhe von deinem Formular. Zum Beispiel lFenstergroesse Dann gibst du nicht den Top-Wert mit 120 an sondern immer in Bezug auf das höherliegende Tool. Zum Beispiel du hast oben ein Label und eine Textbox. Die kannst du so lassen, weil die ja immer oben sind. Dann folgt ein Grid. Da musst du dich entscheiden, in welchem Verhältnis das vergrößert werden soll. Enweder du nimmst dir eine Varable zur Hilfe der alten Größe und berechnest dann das Verhältnis zur neuen Größe, oder du sagst gleich, es ist ein viertel der Festergröße. Private lFenstergroesse as long Private Form_Load() lFenstergroesse = me.height End Sub Private form_resize() 'Variante 1 Grid.Height = Grid.Height * Me.Height / lFenstergroesse lFenstergroesse = Me.Height 'Variante 2 Grid.Height = Me.Height / 4 End Sub Dann folgt ein TextFeld, dessen Top du mit Grid.Top + Grid.Height + x angeben musst. Dann noch ein Grid, dessen Top = Textfeld.Top + Textfeld.Height + x ist. Und dessen Höhe so wie beim ersten berechnet wird. Und so weiter und so weiter... Alles eine Sache des Ausprobierens, da wirst du nicht drumherum kommen. (Mir macht das immer Spaß!) Bei weiteren Fragen, einfach posten! :bimei :bimei

kann blos VB, vielleicht gibt es bei VFoxPro keine Arrays - keine Ahnung! dim vArray as Array ...

wäre eine Möglichkeit, denn das hätte alle drei Angaben zum Auswerten.

filespec wäre der Pfad der Datenbank... zB: c:\me.mdb Private bvorhanden as Boolean Function ReportFileStatus(filespec) Dim fso, msg Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(filespec)) Then bvorhanden = True Else bvorhanden = False End If End Function

warum schaust du nicht in der Hilfe nach? :D die ist echt super! ansonsten bei ms, oder auf allen möglichen VB-Seiten.... oder Fragen :D kann aber erst morgen Antwort geben, hab hier kein Beispiel parat.

bei ADO hat man das weggelassen, musste deswegen auch immer ADO und DAO verwenden!

jedenfalls bei VB und SQL kann man noch % nehmen Name like '" & M & "%'

das geht über DAO und der DBEngine.CompactDatabase - Methode

Hi, habe drei Jahre lang nur vb 6 programmiert und sollte nun auf .net umsteigen. .net ist ein riesengroßer Sprung in oop. Stell mich nach drei Monaten immer noch ziemlich dämlich an. Mit der Hilfe komm ich auch nicht klar. Wenn ich was suche, bekomme ich zu 90 % nicht das, was ich eigentlich wollte! Aber ich glaub andersrum .net auf vb 6 wäre genau so, da jedes seine Vorzüge hat. vb 6 -> Möglichkeit der Fehlerkorrektur während des Programmlaufs .net -> Aufgabenliste

Probier mal: Dim RS as ADODB.Recordset Dim CNN as ADODB.Connection Dim bTabelle as Boolean ' Datenbank öffnen... Set RS = CNN.OpenSchema(adSchemaTables) bTabelle = False Do Until RS.EOF If RS!TABLE_NAME = "Tabellenname" Then bTabelle = True Exit Do End If RS.MoveNext Loop RS.Close If bTabelle= False then 'Tabelle nicht vorhanden! End If

Ist dein Grid das normale von VB oder ist es das True Database Grid, welches ein zusätzliches Tool für VB ist? Mein Code beim Füllen eines TDBGrids sieht immer folgender maßen aus: dim rs as new ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "Select * FROM Beispiel WHERE Nichteinschlafen = true", db, adOpenForwardOnly, adLockReadOnly, adCmdText tgr.DataSource = rs bei Fragen schick mir mal ein Mail mit deinem Code an m.friedrich@somas.de Ich arbeite öfter mit dem Grid. Hoffe, ich konnte dir helfen

Hallo Tinka22, Was du in deinem Praktikum gelernt hast, wird vielerorts so angewand! Ich finde es auch falsch von deinem Projektbegleiter, dass er kurz vor dem Ende der Ausbildung dir vorschreibt, wie du deinen Code schreiben sollst. Behalte deinen Stil bei und wenn es Ärger geben sollte, würde ich an deiner Stelle einen anderen Dozenten oder deinen Praktikumsbetrieb zu Rate ziehen! Leominora

Hallo miteinander, habe von der IHK Würzburg-Schweinfurt erfahren, dass bundeseinheitlich die Ergebisse am 10. Juni freigegeben werden und vorher eigentlich keine Ergebisse rausgegeben werden. Also warten... Maria

Habe mich heute bei der IHK schlau gemacht. Es wurde mir gesagt, dass bundesweit-einheitlich(?) erst in der KW 24 die Prüfungsergebnisse verschickt werden. Bei uns sind die Mündlichen aber auch erst 8./9. Juli. Wünsche allen ein gutes Gelingen!!! Auf dass wir die Prüfung bestanden haben!!! Leominora