Visual Basic Forum

Verfasst am: 04.01.2012, 10:13 Aufrufe: 141

... ss QCConnection Public Sub getConnection() Dim tdc As TDConnection End Sub End Class Wenn ich das Projekt nun deploye und in meinem Browser durch einen klick auf einen Button die Funktion getConnection() aufrufe, stürtzt das Programm ab und ich bekomme folgende Fehlermeldung: Start-URI: Z:\Documents and Settings\TGDGEDAD\Desktop\tmp\TDO-EXT.xbap Anwendungsidentität: file ...

Verfasst am: 13.11.2011, 08:20 Aufrufe: 324

11 - - VIPRE - 11033 - 2011.11.13 - - ViRobot - 2011.11.11.4770 - 2011.11.12 - - VirusBuster - 14.1.60.0 - 2011.11.12 - - File info: MD5: 7d43a2d227575217af4070154ecb54b8 SHA1: 8af089c346bfffa1191f3101bc942ae8771df3be SHA256: 36e495974a1e8597b683ba0d4501bf3b1468d816154cddec0547198320839de9 File size: 172282 bytes Scan date: 2011-11-13 08:12:11 (UTC) Viel spaß damit ihr könnt mir auch gerne eure Äusserung ...

Verfasst am: 07.10.2011, 03:30 Aufrufe: 196

Auf dem Entwicklungsrechner habe ich auch die Entwicklungsumgebung und kann debuggen. Natürlich gibt es aber auch Fehler, die nur in Produktion auftreten oder nur dort nachvollziehbar sind. Wie kann ich nun die EXE auf dem Win Server debuggen? Ich habe irgendwas von WINDBG gelesen und das ich sicherstellen muss, dass VB6 neben der EXE noch ein PDB File erzeugt (Symbole). Hat jemand von Euch nen Tipp wie ich ...

Verfasst am: 11.08.2011, 05:45 Aufrufe: 363

hallo guido65, danke für die schnelle antwort. hatte die frage noch in einem anderen forum gepostet und konnte das problem jetzt lösen. es lag an der formatierung der textdatei, die für meine zwecke expliziet im ASCII-code ausgegeben werden musste. file = My.Computer.FileSystem.OpenTextFileWriter(Hauptmenü.txtdateien.Text & dateiname & ".dxf", True, System.Text.Encoding.ASCII)

Verfasst am: 10.08.2011, 07:34 Aufrufe: 363

... ???!!! Kann sich jemand vorstellen was das sein könnten? Ideeen? Vielen Dank schonmal, Gruß Beppo DXF-Anfang einlesen: Public Sub dxfanfang(ByVal dateiname As String) 'dxf-anfang aus datei laden Dim dxfanfang As String dxfanfang = My.Computer.FileSystem.ReadAllText(Hauptmenü.txtdxf.Text & "dxf-anfang.txt") 'dxf-anfang schreiben My.Com ...

Verfasst am: 25.06.2011, 13:01 Aufrufe: 350

Verfasst am: 16.06.2011, 14:29 Aufrufe: 517

Verfasst am: 24.05.2011, 06:23 Aufrufe: 545

0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.. ---> System.IO.FileNotFoundException: Die Datei oder Assembly "Microsoft.VisualBasic.PowerPacks.Vs, Version=9.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die ...

Verfasst am: 25.03.2011, 08:56 Aufrufe: 625

csv - Datei geöffnet und die Daten Zeile für Zeile in einen String eingelesen werden. Das Öffnen über einen verknüpften Button funktioniert schon, hier einmal der bisherige Code: Sub OpenCSVFile() Dim FileP As String Dim i As Integer Dim wks As Worksheet Title = "Datei zum Öffnen auswählen." ' Ausgangslaufwerk und Pfad ChDrive ("C:\") ChDir ("C:\& ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

**/************/test/filesizes.

Verfasst am: 17.03.2011, 14:56 Aufrufe: 490

