Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO importieren
Autor: Michael_HU
Datum: 10.03.13 18:42
Hallo Blackbox, habe das Auslesen und die Sätze an die gleiche Stelle wieder Zurückschreiben so gelöst:   it Private Sub cmdSpeichern_Click() Dim dbtmp As DAO.Database Dim tblObj As DAO.TableDef Dim rs As DAO.Recordset Dim x As Integer Dim dstr As String Dim anz As Long On Error GoTo trans_Err dstr = "G:\Testprogramme_allgemein\Visual Studio 6.0\Abfragen und Aktualisieren von Excel-Daten mit ADO von ASP\testen.xls" Set dbtmp = OpenDatabase(dstr, False, False, "Excel 8.0;") Set rs = dbtmp.OpenRecordset("select * from `myRange2`") rs.MoveFirst 'rs.MoveLast anz = rs.Fields.Count 'Anzeige Feldanzahl nur für Kontrollzwecke rs.Bookmark = rs.LastModified 'Daten wieder zurückschreiben rs.Edit rs.Fields(0).Value = Me.Text1 rs.Fields(1).Value = Me.Text2 rs.Fields(2).Value = Me.Text3 rs.Fields(3).Value = Me.Text4 rs.Fields(4).Value = Me.Text5 rs.Fields(5).Value = Me.Text6 rs.Fields(6).Value = Me.Text7 rs.Fields(7).Value = Me.Text8 rs.Fields(8).Value = Me.Text9 rs.Fields(9).Value = Me.Text10 rs.Update trans_Exit: rs.Close Set rs = Nothing Set dbtmp = Nothing Set tblObj = Nothing dstr = "" Exit Sub trans_Err: Resume trans_Exit ' alles freigeben und schließen 'Clean up and close all Unload Me End Sub Private Sub cmdLaden_Click() Dim dbtmp As DAO.Database Dim tblObj As DAO.TableDef Dim rs As DAO.Recordset Dim x As Integer Dim dstr As String Dim anz As Long On Error GoTo trans_Err dstr = "G:\Testprogramme_allgemein\Visual Studio 6.0\Abfragen und Aktualisieren von Excel-Daten mit ADO von ASP\testen.xls" 'Syntax 'expression .OpenDatabase(Name, Options, ReadOnly, Connect) 'Name: the name of an existing Microsoft database 'Options: Sets various options for the database, as specified in Remarks 'ReadOnly: True=read only, False=read and write access 'Connect: versch. Information inkl. Passwort Set dbtmp = OpenDatabase(dstr, False, True, "Excel 8.0;") If IsObject(dbtmp) Then DoEvents ' Recordset-Objekt vom Typ Tabelle öffnen ' Im Bereich "myRange2" leigen die Daten i.d. Excel-Tabelle Set rs = dbtmp.OpenRecordset("select * from `myRange2`") rs.MoveFirst 'rs.MoveLast anz = rs.Fields.Count 'Anzeige Feldanzahl nur für Kontrollzwecke Me.txtBoxFieldAnzahl = anz While Not rs.EOF 'BOF? For x = 0 To rs.Fields.Count - 1 ' Auslesen der Daten, wenn diese in einer Zeile sind Me.Text1 = CStr(rs.Fields(0).Value) Me.Text2 = CStr(rs.Fields(1).Value) Me.Text3 = CStr(rs.Fields(2).Value) Me.Text4 = CStr(rs.Fields(3).Value) Me.Text5 = CStr(rs.Fields(4).Value) Me.Text6 = CStr(rs.Fields(5).Value) Me.Text7 = CStr(rs.Fields(6).Value) Me.Text8 = CStr(rs.Fields(7).Value) Me.Text9 = CStr(rs.Fields(8).Value) Me.Text10 = CStr(rs.Fields(9).Value) Next x rs.MoveNext Wend End If trans_Exit: rs.Close Set rs = Nothing Set dbtmp = Nothing Set tblObj = Nothing dstr = "" Exit Sub trans_Err: Resume trans_Exit ' alles freigeben und schließen End Sub Vielleicht geht auch einfacher, aber diese hier funktioniert mal.

Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO importier...	4.399	Michael_HU	08.03.13 19:52
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.516	Michael_HU	08.03.13 19:59
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.550	Blackbox	08.03.13 21:16
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.466	Michael_HU	08.03.13 21:25
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.469	Blackbox	08.03.13 21:54
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.509	Michael_HU	09.03.13 05:18
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.550	Blackbox	09.03.13 10:19
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.555	Michael_HU	09.03.13 10:56
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.445	Michael_HU	10.03.13 18:42
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.468	Michael_HU	11.03.13 16:52
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.525	Blackbox	11.03.13 20:01
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.515	Michael_HU	12.03.13 07:29
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.412	Blackbox	12.03.13 18:01
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.375	Michael_HU	12.03.13 18:12
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.503	Michael_HU	13.03.13 08:44
Re: Excel-Daten aus vorh. Excel Tabelle (2003) mit DAO impor...	2.374	Michael_HU	27.03.13 06:55

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