Thema Datum  Von Nutzer Rating
Antwort
Rot ADODB / EXCEL / Update Recordset DATE & TIME
 18.05.2017 10:33:01 David
NotSolved
18.05.2017 12:36:48 SJ
NotSolved
18.05.2017 13:00:21 David
NotSolved
18.05.2017 13:01:31 David
NotSolved
18.05.2017 13:22:35 Gast35468
NotSolved
18.05.2017 13:23:48 SJ
NotSolved
18.05.2017 13:25:55 SJ
NotSolved
18.05.2017 13:26:10 david
NotSolved
18.05.2017 13:30:24 david
NotSolved
18.05.2017 13:34:00 SJ
NotSolved
18.05.2017 13:44:25 Gast97967
Solved

Ansicht des Beitrags:
Von:
David		 Datum:
18.05.2017 10:33:01		 Views:
1581		 Rating:
     
Antwort:
  Ja
Thema:
ADODB / EXCEL / Update Recordset DATE & TIME

Hallo Zusammen,

 

ich stehe seit nun 2 Tagen vor einem nicht lösbaren Problem.
Wir möchten mittels eines EXCEL-Sheets ein anderes EXCEL-Sheet bearbeiten.

Ich lese die Daten von dem Sheet mittels ADODB aus, soweit auch alles gut.
Wenn ich daten aber bearbeiten will, bekomme ich immer ein Fehler wenn es um das Datumsfeld geht.

Hier mal mein Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
If rsRecords.RecordCount = 0 Then
     MsgBox "Kein Einträge"
 ElseIf (rsRecords.RecordCount = 1) Then
      
     'Dim strInstallDate As String
     'strInstallDate = "d/m/yy h:mm;@"
     'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
     'strInstallDate = Format(Now(), "####")
     'strInstallDate = Now()
     'strDate = Now()Date)
      
 
     'InstallDate
     'Dim strInstallDate As String
     strInstallDate = "'#" & Cells(15, 2).Value & "#'"
     'strInstallDate = Format(Cells(15, 2).Value, "@")
     'strInstallDate = "d/m/yy h:mm;@"
     'strInstallDate = "#" & Format(Now(), "d/m/yy h:mm;@") & "#"
     'strInstallDate = Format(Now(), "####")
     'strInstallDate = Now()        
      
     Debug.Print strInstallDate
      
     'RIO
     Dim strRIO As String
     strRIO = Cells(12, 2).Value
 
      With rsRecords
         If Not .BOF And Not .EOF Then
             Debug.Print "Name:" & rsRecords.Fields.Item(0).Name
             Debug.Print "Value:" & rsRecords.Fields.Item(0).Value
             Debug.Print "Type:" & VarType(rsRecords.Fields.Item(0).Value)
             .MoveLast
             .MoveFirst
             If .Supports(adUpdate) Then
                 ![F4] = "" & strInstallDate & ""
                 '![F6] = strRIO
                 .Update
             Else
                 MsgBox "adUpdate fail!"
             End If
         Else
             MsgBox "BOF/EOF"
         End If
          .Close
     End With
 Else
     MsgBox "Mehrer EInträge gefunden"
 End If

Ich weiß einfach nicht wie ich es schaffe das Datum so zu formatieren das es abgespeichert wird.
Das Feld in der "quelle" ist LEER und vom Typ DATE

Bitte gibt mir nen Denkanstoß!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ADODB / EXCEL / Update Recordset DATE & TIME
 18.05.2017 10:33:01 David
NotSolved
18.05.2017 12:36:48 SJ
NotSolved
18.05.2017 13:00:21 David
NotSolved
18.05.2017 13:01:31 David
NotSolved
18.05.2017 13:22:35 Gast35468
NotSolved
18.05.2017 13:23:48 SJ
NotSolved
18.05.2017 13:25:55 SJ
NotSolved
18.05.2017 13:26:10 david
NotSolved
18.05.2017 13:30:24 david
NotSolved
18.05.2017 13:34:00 SJ
NotSolved
18.05.2017 13:44:25 Gast97967
Solved