hallo leute!! hab ne frage!! ich holl mir von einer lotus datenbank die daten in ein dataset und vergleich die namen mit den daten von einer access db! wenn die daten stimmen soll er den ganzen datensatz also nicht nur die namen sondern alles was noch dabei steht in eine anderen accesstabelle schreiben!! wenn nicht soll er den namen in eine listbox schreiben!! das ja alles nur das das er die daten wenn die namen zusammenpassen in access reinschreibt geht net :/ pls um help


thx im vorraus!

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

 Private Sub mneconnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mneconnect.Click
        Dim dset As New DataSet
        Dim i As Integer
        Dim a As Integer
        Dim dseta As New DataSet
        Dim dbcona As New System.Data.Odbc.OdbcConnection
        Dim dview As New DataView
        Dim aaa As DataRow()
        Dim dsetasecond As New DataSet
        Dim getDataString As String = String.Empty
        Dim brmtop60 As String
 
        Dim dbcon As System.Data.odbc.OdbcConnection
        dbcon = New System.Data.odbc.OdbcConnection("ShowImplicitFlds=0;DSN=NOTES BRM;MaxLongVarcharLen=512;MaxStmtLen=4096;MaxVarchar" & _
             "Len=254;ThreadTimeout=120;MaxSubquery=20;MapSpecialChars=1;KeepTempIdx=0;Database" & _
             "=BRM\brm.nsf;Server=RZBTHYR/RZB/AT;MaxRels=20")
 
        Dim sql As String = "SELECT Anzahl_Auftraege, k_kunde_kontonummer, t_kunde_name, t_kurzbezeichnung, t_" & _
            "kunde_swift, t_kunde_blz, t_kundennummer, k_rubrik, k_rubrik_unterkategorie, k_v" & _
           "erschulden, k_reklamationsart, t_verschulden_details, k_verschulden_sub FROM " & _
           "v_export_bo_all WHERE v_export_bo_all.d_ende_reklamation BETWEEN '" & txtdatefrom.Text & " 12:00:00' AND '" & txtdateto.Text & " 14:59:59' And v_export_bo_all.k_produktgruppe = 'ZVS'"
 
        Try 'lotus connection öffnen
            dbcon.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        Dim da As System.Data.odbc.OdbcDataAdapter = New System.Data.odbc.OdbcDataAdapter(sql, dbcon)
     
 
        Try 'datensatz befüllen
            da.Fill(dset, "brmtop60")
        Catch ex As Exception
            MsgBox(ex.Message & Chr(10) & Chr(13) & "Das Programm wird beendet")
            End
        End Try
 
        dbcona.ConnectionString = "DSN=MS Access Database;DefaultDir=M:\Programme\brm_top60\Prog_NET\brm_top60;Drive" & _
                "rId=25;DBQ=M:\Programme\brm_top60\Prog_NET\brm_top60\brmtop60.mdb;MaxBufferSize=" & _
                "2048;FIL=MS Access;PageTimeout=5;UID=admin"
        Dim sqlacc As String = "SELECT KundenName, Kundennamefilter From Kunden"
        Try 'access connection öffnen
            dbcona.Open()
        Catch ex As Exception
            MsgBox(ex.message)
            End
        End Try
 
        Dim daacc As System.Data.odbc.OdbcDataAdapter = New System.Data.odbc.OdbcDataAdapter(sqlacc, dbcona)
 
        Try 'datensatz befüllen
            daacc.Fill(dseta, "brmtop60-acc")
        Catch ex As Exception
            MsgBox(ex.Message & Chr(10) & Chr(13) & "Das Programm wird beendet")
            End
        End Try
        
 
 
        For i = 0 To dset.Tables("brmtop60").Rows.Count - 1
 
            abfrage = dset.Tables("brmtop60").Rows(i).Item("t_kunde_name")
            abfrage = Replace(abfrage, "'", "°")
            aaa = dseta.Tables("brmtop60-acc").Select("KundenName = '" & abfrage & "'")
            Dim insertSQL As System.Text.StringBuilder = New System.Text.StringBuilder
            insertSQL.Append( _
                " INSERT INTO Auswertung (SELECT Auswertung.* FROM Auswertung;) VALUES (")
            If aaa.Length = 0 Then
                lstauswahl.Items.Add(abfrage)
            Else
                insertSQL.Append("'" & dset.Tables("brmtop60").Rows(i).Item("t_kunde_name") & "', ")
 
            End If
 
 
 
            aaa = Nothing
            'Dim InsertOews As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand(insertSQL.ToString, dbcona)
            'Try
            '    InsertOews.ExecuteScalar()
            'Catch ex As Exception
            '    MsgBox(ex.Message)
            '    Dim UpdateFehlerSQL As String = "Update Einspielung set Status_Einsp = 'Fehler' where Status_Einsp = 'aktiv';"
 
            '    Dim UpdateFehler As System.Data.Odbc.OdbcCommand = New System.Data.Odbc.OdbcCommand(UpdateFehlerSQL, dbcona)
 
            '    Try
            '        UpdateFehler.ExecuteScalar()
            '    Catch exeption As Exception
            '        MsgBox(ex.Message)
            '        End
            '    End Try
 
            'End Try
            'InsertOews.Dispose()
            'InsertOews = Nothing
            insertSQL = Nothing
        Next
 
 
 
 
 
        dbcon.Close()
        dbcona.Close()
 
    End Sub