Visual Basic Forum

Verfasst am: 07.02.2012, 21:33 Aufrufe: 24

Adodc2 greift auf dieselbe Tabelle zu: Adodc2.RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort" War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden: Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset ...

Verfasst am: 20.12.2011, 10:22 Aufrufe: 72

Microsoft VBScript compilation error '800a03ee' Expected ')' BackupCleanUp.vbs, line 18 Private Function ParseDate (ByVal DateString As String, _ ByVal DatePattern As String) As Date Bitte helfen! / Please help!

Verfasst am: 14.12.2011, 14:52 Aufrufe: 277

SendData "Sie haben sich beim letzten mal nicht Ausgeloggt!" Else List1.AddItem messageSplit(1) End If Das die Null da nicht richtig ist weiß ich, ich möchte ja alle Einträge prüfen. Also was mache ich da? Du Null steht da nur, weil ich es ausprobieren wollte, aber wenn ich jetzt versuche die .exe zu erstellen kommt folgender Fehler: "Compile error: Invalid qu ...

Verfasst am: 02.12.2011, 08:44 Aufrufe: 223

Verfasst am: 30.11.2011, 10:38 Aufrufe: 223

Meine Syntax schaut bisher wie folgt aus: Sub Execute1() Call ExportFile End Sub ------ Function ExportFile (lpszSourceFileName As String, lpszDestinationFileName As String, lExportType As Long) As Boolean ExportFile = True End Function der Code steht komplett in einem Modul. Nun zeigt mit VB beim Compilieren für den Befehl "Call ExportFile" die Fehlermeldung "Compile error: Argument not ...

Verfasst am: 29.11.2011, 08:37 Aufrufe: 194

Object, ByVal e As System.EventArgs) Handles Button1.Click MsgBox(HoleTextVonZwischenablage) End Sub Public Function HoleTextVonZwischenablage() As String Dim oData As New DataObject On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen Leerstring oData.GetFromClipboard() HoleTextVonZwischenablage = oData.Get ...

Verfasst am: 20.11.2011, 19:59 Aufrufe: 192

