Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SQL-Tabelle mit Excel-Tabelle Updaten
Autor: hwg
Datum: 20.11.02 13:53
Wahrscheinlich liegt der Fehler in den Connection. Benötige Syntaxhilfe. MfG hwg Debugger bleibt bei .Execute stehen Option Explicit Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset cn = New ADODB.Connection With cn .Provider = "MSDASQL" .ConnectionString = "Data Source=Kundendaten" 'EXcel-Mappe cn.Open End With With rs .ActiveConnection = cn .CursorType = adOpenKeyset .CursorLocation = adUseServer .LockType = adLockBatchOptimistic '.LockType = adLockPessimistic .Source = "Select * from [KV$]" ' Excel-Tabelle aus Kundendaten .Open ' öffnet die Connection Set Me.DataGrid1.DataSource = rs End With '_____________________________________________________________________________________ Dim cn2 As New ADODB.Connection Dim rs2 As New ADODB.Recordset Dim Buchhandln As Long Dim VKNR As Long cn2.ConnectionString = "DSN=vdb;UID=sa;PWD=" cn2.Open With rs2 .ActiveConnection = cn2 .CursorType = adOpenKeyset .CursorLocation = adUseServer .LockType = adLockBatchOptimistic '.LockType = adLockPessimistic .Source = "Select * from Stammdaten" '.Open Options:=adCmdTableDirect .Open ' öffnet die Connection Set Me.DataGrid2.DataSource = rs2 End With '______________________________________________________________________________________________ Dim cmd As Command Set cmd = New ADODB.Command With cmd .CommandType = adCmdText .CommandText = "update Stammdaten set Stammdaten.Buchhandln = [KV$].Buchhandlnr," & _ "Stammdaten.BUHA_NAME = '[KV$].BUHA.NAME'," & _ "Stammdaten.BUHA_NAME2= '[KV$].BUHA.NAMEII'," & _ "Stammdaten.BUHA_STRAß = '[KV$].BUHA.Straße'," & _ "Stammdaten.BUHA_ORT = '[KV$].BUHA.ORT'," & _ "Stammdaten.BUHA_FAX = '[KV$].BUHA.FAX'," & _ "Stammdaten.BUHA_TEL = '[KV$].BUHA.TEL'," & _ "Stammdaten.BUHA_KBKÜR = '[KV$].BUHA.KBKÜRZEL'" & _ "Where Stammdaten.Buchhandln = [KV$].Buchhandlnr" .Execute End With End Sub MfG hwg

SQL-Tabelle mit Excel-Tabelle Updaten

526

hwg

20.11.02 13:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen