Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Daten per ADO verschieben
Autor: tbtec
Datum: 27.06.02 11:23
Hi Lordchen, Unter ADO funzt auch das, um von Excel nach Access Daten zu bringen gibt es denn auch zwei möglichkeiten:   elToAccess() ' Verbindet sich mit Excel und exportiert von dort eine ' Tabelle nach Access, Tabelle in Access wird neu erstellt Dim CNExl As Connection Dim sSql As String sSql = "SELECT * INTO [NeueTabelle] IN ""c:db1.mdb"" FROM [Tabelle1$]" Set CNExl = New Connection With CNExl .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=c: est.xls; Extended Properties=Excel 8.0;" .Open End With CNExl.Execute (sSql) CNExl.Close Set CNExl = Nothing End Sub Sub ImportAccessFromExcel() ' Verbindet sich mit Access und importiert von dort eine ' Tabelle aus Excel, Tabelle in Access wird neu erstellt Dim CNAccess As Connection Dim sSql As String sSql = "SELECT * INTO [NeueTabelle] FROM (SELECT [Tabelle1$].* FROM [Tabelle1$] IN ""c: est.xls"" ""EXCEL 8.0;"")" Set CNAccess = New Connection With CNAccess .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=c:db1.mdb" .Open End With CNAccess.Execute (sSql) CNAccess.Close Set CNAccess = Nothing End Sub

Daten per ADO verschieben	84	mAx	26.06.02 16:17
Re: Daten per ADO verschieben	248	unbekannt	26.06.02 16:33
Re: Daten per ADO verschieben	62	mAx	26.06.02 16:35
Re: Daten per ADO verschieben	62	tbtec	27.06.02 09:58
Re: Daten per ADO verschieben	240	unbekannt	27.06.02 11:01
Re: Daten per ADO verschieben	65	tbtec	27.06.02 11:23

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