Thema Datum  Von Nutzer Rating
Antwort
Rot ADODB.RecordSet liefert Scientific Notation
10.06.2021 14:23:40 Sigi
NotSolved
10.06.2021 14:59:16 Sigi
NotSolved
10.06.2021 17:58:15 Gast4410
NotSolved
11.06.2021 07:06:16 Sigi
NotSolved

Ansicht des Beitrags:
Von:
Sigi
Datum:
10.06.2021 14:23:40
Views:
124
Rating: Antwort:
  Ja
Thema:
ADODB.RecordSet liefert Scientific Notation

Folg. Code liefert e+ Zahlen: 3,519378294e+11 Hat jemand eine Idee warum?

test.xls: 
Number
351937829402
436991907594
B

Public Sub test()
    Dim row As Long
    Dim rs As New ADODB.Recordset
    Tabelle1.Cells.Clear
    'Erstelle Datenbankverbindung
    Set con = Connector.createConnection("EXCEL", "test.xls", True) 'header=True
    row = 1
    Sql = "select * from [Tabelle1$]"
    rs.Open Sql, con, adOpenStatic, adLockReadOnly
    If Not rs Is Nothing Then
        If (rs.State And adStateOpen) = adStateOpen Then
            While Not rs.EOF
                Debug.Print rs.Fields(0)
                row = row + 1
                rs.moveNext
            Wend
        End If
    End If
End Sub

createConnection-Auszug
con.provider = "Microsoft.ACE.OLEDB.12.0"
con.ConnectionString = "Data Source='" & fullpath & "'; " & "Extended Properties='Excel 12.0 Xml;HDR=" & IIf(Not header, "No", "Yes") & ";IMEX=1'"

Output
3,519378294e+11
4,3699190759e+11
B


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:

 
 

  • 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.RecordSet liefert Scientific Notation
10.06.2021 14:23:40 Sigi
NotSolved
10.06.2021 14:59:16 Sigi
NotSolved
10.06.2021 17:58:15 Gast4410
NotSolved
11.06.2021 07:06:16 Sigi
NotSolved