Funktioniert auch, aber eben immer erst nach dem zweiten click. Was mach ich falsch? Danke im Voraus für Eure Hilfe. Option Compare Database Option Explicit Private ZuErsetzen As String Private Inhalt As String Private Sub cmd_bold_Click() On Error GoTo cmd_bold_Click_Error If ZuErsetzen = "" Then Exit Sub End If Inhalt = Replace(Inhalt, ZuErsetzen, "<b>" & ZuErset ...

Verfasst am: 16.10.2011, 17:09 Aufrufe: 171

Verfasst am: 27.07.2011, 12:45 Aufrufe: 168

Verfasst am: 17.07.2011, 21:48 Aufrufe: 229

Hallo Makle Du beschrkänkst dich in deinem Code auf "MenuStrip"s. For Each c As Control In Me.Controls With c If TypeOf c Is MenuStrip Then .Text = "Test" End If End With Next So gehts On Error Resume Next For Each c As Control In Me.Controls With c .Text = "Test" End With Next On Error Goto 0 on error ist wichtig, da es Steuerelemente gibt die keine Text-Ei ...

Verfasst am: 24.05.2011, 12:33 Aufrufe: 724

Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim WB As Excel.Workbook Dim WS As Excel.Worksheet Dim z As Integer Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.Application") If Err.Number Then Err.Clear( ...

Verfasst am: 24.05.2011, 12:13 Aufrufe: 724

Interop Private Function ZellInhalt(ByVal XlsDatei As String, ByVal Zelle As String) As String Dim XL As New Excel.Application Dim XLWorkBooks As New Excel.Workbook 'hier wird der Fehler verursacht Dim XLWorkSheet As New Excel.Worksheet Dim z As Integer Dim wbk As String ' Excel öffnen On Error Resume Next XL = GetObject(, "Excel.A ...

Verfasst am: 09.05.2011, 09:32 Aufrufe: 425

Also er liest sich bei einem Klick auf die entsprechende Zeile in der Listbox die Daten in die Textboxen und wenn man in diesen Textboxen etwas ändert, soll die Änderung auch in die Tabelle übernommen werde. Bis jetzt passiert aber nichts. Kann mir vielleicht jemand weiter helfen? Hier der Code: Private Sub CommandButton3_Click() 'Datensätze ändern Dim lng As Long Dim i As Integer On Error Res ...

Verfasst am: 25.03.2011, 00:11 Aufrufe: 672

. MessageBox.Show("Fehler: " & vbCrLf & ex.Message, _ "Fehler", MessageBoxButtons.OK, _ MessageBoxIcon.Error, MessageBoxDefaultButton.Button1) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Process.Start("http: ...

Verfasst am: 18.03.2011, 22:01 Aufrufe: 292

bei Excel.XlOrientation.xlDownward kommt der Error Code -2146827284, die Sort-Methode konnte nicht ausgeführt werden. Hat hier jemand Erfahrung mit der Sort Funktion aus VB.NET heraus? Kann mir vielleicht jemand einen Tipp geben, was ich falsch mache oder wie ich das Problem angehen könnte? Vielen Dank schon im Voraus für die Hilfe! Sitze jetzt seit einem halben Tag an dem Problem und komm einfach nicht voran.

Verfasst am: 07.03.2011, 19:07 Aufrufe: 403

M(100, 5) erneut True wird dann soll die Datei erneut erstellt werden. Bin echt sehr dankbar für euere Vorschläge Private Sub Command8_Click() ' M5.4 lesen If (CPU_Connected = True) Then On Error GoTo err: ' M(nr As Long, bit As Long) As Long ' nr: Adresse des Merkerbytes ' bit: Bitnummer im Merkerbyte ' Rückgabe: Gelesener Wert M5_4.Value = CPU ...

Verfasst am: 28.02.2011, 09:11 Aufrufe: 497

hi hab ich schon mal gepostet Private Sub CommandXY_Click() WebBrowser1.Document.Forms(0).loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click do doEvents while webbrowser1.busy = True WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen" ...

Verfasst am: 26.02.2011, 21:40 Aufrufe: 1120

Setz ein "On Error Do next" in die Zeile darüber und probier es nochmal mit Submit.

Verfasst am: 26.02.2011, 11:57 Aufrufe: 497

Document.Forms(0).loginname.Value = "Name1" WebBrowser1.Document.Forms(0).loginpwd.Value = "Passwort1" On Error Resume Next WebBrowser1.Document.Forms(0).submit.Click End Sub ### Hier werden die Accountdaten eingegeben und der Grafische Anmelde-Button wird geklickt Private Sub Command100_Click() WebBrowser1.Navigate "http://www.schulterglatze.de/truppe/wache/teilnehmen" ...

Verfasst am: 17.02.2011, 17:00 Aufrufe: 462

./current_version.txt") '# fehler abfrag die prüft ob die abfrage funktioniert If ???? Then status.Text = "Update-Check Error (Please check your internet connection and try again later) " webRequest.Abort() Me.UseWaitCursor = False Exit Sub End If webresponse = webRequest.GetResponse(& ...

Verfasst am: 10.12.2010, 08:50 Aufrufe: 396

Offset(1) Next Sheets(2).Activate End End Sub Public Sub Ldap_User() On Error Resume Next Dim A As Range Set A = Range("c1") Range("c2:c1000").Clear strLDAP = "LDAP://cn=" & A & ",OU=Sicherheitsgruppen,OU=firma,DC=domäne,DC=local" Set Group = GetObject(strLDAP) Set A = Rang ...

Verfasst am: 28.11.2010, 18:13 Aufrufe: 501

Verfasst am: 26.10.2010, 16:28 Aufrufe: 429

und ich ddenke auch ich bin auf dem richtigen weg, aber ich habe mal um verwirrung oder ähnliches zu vermeiden, meine zufügungen weggelassen. ich hoffe von euch ka mir einer helfen. mfg muhanator edit2Module modSystem Private Const gscModName As String = " so hier spuckt er mir egal wie und wo ich den conectionstring festlege immer die den error aus die ex msg lautet immer objektverweis wurd ...

Verfasst am: 08.09.2010, 08:20 Aufrufe: 317

Ich arbeite in Excel mit Makros und die werden ja bekanntlich mit VB programmiert... mein Problem ist, dass ich in diesem Makro ein anderes Script ausführen lasse, welches die CPU extrem auslastet. Wenn das Makro dann im Text weitergehen will, erhalte ich einen Runtime Error 7 (Zu wenig Speicher). Daher die Frage - kann ich mein Makro (also die VB-Abarbeitung) solange einfrieren bis genug Reccourse verfügbar sind ...

Verfasst am: 06.09.2010, 14:37 Aufrufe: 490

Verfasst am: 03.09.2010, 14:04 Aufrufe: 753

Show("You have created a new folder named " _ & userName & ".") inBox.Folders(userName).Display() Catch ex As Exception MessageBox.Show("The following error occurred: " & ex.Message) End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e A ...

Verfasst am: 03.08.2010, 12:36 Aufrufe: 865

txt" For Input As #2 Open "C:\kombinier.txt" For Append As #3 On Error Resume Next For i = 1 To 2000 Input #1, zeile1 For j = 1 To 2000 Input #2, zeile2 Print #3, zeile1 & zeile2 Next Next Close #1 Close #2 Close #3 lg Hallo, danke auch Dir vorab! Aber da stimmt was nicht. Hast Du mal selbst getestet? Selbst wenn nur 3 Zeilen vorhan ...

Verfasst am: 03.08.2010, 12:12 Aufrufe: 865

Verfasst am: 02.08.2010, 11:09 Aufrufe: 552

Mein OnError bestünde aus einem GoTo und dann käme MsgBox "Error " & Err.Number & vbCrLf & vbCrLf & Err.Description Aber ich denke mit deiner methode wirds beim debuggen besser, weil die IDE mir dann direkt zum fehler springt, wenn was anderes schief geht als eine falsche IP. Danke nochmals =)

Verfasst am: 02.08.2010, 11:00 Aufrufe: 552

... f der Form "unsichtbar" public sub Msg_Box ( byval sText as string) msgbox sText end Sub ist sichtbar und du kannst die funktion aufrufen in form1 private sub command1_click() modul1.Msg_Box "Das ist ein test" end sub und dann würde eine messagebox angezeigt werden ich hoffe ich habe das halbwechs verständlich erklärt lg edit: nimm nicht on error ...

Verfasst am: 01.07.2010, 06:05 Aufrufe: 787

Verfasst am: 26.06.2010, 14:45 Aufrufe: 373

Das Programm läuft perfect, es wird sogar angezeigt wieviel kb/mb schon gedownloaded wurden. Jetzt wollte ich gerne ein online login einbauen, sodass sich mehrer User logins habe und wenn ich nicht mehr möchte das sie dowloaden, einfach ihren account löschen kann. Aber wenn ich das Versuche ( Laut Youtube Tutrioal) Sagt es immer Error programm kann nicht gestartet werden. Habe natürlich mySql datenbank zu verfügun ...

Verfasst am: 20.06.2010, 15:56 Aufrufe: 389

... Property Property Get RegisterD() As String RegisterD = State(4) End Property Public Function DigestStrToHexStr(SourceString As String) As String MD5Init MD5Update Len(SourceString), StringToArray(SourceString) MD5Final DigestStrToHexStr = GetValues End Function Public Function DigestFileToHexStr(InFile As String) As String On Error ...

Verfasst am: 27.03.2010, 02:15 Aufrufe: 3184

bekomme leider auch nen error ;(

Verfasst am: 06.03.2010, 15:58 Aufrufe: 1263

Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) Dim adp As New OleDbDataAdapter("SELECT * FROM " & Tbl.TableName, conn) Dim b As New OleDbCommandBuilder(adp) adp.Update(Tbl) conn.Close() Catch ex As Exception Console.Write("Error in SavegameAna ...

Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050

" Ich weiß, es ist sehr viel Code, aber ich hoffe Ihr könnte mir dennoch helfen. Vielen Dank schonmal im Vorraus!! OK, erstmal der Code: Option Explicit Private Function CheckError() As Boolean 'Fehltertest CheckError = False If InitError > 0 Then WorkShow Work, "Go", True INFO.Caption = "Es sind Fehler aufgetreten!" & Chr(13) & "&# ...

Verfasst am: 10.01.2010, 00:47 Aufrufe: 422

Naja versuche mich schon seit 2 tage an den scheiß und immer wieder kommt was raus was ich nicht haben will mein problemm ist das ich das nicht hinbekomme das wenn eine Error Meldung kommt...die auswahl OK/Cancel oder YES/NO auch zu verfügung stehet Ein Bild von das was ich haben möchte: Source habe ich hochgeladen, währe echt nett wen ihr das teil zum Laufen bringen würdet schon mal danke ^^ vg http:// ...

Verfasst am: 07.01.2010, 07:49 Aufrufe: 831

Die dao360.dll ist im Installer (Paket und Weitergabe Assisent vom Visual Basic 6 Professional) enthalten. In der Regel läuft das Programm - zumindest auf den Rechner hier bei uns. Das Programm wurde aber auch an Kunden herausgegeben, und dort kommt es vereinzelt zu Error 3170 beim ersten DB-Zugriff. Woran könnte das liegen? Der Zugriff auf die Datenbank erfolgt über ein Data-Steuerelement, z.B.: ...

Verfasst am: 14.12.2009, 21:49 Aufrufe: 487

Liebe Enwtickler/innen ! Ich habe hier eine Frage zu einem fertigen Projekt von mir: Das programm is kurzum dazu da, um eine Mysql-Datenbank nach Inhalten zu dursuchen und diese in einer Listbox anzuzeigen. Es funktioniert alles schön und gut. Das alles ist durch ein Login geschützt, um zu sehen, ob der user auch im Forum vorhanden ist. Funktioinert gut und recht. Nur bekommen andere User (alle anderen) folge ...

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, 10:45 Aufrufe: 815

Properties("User ID") = Trim(User) ' Userpasswort .Properties("Password") = Trim(Passwort) 'Timeout .ConnectionTimeout = 10 On Error GoTo ConnectErr .Open End With GoTo Verbunden ConnectErr: ConnectMSSQL = False Exit Function Verbunden: ConnectMSSQL = True End Function Public Function DisconnectMSSQL() Conn.Close End Function Public Func ...

Verfasst am: 16.11.2009, 16:11 Aufrufe: 652

HALLO

WIE KANN MAN EIN SMILE PRG SCHREIBEN ICH MEINE DAS DIE SMILIES GESENDET WERDEN . HABE MIR SCHON WAS GEFUNDEN ABER WENN ICH DAS SCHREIBE ( Very Happy

:O ~O) ) kommt immer ERROR bitte helfen sie mir mit beispiel ...ich möchte ein Smile prg schreiben... ich weiss nur das mit richtextbox arbeiten muss Visual Basic 2008 """" : - ) ; ) : )) ~O ) B-) : D """&q ...

Verfasst am: 28.10.2009, 15:46 Aufrufe: 522

Nun habe ich eine schöne Componente gefunden um meinen Ideen freien Lauf zu lassen... Ich arbeite mit MS Winsock 6.0 damit wollte ich ein Chatprogramm realisieren, so schön so gut....immer wenn ich den Client Disconnecte und wieder CONNECTE bekommt der Client ERROR meldung="Falsches Protokoll oder Verbindungszustand für die Angeforderte Transaktion oder Anforderung" Wie kann ich das beheben.... C ...

Verfasst am: 14.10.2009, 08:09 Aufrufe: 784

InstancesOf("Win32_ComputerSystem") Return = objComputer.rename(Name,Password,Username) If Return <> 0 Then WScript.Echo "Rename failed. Error = " & Err.Number Else WScript.Echo "Rename succeeded." & _ " Reboot for new name to go into effect" End If Next Wie auch im ...

Verfasst am: 10.10.2009, 16:49 Aufrufe: 688

Verfasst am: 16.09.2009, 11:03 Aufrufe: 808

Verfasst am: 14.09.2009, 20:15 Aufrufe: 1489

Mein erster Gedanke, OK vllt ist das ganze etwas zu groß für Integer also probiere ich mal einige alternative Datentypen aus wobei ja Integer eigentlich mit allen nicht dezimalen Zahlenreihen klarkommen sollte. Aber nach inzwischen beinahe allen Variablen wird mir nichts desto trotz ob nun Produkt als double, string (s.u.) oder int64 ein OverflowException Error ausgespuckt. Vielleicht denke ich da gerade zu eingl ...

Verfasst am: 08.09.2009, 09:42 Aufrufe: 715

Moin Leute,wollte euch fragen, ob es möglich ich laufzeit fehler eines externen Programms(exe) zu unterbinden, da ich an dieses Programm ein string übergeben muss, und wenn dieser falsch ist, wird ein laufzeitfehler ausgegeben, den ich nicht gerne anzeigen würde, hab schon mit on error goto gemacht, das der prozess beendet wird, sobald ein fehler ausgegeben wird.Trotzdem sieht man den laufzeitfehler ganz kurz Sad

, wa ...

Verfasst am: 06.08.2009, 12:25 Aufrufe: 1029

NET einige Konstrukte die Fehler nicht zu vermeiden, aber aufzufangen und zu verarbeiten. Das hat den Vorteil, dass man zum Einen Fehler abfangen und gleichzeitig das Programm weiterlaufen lassen kann. Konstrukte wie man sie aus VB6 kannte (on error goto ) werden zwar noch von .NET unterstützt, das heißt aber nicht, dass man sie auch verwenden sollte. Das Framework bietet eine viel bessere Fehlerbehandlung al ...

Verfasst am: 03.08.2009, 18:09 Aufrufe: 459

halloich hab jetzt die ocx als resource eingepacktalles so wie im videotutorial gemacht und bei mir geht es auch bzw der cmd command wird ausgeführtjetzt hab ich das einem kumpel geschickt (@VM ware) und es geht nicht kommt error mswinsck.ocx fehltich habs auch einem mit vista geschickt geht auch nicht .. gleicher fehler.jetzt frag ich mich warum es nicht geht o0sry das ich immer einen thread aufmache und dann löse i ...