Dim JUMADSQLdt As DataTable
        Dim JUMADSQLconn As Odbc.OdbcConnection
        Dim JUMADSQLda As Odbc.OdbcDataAdapter
        Dim JUMADSQLds As Data.DataSet
        'Dim tab As Data.DataTable
        Dim sConnString As String = _
               "DSN=xxxxxxx;" & _
               "Uid=xxxxxxx;" & _
               "Pwd=xxxxxxx"
        Dim Sql As String = "SELECT sngMaKorn from tblMaterial WHERE strMaID =" & _
          "'" & strSelectMatID & "';"
 
 
        JUMADSQLconn = New Odbc.OdbcConnection(sConnString)
        JUMADSQLconn.Open()
        JUMADSQLda = New Odbc.OdbcDataAdapter(Sql, JUMADSQLconn)
        JUMADSQLds = New DataSet("JUMADKoernung")
        JUMADSQLda.Fill(JUMADSQLds)
        JUMADSQLdt = New DataTable("JUMADSQL")
 
        'Hier wird eingestellt, dass jeder Datensatz den Wert Neu oder geändert 
        ' hat!
        'Dies ist wichtig, dass mann alle Datensätze in die SQ-DB Updaten kann!
        JUMADSQLda.AcceptChangesDuringFill = False
        JUMADSQLda.Fill(JUMADSQLdt)  ' Ausführen der SQL-Abfrage (Anlegen und 
        ' Füllen der Tabelle "Kunden") 
 
        'DataGrid befüllen
        dgKoernung.DataSource = JUMADSQLdt
 
        'DB Verbindung schließen
        JUMADSQLconn.Close()
 
        '######################################################################
        ' #####################################################################
        ' #################
 
'Jetzt soll der bereits vorhandene Datensatz in der anderen Datenbank mit dem 
' Feld JUMADKoernung ein UPDATE bekommen.
 
        Dim conn As New OleDbConnection(ConnStrGeneral)
        Dim da As New OleDbDataAdapter("SELECT * FROM tblPruefMaterialdetails", _
          conn)
        'Dim ds As New DataSet()
        Dim ds = JUMADSQLds
 
        ' Das Übertragen der in der Spalte "JUMADKoernung" (und nur dort!) 
        ' vorgenommenen Änderungen in die Datenquelle:
        Dim cmd As New OleDbCommand("UPDATE JUMADKoernung SET" & _
          "strPmKoernungJUWert = ? WHERE [strMaID] = ?", conn)
        cmd.Parameters.Add("@p1", OleDbType.VarChar, 30, "strPmKoernungJUWert") _
         ' Parametername, Datentyp, Spaltenbreite, Spaltenname
        Dim prm As OleDbParameter = cmd.Parameters.Add("@ps", OleDbType.VarChar)
        prm.SourceColumn = "strPmKoernungJUWert"                                _
           ' Schlüsselspalte
        prm.SourceVersion = DataRowVersion.Original                             _
         ' Wert beim Füllen des DataSet ist maßgebend
        da.UpdateCommand = cmd
        conn.Open()
        'Hier kommt die Fehlermeldung!!!        
        da.Update(ds, "JUMADKoernung")
 
 
        conn.Close()
        Beep()

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET


Beitrag wurde zuletzt am 25.11.08 um 08:10:22 editiert.