|
Registrieren
LoginInformationen über eof |
|||||
|---|---|---|---|---|---|
 TreeView |
|||||
| Verfasst am: 20.09.2011, 14:28 Aufrufe: 503 Jetzt so probiert: Do While Not rstSupplierCustomer.EOF Set trol = db.OpenRecordset("SELECT tbl_Supplier.SupplierName FROM tbl_Supplier where tbl_Supplier.SupplierID = " & rstSupplierCustomer!Suppliername & " where " & rstSupplierCustomer!ComponentIDx & " = " & rstComponent!ComponentID) Set rofl = db.O ... |
|||||
| TreeView |
|||||
| Verfasst am: 20.09.2011, 13:33 Aufrufe: 503 |
|||||
| TreeView |
|||||
Verfasst am: 20.09.2011, 12:53 Aufrufe: 503  OpenRecordset("tbl_Component")
objTreeView.Nodes.Clear
Do While Not rstComponent.EOF
Set objNode = objTreeView.Nodes.Add(, , "Component" _
& rstComponent!ComponentID, rstComponent!ComponentName)
Set rstSupplierCustomer = db.OpenRecordset("SELECT * FROM " _
& "tbl_SupplierCustomer WHERE ComponentIDx = " & rstComponent!ComponentID)
Do While Not rstSupplierCusto ... |
|||||
| Ein- und Auslesen von Bilddaten in/von MySQL |
|||||
| Verfasst am: 29.08.2011, 03:22 Aufrufe: 747 Recordset fileNr = FreeFile Open DateiDialog.Filename For Binary As fileNr Bild = Space(LOF(fileNr)) Get #fileNr, , Bild Close fileNr ADC.Open "SELECT UserID, Bild from user WHERE UserID=" & UID & ";", MyCon, adOpenKeyset, adLockOptimistic, adCmdText If ADC.EOF Then GoTo fehler ADC.Fields("Bild") = LoadPicture(DateiDialog.Filename) ADC.Updat ... |
|||||
| Ordner Manuell anlegen und Texdatein Automatisch speichern |
|||||
| Verfasst am: 18.02.2011, 21:09 Aufrufe: 475 Visible = False UserForm1.Show End Sub Private Sub UserForm_Activate() 'Kopiert den Textinhalt aus einer Textdatei in eine Textbox' FNr = FreeFile Open "c:\Documents\test1.txt" _ For Input As #FNr Do While Not EOF(FNr) Line Input #FNr, zw 'optional: überprüfen ob Zeile übernommen werden soll 'If ZeileUebernehmen Then UserForm1.TextBox1.SelT ... |
|||||
| Ressource wie Datei einlesen |
|||||
| Verfasst am: 05.11.2010, 23:03 Aufrufe: 848 txt" For Input As #ff While Not EOF(ff) Line Input #ff, strline linecount = linecount + 1 ReDim Preserve sLines(linecount) sLines(linecount) = strline Wend Close #ff nun will ich aber die liste nicht immer mit geben und wollte sie halt als Ressource hinzufügen, aber wie kann ich die liste dann wieder in das string array schreiben? Am liebsten wäre mir d ... |
|||||
| Textdatei wird nicht komplett eingelesen |
|||||
| Verfasst am: 07.09.2010, 11:11 Aufrufe: 475 Hoffe da kann mir jemand weiterhelfen, warum dies nicht funktioniert. Ich verwende folenden VB Code: Open datei For Input As #1 Do While Not EOF(1) Line Input #1, Data i = i + 1 Debug.Print i If InStr(1, Data, "SerialNo") > 0 Then serial = Mid(Data, InStr(1, Data, "SerialNo:") + 10) ... |
|||||
| Zeilen kombinieren |
|||||
| Verfasst am: 04.08.2010, 08:38 Aufrufe: 1030 Das habe ich dazu gebastelt - läuft aber zu lange - viel zu lange ! 1000 Jahre 
Wer könnte das verbessern?
Private Sub Command1_Click()
'Ermittlung der Häufigkeit einzelner Zahlen
MousePointer = 11
Dim s1(990628)
For a = 1 To 990628
s1(a) = 0
Next
Open (AktuellerPfad + "sortiert.txt") For Input As #1
loop1:
If EOF(1) = True The ... |
|||||
| Bitmap mit untergeordnetem Bitmap als Hintergrund |
|||||
| Verfasst am: 30.07.2010, 17:18 Aufrufe: 459 txt" For Input As #1 While Not EOF(1) Line Input #1, a$ If Trim$(a$) = "" Then GoTo finish pos% = InStr(a$, ";") FileName$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") Was$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ Mehr: pos% = InStr(a$, ";") x$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, &q ... |
|||||
| Pokemon Programmieren Brauche dringend Hilfe |
|||||
| Verfasst am: 23.07.2010, 19:42 Aufrufe: 608 txt" For Input As #1 While Not EOF(1) Line Input #1, a$ If Trim$(a$) = "" Then GoTo finish pos% = InStr(a$, ";") FileName$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, ";") Was$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ Mehr: pos% = InStr(a$, ";") x$ = Left(a$, pos% - 1) a$ = Mid$(a$, pos% + 1) '_ pos% = InStr(a$, &quo ... |
|||||
| nmea Daten berechnen |
|||||
| Verfasst am: 28.06.2010, 21:51 Aufrufe: 504 Mein VB Code für die Berechnung der Distanz und Zeit sieht wie folgt aus: Open datei For Input As #2 Do While Not EOF(2) Line Input #2, Data 'prüfen ob beginn erreicht ist If Left(Data, 8) = "$Version" Then i = 1 End If If Left(Data, 6) = "$GPRMC" Then i ... |
|||||
| MD5 kleine Buchstaben lesen nicht Große wie!? |
|||||
| Verfasst am: 20.06.2010, 16:56 Aufrufe: 429 ... stStrToHexStr = GetValues End Function Public Function DigestFileToHexStr(InFile As String) As String On Error GoTo errorhandler GoSub begin errorhandler: DigestFileToHexStr = "" Exit Function begin: Dim FileO As Integer FileO = FreeFile Call FileLen(InFile) Open InFile For Binary Access Read As #FileO MD5Init Do While Not EOF ... |
|||||
| MyVbQL -> Datenbank auslesen |
|||||
| Verfasst am: 18.06.2010, 09:11 Aufrufe: 823 Soweit klappt das auch, nur scheitere ich beim Auslesen der Daten. Mein Code bisher: myConnection = New MYSQL_CONNECTION() myConnection.OpenConnection() books = myConnection.Execute("Select `title`, `author` from `books`") While Not books.EOF title = books.Fields("title").Value author = books.Fields&# ... |
|||||
| Daten einer mdb in ein array einlesen |
|||||
| Verfasst am: 13.06.2010, 20:35 Aufrufe: 511 MDB") Set TB = DB.OpenRecordset("Antragsdaten", dbOpenDynaset) Do While Not (TB.EOF) j=j+1 ' Hier fehlt mir was, um die einzelnen Felder des jeweiligen Datensatzes zu durchlaufen ' wert(j, ?)=??? ' TB.MoveNext Loop End Sub Es wäre super, wenn mir jemand - mit ganz einfachen Worten/Scripts - helfen könnte. Ich da ... |
|||||
| textdatei einlesen, ändern, variable wird geändert, aber nic |
|||||
| Verfasst am: 21.04.2010, 12:59 Aufrufe: 965 Sorry das ich nochmal melde, hänge hier total. hat wirklich keiner eine Idee. wenn ich mit open.... for output as #1 öffne, gehts zu do while not eof(1) dann auf end sub und die Datei ist leer. Hoffe es kann mir jemand helfen.. |
|||||
| textdatei einlesen, ändern, variable wird geändert, aber nic |
|||||
| Verfasst am: 21.04.2010, 10:13 Aufrufe: 965 Open dateiname For Input As #1 Do While Not EOF(1) Line Input #1, gesamtstring pos = 1 x = InStr(pos, gesamtstring, "@", vbBinaryCompare) test = Mid(gesamtstring, pos, x - pos) If test = Suchkriterium Then test = Suchkriterium & "@" & "123" gesamtstring = test End If Loop Close #1 es wird hier d ... |
|||||
| Doppelte Einträg bei SQL |
|||||
| Verfasst am: 22.02.2010, 10:42 Aufrufe: 748 Rows - 2 ff = FreeFile Open CommonDialog1.FileName For Input As #ff If Not EOF(ff) Then Line Input #ff, data Output = Split(data, ";") rowcount = UBound(Output) + 1 MSFlexGrid1.Rows = rowcount + 1 Seek 1, 1 End If Do While Not EOF(ff) Line Input #ff, data Output = Split(data, ";") ... |
|||||
| VB Programm Zugriff auf Oracle 11g DB |
|||||
| Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310 Caption = "Fehler Laden [" & Err.Number & "]" InitError = InitError + 1: Err.Clear Else Work8.Caption = "Farbpalette geladen" 'Farben an Vektor zuweisen Erase Color: ReDim Color(50) Do While Not DAT.EOF Color(DAT!NR.Value) = DAT!COLORCODE.Value DAT.MoveNext Loop End If DAT.Close: Set DAT = Nothing 'Laden Stic ... |
|||||
| basMSSQL |
|||||
| Verfasst am: 26.11.2009, 11:45 Aufrufe: 870 Open End With GoTo Verbunden ConnectErr: ConnectMSSQL = False Exit Function Verbunden: ConnectMSSQL = True End Function Public Function DisconnectMSSQL() Conn.Close End Function Public Function SendSQL(ByVal iQuery) On Error GoTo Err Dim Error As ADODB.Error Dim sSQL As String sSQL = iQuery Set Recordset = Query(sSQL, Conn) While Not Recordset.EOF ... |
|||||
| Funktion Realign pe header |
|||||
| Verfasst am: 07.10.2009, 10:23 Aufrufe: 801 Hi ich habe ja shcon bei manhcen cryptern diese funktion gesehn und shcon überall danach gesucht hoffe ihr könnt mir helfen Am liebsten wäre die beiden optionen:EOF Support (glaube so heist das)realign Pe header mfgnuschler |
|||||
| Subum Textdateien zu vergleichen |
|||||
| Verfasst am: 16.09.2009, 12:03 Aufrufe: 888 Text = "" 'wenn Datei nicht vorhanden If Dir$(Dateipfad1) = "" Or Dir$(Dateipfad2) = "" Then MsgBox "Eine oder beide Dateien sind nicht vorhanden!", vbCritical, "3rr0r" GoTo Ende End If 'Dateien zum Lesen öffnen F = FreeFile Open Dateipfad1 For Input As #F G = FreeFile Open Dateipfad2 For Input As #G 'Zeilenweise durcharbeiten While Not EOF(F) lRow = lRow + 1 'Zei ... |
|||||
| Auslesen bestimmter Zeilen einer Datei |
|||||
| Verfasst am: 28.06.2009, 17:46 Aufrufe: 1529 Name: ReadLinesFunktion: Liest bestimmte Zeilen komfortabel aus einer Datei.Rückgabe: StringBeschreibung:Die Funktion liest bestimmte Zeilen aus einer Datei aus. Wird keine Startzeile angegeben, wird der Dateiinhalt ab der ersten Zeile ausgelesen. Wird keine Endzeile angegeben, wird die Datei bis zu ihrem Ende ausgelesen. Kurz: Die Argumente 2 und 3 sind optional. Code: Visual Basic: Verwendung:Visual Basic: Name: Co ... |
|||||
| Datenbankprogrammierung Teil 1 (DAO) |
|||||
| Verfasst am: 15.06.2009, 12:05 Aufrufe: 4399 MoveLast (Zeiger springt zum letzten Eintrag)TB.Delete (Löscht einen Eintrag/Datensatz)TB.BOF (Ist True wenn der Zeiger am Anfang der Tabelle steht) (Beginning of file)TB.EOF (Ist True wenn der Zeiger am Ende der Tabelle steht) (End of file)Mit diesen Informationen können wir nun den Code erstellen.Dim dbcount As Long, i As Long<br />If Not Tb.BOF Then Tb.MoveFirst 'Falls der Zeiger nicht am Anfang der Tabelle ... |
|||||
| Laufzeitfehler 3021 - HILFE!!! |
|||||
| Verfasst am: 27.05.2009, 14:42 Aufrufe: 951 rsAdressen.Delete (adAffectCurrent) MsgBox "Eintrag wurde gelöscht!" DE.rsAdressen.Requery Beim Ausführen kommt folgender Fehler: ----------------------- 'Laufzeitfehler 3021': Entweder BOF oder EOF ist True, oder der aktuelle Datensatz wurde gelöscht. Der angeforderte Vorgang benötigt einen aktuellen Datensatz. ----------------------- Es ist wirklich dringend. Ich danke euch schon im Vorraus ... |
|||||
| 2 Dateien Uploaden |
|||||
| Verfasst am: 07.05.2009, 15:41 Aufrufe: 609 |
|||||
| Datei zu groß für upload? |
|||||
| Verfasst am: 06.05.2009, 20:55 Aufrufe: 514 ini" For Input As #1 Input #1, Useless Input #1, Useless Input #1, Useless Input #1, Useless Input #1, Useless Input #1, Useless Input #1, no7 Close #1 ' ProfileName = Mid(no7, 15) ProfilePath = FireFoxPath & "\Profiles\" & ProfileName complete = ProfilePath & "\cookies.txt" Open complete For Input As #1 Do While Not EOF(1) zeile = "" L ... |
|||||
| 2 textdateien zusammenfügen |
|||||
| Verfasst am: 19.11.2008, 22:51 Aufrufe: 885 txt" For Append As #3 nur wie soll ich mit "print" umgehen damit ich den test der beiden textdateien in eine schreiben kann? mfg mastermaefju edit! habs mittlerweile selbstrausegfunden!!! lösung: Private Sub Form_Load() Open "datei.txt" For Input As #1 Open "datei2.txt" For Input As #2 Open "gesamt.txt" For Append As #3 Do While Not EOF(1) ... |
|||||
| Öffnen in ListView |
|||||
| Verfasst am: 21.09.2008, 12:34 Aufrufe: 1279 |
|||||
| Aus Texdatei : User:Pass einlesen |
|||||
| Verfasst am: 13.09.2008, 11:38 Aufrufe: 1345 Path & "Deine.txt" For Input As F 'Nun fangen wir eine Schleife an. While Not EOF(F) 'Die Zeile wurde komplett in die 'Variable Var geschrieben. Line Input #F, Var 'Nun müssen wir den Momentanen Inhalt 'von Var Splitten Trash = Split(Var, ":") 'In eine neue ListView Zeile einfügen For i = 1 To FileLineCount(App.Path ... |
|||||
| Aus Texdatei : User:Pass einlesen |
|||||
| Verfasst am: 11.09.2008, 18:52 Aufrufe: 1345 |
|||||
| Liste wird nicht geladen |
|||||
| Verfasst am: 02.09.2008, 14:12 Aufrufe: 717 |
|||||
| Liste wird nicht geladen |
|||||
| Verfasst am: 01.09.2008, 22:11 Aufrufe: 717 |
|||||
| Was bedeutet dieser Code? |
|||||
| Verfasst am: 26.08.2008, 20:53 Aufrufe: 1132 (raqel;7484)Visual Basic: öhm ja xD |
|||||
| Was bedeutet dieser Code? |
|||||
| Verfasst am: 26.08.2008, 20:42 Aufrufe: 1132 |
|||||
| Text aus einer bestimmten Zeile lesen und Overflow - Problem |
|||||
| Verfasst am: 21.08.2008, 16:57 Aufrufe: 964 |
|||||
| Text aus einer bestimmten Zeile lesen und Overflow - Problem |
|||||
| Verfasst am: 21.08.2008, 01:07 Aufrufe: 964 |
|||||
| TB.RecordCount funktioniert nicht |
|||||
| Verfasst am: 31.07.2008, 14:16 Aufrufe: 680 |
|||||
| Tool geht mit MsgBox aber ohne nicht? |
|||||
| Verfasst am: 10.07.2008, 16:50 Aufrufe: 615 |
|||||
| Textdatei in Textbox laden? |
|||||
| Verfasst am: 09.07.2008, 15:21 Aufrufe: 3478 |
|||||
| Rich TextBox + (Common Dialog, Menu Editor) Teil2 |
|||||
Verfasst am: 04.07.2008, 16:33 Aufrufe: 3310  FileName For Input As #1 'Hier öffnen wir die Datei die gerade ausgewählt wurde! RichTextBox1.Text = "" 'Richtextbox Leeren While Not EOF(1) 'wenn noch nicht am ende der datei Line Input #1, input_data 'Dann Lies weiter in die Varieable Line_Input ein RichTextBox1.SelText = input_data & vbCrLf 'Hier wird in Die Richtextbox alles was in Line_input drin Steht einge ... |
|||||
| Sehr einfach mit der AktiveX-Dll Arbeiten (Teil 2) |
|||||
Verfasst am: 04.07.2008, 16:06 Aufrufe: 3168  Willkommen zu Meinen 3 Tutorial :DHeute möchte Ich euch zeigen wie Mann Text in die dllLaden tut, und wie Mann denn Text dann in der Form abfangen kannDll SchreibenExe SchreibenVorteile:http://msdn.microsoft.com/de-de/library/dtba4t8b(VS.80).aspx 1. Als erstes Startet ihr ein Neues AktiveX-Dll Projekt (Sieht Mann im 1 AktiveX-Dll Tutorial) Jetzt macht ihr unter dem „Projekt Explorer“ Rechtsklick ... |
|||||
| Rich TextBox + (Common Dialog, Menu Editor) |
|||||
Verfasst am: 02.07.2008, 15:27 Aufrufe: 4309  FileName "" Then 'Wenn das was du Ausgewählt hast Größer & kleiner als Nichts ist, dann Öffne die dateiOpen cdl.FileName For Input As #1 'Hier öffnen wir die Datei die gerade ausgewählt wurde!RichTextBox1.Text = "" 'Richtextbox LeerenWhile Not EOF(1) 'wenn noch nicht am ende der dateiLine Input #1, input_data 'Dann Lies weiter in die Varieable Line_Input einRichTextBox1.SelText = input_data & vbCrLf 'Hier wird ... |
|||||
| batch in vb6? |
|||||
| Verfasst am: 22.06.2008, 16:12 Aufrufe: 962 |
|||||
| Lesson5 - Befehlhilfe |
|||||
| Verfasst am: 22.05.2008, 11:39 Aufrufe: 641 |
|||||
| Leere Zeile in Listview löschen |
|||||
| Verfasst am: 08.05.2008, 20:07 Aufrufe: 1440 |
|||||
| Leere Zeile in Listview löschen |
|||||
| Verfasst am: 08.05.2008, 19:57 Aufrufe: 1440 |
|||||
| [B] Auslesen bestimmter Zeilen einer Datei |
|||||
| Verfasst am: 30.04.2008, 17:36 Aufrufe: 1284 ... tional lEnd As Long = 0) As String On Error GoTo Errhandler: Dim sTemp As String, sOutput As String Dim FF As Integer FF = FreeFile Open sPath For Input As #FF If lStart = 0 Then GoTo 10 For i = 1 To lStart - 1 Input #FF, sTemp Next 10 If lEnd = 0 Then GoTo 20 For i = lStart To lEnd If EOF ... |
|||||
| Mehrere Zeilen speichern |
|||||
| Verfasst am: 26.04.2008, 19:22 Aufrufe: 403 Open Blub For Input As #1 Do While Not EOF(1) Input #1, BatText If Text1.Text = "" Then Text1.Text = BatText Else Text1.Text = Text1.Text & vbNewLine & BatText End If Loop Close #1 Und bei Text1 MulitLine auf True setzen. Edit: xD 100ster Post von mir.    |
|||||
| Mehrere Zeilen speichern |
|||||
| Verfasst am: 26.04.2008, 19:10 Aufrufe: 403 |
|||||
| List1 in eine TXT Printen |
|||||
| Verfasst am: 26.04.2008, 16:34 Aufrufe: 424 Private Sub Command3_Click() Dim x as long Open "C:\Infos.txt" For Output As #1 'Oder Appen falls immer angehängt werden soll For x = 0 To List1.ListCount - 1 Print #1, List1.List(x) Next Close #1 End Sub @chiller1415 Open blabla for Input as #1 Dim sBuffer as string Do Until EOF(1) Line Input #1, sbuffer if LenB(sbuffer) <> 0 the ... |
|||||