Report von Programm zu Programm senden.

  • VB.NET

Es gibt 27 Antworten in diesem Thema. Der letzte Beitrag () ist von der_Frank.

    Report von Programm zu Programm senden.

    Hallo,

    wenn das der Falsche Bereich ist bitte Moven.
    ----
    Ich habe einen Code geschrieben der Sowas wie ein Report System sein soll.
    Man soll alles Eintragen und wenn man auf Absenden drückt soll man es auf einem Anderem Programm bekommen... Wie soll ich das machen?
    Ich habe immoment alles mit E-Mail system.

    VB.NET-Quellcode

    1. Imports System.Net.Mail
    2. Public Class Form1
    4. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    5. TextBox1.Clear()
    6. RichTextBox1.Clear()
    7. End Sub
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    10. Dim smtpServer As New SmtpClient()
    11. Dim mail As New MailMessage()
    12. smtpServer.Credentials = New Net.NetworkCredential("******@web.de", "********") 'Passwort
    13. smtpServer.Port = 587
    14. smtpServer.Host = "smtp.web.de"
    15. smtpServer.EnableSsl = True
    16. mail = New MailMessage
    17. mail.From = New MailAddress("******@web.de")
    18. mail.To.Add("********@web.de")
    19. mail.Subject = "Neuer Report"
    20. mail.Body = "Name des Angeklagten: " & TextBox1.Text + vbNewLine & "Datum des Verbrechens: " & DateTimePicker1.Text + vbNewLine & "Art: " & ComboBox1.Text + vbNewLine & "Beschreibung: " & RichTextBox1.Text + vbNewLine & "Mit freundlichen Grüßen" + vbNewLine & "Auto. Report System"
    21. smtpServer.Send(mail)
    22. MsgBox("Der Report wurde an alle Admins gesendet.")
    23. End Sub
    24. End Class

    FerienFreak schrieb:

    Anderem Programm

    Ein anderes Programm auf deinem PC, eine andere Instanz deines Programmes auf deinem PC, ein anderes Programm auf einem anderen PC oder eine Instanz deines Programmes auf einem anderen PC?

    LG

    Moin moin,

    hast du das "Empfängerprogramm" auch in VB geschrieben? Wenn ja, kannst du deine Werte als Strings beim Prozessaufruf durch

    VB.NET-Quellcode

    1. Dim myPath As String = "Anwendung.exe"
    2. Dim pr As New Process
    3. pr.StartInfo.FileName = myPath
    5. ' Reihenfolge der Startparameter:
    6. ' Anrede ausgewertet (1=Herr, 2=Frau) , Name, Vorname, Geburtsdatum, Strasse, Hausnummer, Plz, Ort, Telefon, EMail, IBAN, BIC, Briefanrede, Tarif_seit
    7. Dim args As String = ""
    8. If dt.Rows(pos).Item("Anrede") = "Herr" Then args = args & """1"" "
    9. If dt.Rows(pos).Item("Anrede") = "Frau" Then args = args & """2"" "
    11. args = args & """" & Kd_Name.Text & """ "
    12. args = args & """" & Kd_Vorname.Text & """ "
    13. args = args & """" & kd_Geburtsdatum.Text & """ "
    14. args = args & """" & Kd_Strasse.Text & """ "
    15. args = args & """" & Kd_Hausnummer.Text & """ "
    16. args = args & """" & Kd_Plz.Text & """ "
    17. args = args & """" & Kd_Ort.Text & """ "
    18. args = args & """" & Kd_Telefon.Text & """ "
    19. args = args & """" & Kd_EMail.Text & """ "
    20. args = args & """" & Kd_IBAN.Text & """ "
    21. args = args & """" & Kd_BIC.Text & """ "
    22. args = args & """" & Kd_Briefanrede.Text & """ "
    23. args = args & """" & Kd_Tarif_seit.Text & """ "
    25. pr.StartInfo.Arguments = args
    26. pr.Start()
    28. pr.WaitForExit()
    30. pr.Close()


    übergeben und beim "Empfängerprogramm durch .... (Auszug aus meinem Code)

    VB.NET-Quellcode

    1. ' Startparameter abrufen
    3. Dim params() As String = Environment.GetCommandLineArgs()
    5. If params.Count >= 2 Then
    6. Try
    8. If params(1).ToString = "1" Then VN_Herr.Checked = True
    9. If params(1).ToString = "2" Then VN_Frau.Checked = True
    11. VN_Name.Text = params(2).ToString
    12. VN_Vorname.Text = params(3).ToString
    13. VN_Geb.Text = params(4).ToString
    14. VN_Strasse.Text = params(5).ToString
    15. VN_Hausnummer.Text = params(6).ToString
    16. VN_PLZ.Text = params(7).ToString
    17. VN_Ort.Text = params(8).ToString
    18. VN_Telefon.Text = params(9).ToString
    19. VN_Email.Text = params(10).ToString
    20. IBAN.Text = Mid(params(11).ToString, 3)
    21. BIC.Text = params(12).ToString
    22. Briefanrede = params(13).ToString
    24. Beginnjahr = Date.ParseExact(params(14).ToString, "dd.MM.yyyy", Nothing).Year
    26. Catch ex As Exception
    28. End Try


    auslesen.

    .... Falls ich dich richtig verstanden sollte ;)

    eine andere Lösungsansatz wäre vllt ein Datenbänkchen für die Verbrecherkartei-> das Empfängerprogramm synchronsiert sich mit dieser beim Start.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „der_Frank“ ()

    Moin,

    Sicherheit: Gefahrenquelle Quellcode
    Sieh zu, dass Du Dir ein PHP-Script zulegst und das darüber machst, dann brauchst Du im Client keine Credentials.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Jo, falls der User bei seiner Mail-Geschichte bleiben will.
    Bei Programmen aufm lokalen PC würde ich IPC nehmen und sonst TCP.

    Aber da der User ja auf Fragen wie "welchen Apfel willst du" mit "Pudding" antwortet, wirds schwer zu helfen ;)!
    Polling is trolling!

    Achtung: Ich habe die komische Angewohnheit, simple Dinge zu verkomplizieren..

    Ok,
    ich habe mir vorgenommen es mit einer Datenbank zu machen...
    Ich bin auch recht weit gekommen denke ich doch ich komm nicht klar xD

    VB.NET-Quellcode

    1. ​Imports Admintool.start_admintool
    2. Imports MySql.Data.MySqlClient
    3. Public Class Form1
    5. Public Shared conn As New MySql.Data.MySqlClient.MySqlConnection
    6. Public Shared da As Common.DataAdapter
    7. Dim sql As String
    9. Public Shared Sub abfrage_ausfuehren_start_form(ByVal dieser_sql As String)
    10. Try
    11. conn.ConnectionString = myConnectionString
    12. conn.Open()
    13. da = New MySqlDataAdapter(dieser_sql, conn)
    14. Dim dt As New DataTable
    15. da.Fill(dt) 'Fehler?
    16. Form1.lb_anzahl.Text = dt.Rows.Count.ToString
    17. Form1.DataGridView1.DataSource = dt
    18. conn.Close()
    19. Catch ex As MySql.Data.MySqlClient.MySqlException
    20. MessageBox.Show(ex.Message)
    21. End Try
    22. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. sql = "SELECT * FROM benutzer"
    26. abfrage_ausfuehren_start_form(sql)
    27. End Sub
    28. End Class

    Hier ist der Fehler Code.
    Ich hoffe ihr könnt helfen.

    Quellcode

    1. ​Fehler 1 Der Wert vom Typ "System.Data.DataTable" kann nicht in "System.Data.DataSet" konvertiert werden. C:\Users\Patrick\Desktop\Visual Basic 2010\Admintool\Admintool\Form1.vb 15 21 Admintool

    Du mixt da auch verschiedenste Typen, ist aber auch egal.
    Verwende PHP, das kann sowohl mit Datenbanken als auch Mail kommunizieren und ist sicher.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Ich schrieb ja, dass es auch mit Datenbanken kommunizieren kann.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Eine Datenbank ist was anderes, Deine verwendet z. B. als Modul SQL. Mit PhpMyAdmin kannst Du nur darauf zugeifen. Du sollst aber via PHP die MySql ansprechen, weil dann keine Credentials im Code der lokalen Anwendung stehen, mit denen man die Datenbank kapern könnte, sondern dann nur in der PHP und die wird immer ausgeführt, sodass die sicher verstaut sind.

    Das heißt also, Du sollst das nicht mit dem Connector machen, weil sonst jeder damit direkt Zugriff auf Deine Datenbank hat, was ungut ist.
    Der Fehler kommt btw daher, dass Du kein DataSet hast, sondern versuchst, direkt einen DataTable zu füllen.

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    moin moin ,

    du solltest

    VB.NET-Quellcode

    1. 'in der Klasse:
    3. Dim da As MySqlDataAdapter
    4. Dim dt As New DataTable
    6. '...
    7. '...
    8. '...
    10. 'im load-Ereignis:
    12. Dim conn As New MySqlConnection
    13. Dim myConnectionString As String
    14. myConnectionString = "server=HOST;uid=USER;pwd=PWD;database=DATENBANK; "
    15. conn.ConnectionString = myConnectionString
    16. Try
    17. conn.Open()
    18. Catch ex As Exception
    19. MessageBox.Show("MySQL-Server nicht erreichbar!", "Schwerwiegender Fehler", Nothing, MessageBoxIcon.Error)
    20. Application.Exit()
    22. End Try
    24. ' Dem DataAdapter mitteilen, welches SQL Kommando er ausführen soll
    25. ' und welche Verbindung er dazu verwenden soll
    26. da = New MySqlDataAdapter("SELECT * FROM `TABELLENNAME`", conn)
    28. ' Füllt die DataTable im DataSet mit Daten aus der Datenbank.
    29. ' Der DataAdapter öffnet und schließt die Verbindung zur Datenbank selbst !!
    30. da.Fill(dt)
    33. '...
    34. '...
    35. '...

    deklarieren

    Dann sollte die Verbindung zur MySQL Datenbank laufen, denke ich.

    Viel Erfolg ;)

    Ah, @FerienFreak, es ging gestern ja darum, dass Du dann die Daten holst, dann ist das natürlich was anderes und Du hast recht, dann kannst Du das natürlich so machen, denn dann ist PHP ja nicht nötig. Ich hatte es missverstanden, sorry.
    Hätte ich aber auch gleich draufkommen können, als es darum ging Daten aus der Datenbank zu holen und etwas damit zu füllen.
    Dann vergiss, was ich sagte, hag sich erledigt ^^

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    @TE: Falls du vb.net proggen möchtest, dringend empfohlen: Visual Studio - Empfohlene Einstellungen

    Dann wird dich bereits der Kompiler drauf hinweisen, dass eine DataTable kein Dataset ist. Auf diese Weise kannst du lernen, Datentypen voneinander zu unterscheiden, also imo ist das ühaupt die Vorraussetzung, um .Net programmieren lernen zu könnnen.

    VB.NET-Quellcode

    1. ​Imports Admintool.start_admintool
    2. Imports MySql.Data.MySqlClient
    3. Public Class Form1
    5. Public Shared conn As New MySql.Data.MySqlClient.MySqlConnection
    6. Public Shared da As Common.DataAdapter
    7. Dim sql As String
    9. Public Shared Sub abfrage_ausfuehren_start_form(ByVal dieser_sql As String)
    10. Try
    11. conn.ConnectionString = myConnectionString
    12. conn.Open()
    13. da = New MySqlDataAdapter(dieser_sql, conn)
    14. Dim dt As New DataSet
    15. da.Fill(dt)
    16. Form1.lb_anzahl.Text = dt.Tables.Count.ToString
    17. Form1.DataGridView1.DataSource = dt
    18. conn.Close()
    19. Catch ex As MySql.Data.MySqlClient.MySqlException
    20. MessageBox.Show(ex.Message)
    21. End Try
    22. End Sub
    24. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    25. sql = "SELECT * FROM benutzer"
    26. abfrage_ausfuehren_start_form(sql)
    27. End Sub
    28. End Class


    Ich habe es nun so gemacht.
    ABer wenn ich Debugge dann passiert das, dass er mir

    VB.NET-Quellcode

    1. conn.Connectionstring = myConnectionstring
    anstreicht.

    img3.fotos-hochladen.net/uploads/jach53mgl2.jpg

    Hat jemand ne Idee?

    Gibt es eine InnerException? Die findest Du unter "Details anzeigen..."

    Grüße
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende