Datenquelle von einem Projekt in ein anderes überführen

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von jan99.

    Datenquelle von einem Projekt in ein anderes überführen

    MoiN!

    zunächst hoffe, dass ich in diesem Strang richtig bin....

    Es geht darum das ich eine eigenständige Anwendung habe in der ein Grid ist mit Datenanbindung. Leider kann ich mich mich bei einem Teil der Dinge nicht mehr ganz erinnern, wie ich dieses dort reinbekommen habe.

    Nun soll das in eine andere Anwendung eingebaut werden. Die Controls und den Source habe ich rüberkopiert.

    Ich habe in der ursprünglichen Anwendung folgende Komponenten:



    Die #2 habe ich eingebunden. Aber bei der #1 scheitere ich. Ich weiß nicht mehr wie ich diese da eingestellt habe.

    Kann man die Definition irgendwie kopieren? Kann mich nicht erinnern irgendwie Tabellen oder ähnliches erstellt zu haben.

    Gruß Jan

    naja, du musst im anderen Projekt "P2" erst ein Dataset anlegen - vorzugsweise mit demselben Namen.
    Dann kannste die Tabelle mit C&P von einem ins andere kopieren.

    Wenn das geklappt hat, in P2 die BindingSource löschen - die wird nämlich nicht funzen.
    Weil zuerst muss das Dataset kopiert sein,
    danach kann man Bindingsources kopieren.
    Und danach kann man Controls kopieren.

    Nur in dieser Reihenfolge nehmen die Dinge ihre DataSource-Einstellungen mit.

    Moin!

    irgendwie komme ich noch nicht weiter!

    Ich habe das Binding und wollte da jetzt eine Quelle anlegen.



    Aber jetzt weiß ich nicht, was ich als nächstes nehemen soll.

    Eine eigenständige DB ist es nicht und über das Objekt



    ... danach sieht es mir auch nicht aus.

    Wenn ich das DataSet direkt einfüge in die Form, dann sieht es auch anders aus als im Ursprungsprojekt.





    Hier wird mir ja nur der nicht typisierte Dataset angeboten.

    ????

    Gruß Jan

    Moin!

    ich bin einmal wieder auf dieser Baustelle aktiv....

    Beim Befüllen der Tabelle bekomme ich folgende Fehlermeldung:



    Der Code an dieser Stelle lautet (Fehlerzeile 71 markiert):

    VB.NET-Quellcode

    1. Private Sub frm_GrundstDoku_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. With _Log
    4. .IsConsoleApp() ' ist eine Konsolenanwendung
    5. .LogFileFolder2UserTemp()
    6. .SpecialLogFileName = "EBL_GstkHistorie.log"
    7. .WriteOutputLog()
    8. .WriteReportHeader("EBL_GstkHistorie", Is2Append:=False)
    9. .Write_TimeStamp()
    10. .Crlf(2)
    11. End With
    13. 'zunächst werden alle AnzeigeControls ausgeblendet - hier auch die Funktion ControlPreview ggf. ergänzen
    14. pv_doc.Visible = False
    15. pv_pdf.Visible = False
    16. pv_txt.Visible = False
    17. pv_picture.Visible = False
    19. Dim arguments As String() = System.Environment.GetCommandLineArgs()
    20. Try
    21. ScanFiles(_Grundst_RootFolder)
    22. lbl_GrundStFolder.Text = "Grundstücksverzeichnis: " & _Grundst_RootFolder
    23. DateibezeichnungBindingSource.Sort = "FileName DESC" '<------ hier ist die Fehlermeldung
    24. DateibezeichnungBindingSource.Filter = "Namenskonvention = true"
    25. Catch ex As Exception
    26. MsgBox("unerwarteter Fehler in EBL_Ex2GrundDok > frm_GrundstDoku > frm_GrundstDoku_Load" & vbCrLf &
    27. ex.ToString, MsgBoxStyle.Critical, k_Title_ShowGrdstDoc)
    28. End Try
    30. ' Dialog in den Vordergrund bringen - wichtig für die Verbindung mit MapEdit
    31. Dim hWnd = FindWindow(Nothing, "EBL GSE Dokumenten-Historie")
    32. ' SetForegroundWindow(CType(hWnd, IntPtr))
    33. End Sub


    Die Funktion für das Befüllen ist ScanFiles
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub ScanFiles(ByVal Folder2Doku As String)
    2. _Log.Write("==== ScanFiles ====")
    3. _Log.Write("Folder2Doku:= " & Folder2Doku)
    5. With DocProperties
    6. 'Sperren der Controls für die Bearbeitung
    7. EnableStatusControls(False)
    9. ' Löschen des Grids
    10. .Clear()
    12. ' Create a list of parts.
    13. Dim ListOfFiles As New Dictionary(Of Date, String)
    15. Dim folders As New List(Of DirectoryInfo)
    16. Dim files As New List(Of FileInfo)
    17. Dim rootDirs = {New DirectoryInfo(Folder2Doku)} 'rootDirs enthält hier nur 1 Directory
    18. CollectFilesAndFolders(rootDirs, folders, files, "*.*")
    20. Dim culture As CultureInfo = New CultureInfo("de-DE")
    21. Dim CountNamensKonvention As Integer = 0
    22. Dim CountNameUnsortiert As Integer = 0
    23. Dim FileNameErr As String = "./."
    25. For i As Integer = 0 To files.Count - 1
    26. Dim row_doc As ArrayList = New ArrayList
    27. FileNameErr = "./."
    28. Try
    29. If files(i).Name.Length > 11 Then
    30. Dim StatusNamensKonvention As Boolean = False
    31. FileNameErr = files(i).Name
    32. Dim DatePart As String = files(i).Name.Substring(0, 10)
    33. Try
    34. Dim dt As DateTime = Date.ParseExact(DatePart, "yyyy-MM-dd", culture)
    35. StatusNamensKonvention = True
    36. CountNamensKonvention += 1
    37. Catch
    38. StatusNamensKonvention = False
    39. CountNameUnsortiert += 1
    40. End Try
    41. 'Befüllen der Tabelle
    42. Dim SubFolder As String = System.IO.Path.GetDirectoryName(files(i).FullName).Substring(_Grundst_RootFolder.Length)
    43. If SubFolder.Length > 0 Then
    44. If SubFolder.Substring(0, 1) = "\" Then
    45. SubFolder = "..." & SubFolder
    46. End If
    47. End If
    48. Dim FileData As New FileInfo(files(i).FullName)
    49. Dim Date_Create As Date = FileData.CreationTime
    50. Dim Date_LastEdit As Date = FileData.LastWriteTime
    51. .Dateibezeichnung.AddDateibezeichnungRow(files(i).Name, SubFolder, StatusNamensKonvention, Date_Create, Date_LastEdit)
    53. End If
    55. 'If row_doc.Count > 0 Then Control.Rows.Add(row_doc.ToArray)
    57. Catch ex As Exception
    58. '....
    59. End Try
    60. Next i
    62. '...
    64. End With
    65. End Sub



    Ich habe dann noch zwei Vergleich durchgeführt.





    ... finde aber keine Unterschiede und deshalb steht ich weiterhin auf dem Schlauch.

    Hat einer eine gute Idee?

    Jan

Facebook
Telefonspende