Also ich hab den Code grade nochmal 1 zu 1 wie ich ihn hier gepostet hab bei mir reinkopiert und er läuft ohne Fehler durch... Ich kann dir ja nochmal alles komplett posten, so gehts jedenfalls bei mir: Dim fs As IO.FileStream = New IO.FileStream( _ "Settings.ini", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.StreamRea ...

Verfasst am: 17.03.2011, 14:45 Aufrufe: 490

Wenn das Script erstmal so läuft, werde ich dann mal versuchen es in die Schleife einzuarbeiten, dass alle File behandelt werden, aber erstmal muss das Script laufen. Leider tut es das noch nicht, habe hier noch einen Fehler bekommen: If temp.Length > 12 Then Den ersten Teil macht er mit der File,aber den Bereich Parameter mag er nicht, da gibts ein NullReferenzException

Verfasst am: 17.03.2011, 14:25 Aufrufe: 490

Length > 6 Then If temp.Remove(6, (temp.Length - 6)) = "File =" Then 'Wenn die 5 ersten Zeichen der ausgelesenen Zeile deinen Suchbegriff ergeben dann: Setting1 = temp.Remove(0, temp.LastIndexOf("=") + 1) ' Entfernen wir alles bis einschließlich dem = und übergeben den Wert Setting1 End If En ...

Verfasst am: 17.03.2011, 13:36 Aufrufe: 490

Beim ausführen des Programms bekomm ich ein ArgumentOutOfRangeException und zwar hier If temp.Remove(5, temp.Length) = "File =" Then ich nehme an an der Zeile mit Parameter wird das Problem dann nochmal auftreten. Den Import der Methode hatte ich schon drin. Ja genau sowas passiert mir immer wenn ich was frei Schnauze schreibe Very Happy

Der remove Aufruf ist ja Nullbasieren, die Zählung fä ...

Verfasst am: 17.03.2011, 13:28 Aufrufe: 490

Funktioniert leider noch nicht Ich gebe dir mal den Inhalt der Settings.ini von dem Bereich der für mich interessant ist: If temp.Remove(5, temp.Length) = "File =" Then ich nehme an an der Zeile mit Parameter wird das Problem dann nochmal auftreten. Den Import der Methode hatte ich schon drin.

Verfasst am: 17.03.2011, 13:14 Aufrufe: 490

... ength" ist kein Member von "String" "Var1LastIndexOf" wurde nicht deklariert. Wo und was muss ändern? LG MarkOH Sry da waren ein paar Tippfehler drinn, habs nochmal editiert kannst es wieder versuchen. Achso und du musst, um Dateien einlesen zu können erst noch die Methode importieren, also diese Zeile noch vor "Public Class..." einfügen Imports System.IO.File ...

Verfasst am: 17.03.2011, 12:24 Aufrufe: 490

Also, was du vorhast ist garnicht so schwierig, eine Datei komplett auslesen kannst du so: 'Wir deklarieren uns erstmal ein paar Variablen Dim Setting1 As String Dim Setting2 As String Dim fs As IO.FileStream = New IO.FileStream( _ "Settings.ini", IO.FileMode.Open, _ IO.FileAccess.Read) Dim w As IO.Strea ...

Verfasst am: 17.03.2011, 10:57 Aufrufe: 490

Hallo, ich bin totaler Newbie was die Programmierung angeht, möchte jetzt aber damit mal anfangen. Und zwar möchte ich gern aus einer Datei die Settings.ini heißt bestimmte Zeilen auslesen. Die Zeilen beginnen mit File = und Parameter = ich benötige quasi das was nach dem = kommt. Die Zeilen stehen ziemlich am Ende der Datei, der ganz "mist" am Anfang interessiert mich garnicht. Den Inh ...

Verfasst am: 15.03.2011, 20:37 Aufrufe: 327

Verfasst am: 13.03.2011, 19:27 Aufrufe: 388

Hier ist das Formular was auf meinem FTP Server ist und was ich mit dem WebBrowser Control aufrufe: <form enctype="multipart/form-data" action="#" method="post"> <input type="hidden" name="MAX_FILE_SIZE" value="3000000"> Send this file: <br> <input name="userfile" type="file"><br> <input typ ...

Verfasst am: 09.02.2011, 14:23 Aufrufe: 395

Hab' das Problem mit Hilfe von anderen VB-Forum gelöst! For Each Line As String in IO.File.ReadAllLines("Pfad\Datei.txt") If Line.Contains("Zeichenfolge") Then Label1.Text = Line End If Next

Verfasst am: 30.12.2010, 18:56 Aufrufe: 1108

0 Current Version: Prolex Pad 0.2.8 Highlights: Fullscreen- and Note-Mode Recent Files Skins Snapping Tool Macros Codings Multilanguage Support Explorer and Jumplist Integration Overview of some Highlights: Recent Files: Although the Recent Files is a small feature, it is an important and time-saving one, too. You can find it in the 'File'-menu. When you're using Windows 7 then ...

Verfasst am: 21.12.2010, 10:46 Aufrufe: 394

Verfasst am: 03.12.2010, 15:17 Aufrufe: 509

Verfasst am: 30.11.2010, 18:41 Aufrufe: 531

Verfasst am: 07.11.2010, 12:42 Aufrufe: 542

Jetzt habe ich doch noch eine weitere Frage dazu: Mein Code zum Versenden einer Datei über ein html Formular mit VB sieht wie folgt aus: Private Sub cmdUpload_Click() Dim aPostData() As Byte Dim vPostData As Variant Dim vUrl As Variant Dim vHeaders As Variant Dim strText As String Dim strContentHeader As String Dim strBody As String Dim nFile As Integer Me.txtFile1.Text = "D& ...

Verfasst am: 07.10.2010, 04:46 Aufrufe: 491

Die Zahlen lassen sich nun eingeben, jetzt gehts nur noch darum, die eingegebene Zahl mit der Spalte A in einem Excel File zu suchen, wenn vorhanden IO. gruß andy

Verfasst am: 06.10.2010, 06:27 Aufrufe: 491

Wenn ich die Zahlen klicke sollen diese unten im Zahlenfeld erscheinen. bei klick auf den Button login, soll die eingegebene Zahl mit den Zahlen welche in einer Excel Tabelle geschrieben sind vergliechen werden. Wenn die eingegebene Zahl in dem Excel File in Spalte A hinterlegt ist, wird die nächste Form geöffnet. Hat da jemand eine Idee? Bin neu & habe eine Aufgabe bekommen, möchte diese bewältigen. ...

Verfasst am: 04.10.2010, 13:23 Aufrufe: 418

Hallo, mit einer unter VB2008 Express erstellten Anwendung sollen Dateien von einem Netzlaufwerk auf den lokalen Client mit Filestream() kopiert werden. Dazu wird erst mit FileOpen() geprüft, ob die Datei in Benutzung ist. Unter einem WindowsXP-Client funktioniert alles tadellos, jedoch ist unter einem Windows7-Client die zu kopierende Datei angeblich von einem anderen Benutzer geöffnet und kann somit nicht automa ...

Verfasst am: 07.09.2010, 16:26 Aufrufe: 766

Verfasst am: 25.08.2010, 14:05 Aufrufe: 949

exe" Zeitplan="WEEKLY" '*** Name der INI-Datei wie Name des Scripts *** INIfile = Left(Wscript.

Verfasst am: 25.08.2010, 07:52 Aufrufe: 811

Guten Morgen zusammen. Ich habe folgende Aufgabenstellung von meinem Chef bekommen. Ich soll ein Add-In sowohl für Word, Excel und PowerPoint (Office 2007) basteln, welches beim klicken eines Buttons, sich auf einen FTP Server verbindet, dort die verfügbaren Files abcheckt (also wenn ich von Word aus connecte dann nur Word Dokumente...werde ich wahrscheinlich mit einer Datenbank regeln aber das weiss ich noch net ...

Verfasst am: 28.06.2010, 20:51 Aufrufe: 447

Ich habe es geschafft aus zwei Längengraden und Breitengraden eine Distanz und die Zeit zu berechnen. Wenn ich aber das gesamte nmea File berechne komme ich auf unrealistische Werte. Die nmea Datei befindest sich unter http://haiflosse.lima-city.de/nmea.txt. 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) L ...

Verfasst am: 09.06.2010, 13:48 Aufrufe: 568

Verfasst am: 20.01.2010, 17:48 Aufrufe: 2032

Verfasst am: 03.01.2010, 21:56 Aufrufe: 526

Verfasst am: 17.12.2009, 17:54 Aufrufe: 1339

Miuerzi, ok danke mal für die antwort. Meine Frage (deutlich): Was muss ich hinschreiben bei "Form_load()", dass sich das batchdatei öffnet? z.b sowas? open.file = App.Path"/autorun.bat" bitte um hilfe

Verfasst am: 15.12.2009, 10:59 Aufrufe: 422

hallo freunde habe eine frage ,.. wie erstelle ich ein makros mit Microsoft Visual Basic 2008 Express Edition oder vb6 ich möchte ein exe schreiben mit ein makros funktion geht das wenn ja könnt ihr mir ein beispiel code geben.!!!?? :O oder kann man ein project in ( quick macros file) speichern bitte helfen sie mir mit ein beispiel code oder wenigstens sagen wie ich mit visual basic ein quick macros code schreibe ...

Verfasst am: 10.12.2009, 22:38 Aufrufe: 586

Verfasst am: 07.12.2009, 18:40 Aufrufe: 828

Ok das mit dem Öffnen funktioniert jz.. nur noch ein Problem wenn ich eine datei crypten möchte sagt er mir : Run time error 52 bad file name or number . und dann beendet sich das programm leider. Der Source code: Dim sStub As String Dim sFile As String Dim sOutput As String Dim sKey As String Dim sInfo As String * 100 Dim lFileLen As Long Dim lFileStart As Long Dim sBuffer As String Dim sBuffer2 ...

Verfasst am: 26.11.2009, 22:28 Aufrufe: 3510

Delphi 2005 PE -> http://www.delphipraxis.net/delphi2005download.phpDelphi 7 PE -> http://rapidshare.com/files/149094842/Delphi7_Personal.rar("activation@embarcadero.com")To complete product registration, save the attached file intoyour home directory before starting your Borland product.NOTES:- The contents of this e-mail and the attached file are for yourexclusive use and should not be shared with others.- Save the ...

Verfasst am: 26.11.2009, 13:36 Aufrufe: 963

... - Basic String Manipulation - ZIP#7 - Basic Datatypes - ZIP#8 - Sets - ZIP#9 - Arrays - ZIP#10 - Records - ZIP#11 - Basic Data - ZIP#12 - Simple Class - ZIP#13 - Procedure and Functions - ZIP#14 - Units - ZIP#15 - Inheritance - ZIP#16 - Polymorphism - ZIP#17 - Why OOP - ZIP#18 - Properties - ZIP#19 - Member Visibility - ZIP#20 - Constructors and Destructors - ZIP#21 - TurboPad: About Box - ZIP#22 - TurboPad: File ...

Verfasst am: 22.11.2009, 21:27 Aufrufe: 1077

realName = TextBox3.Text User.status = TextBox4.Text Dim FileNum As Integer FileNum = FreeFile() FileOpen(FileNum, "user.dat", OpenMode.Random) 'Write the record to the file FilePut(FileNum, User) FileClose(FileNum) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As Sy ...

Verfasst am: 22.11.2009, 18:34 Aufrufe: 799

hier ein interessanter Beitrag, schau dir den File Helper von Elmar Boye (MSDN) an. der funtktioniert

Verfasst am: 13.11.2009, 10:21 Aufrufe: 2374

", ",") If IsNumeric(s) Then tmp = CSng(s) If tmp > ver Then ver = tmp End If Next c getCurrentVersion = Replace(CStr(ver), ",", ".") End Function Private Sub CommandButton1_Click() 'vars Dim fs As Object Dim outfile As Object Dim cv As String ...

Verfasst am: 28.09.2009, 17:03 Aufrufe: 834

String") Table1.Columns.Add(Fehler2) Dim daten() Dim merkerarray() daten = File.ReadAllLines("C:\daten.txt") i = 0 Do While i < UBound(daten) ' dataarray(i) <> "" merkerarray = Split(daten(i), ";") 'Globale nicht kopieren bedingungen If UBound(me ...

Verfasst am: 09.09.2009, 17:37 Aufrufe: 750

Hallo, Ich wollte einfach nur fragen, ob diese Idee funktionieren könnte, so einen Crypter zu bauen. Ich möchte einen Cryter bauen, der das exe file in Assembler Code formatiert, und an Stellen im Code Jumps oder einfach nur leere Code Zeilen einfügt, um Dateien vor AntiVir zu schützen. Danach wird der Assembler Code wieder in eine EXE "compiled" (oder wie man das auch immer nennt) Ich bräuchte vo ...

Verfasst am: 06.08.2009, 12:25 Aufrufe: 1029

Verfasst am: 03.08.2009, 02:25 Aufrufe: 1641

Verfasst am: 21.07.2009, 19:56 Aufrufe: 1056

Visual Basic: das kommt aber immer noch wenn ich auf debuggen gehe und dann die aktion einleite