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!
thx im vorraus!
Code:
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