Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
776to780
776to780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler in Abfrage?

Fehler in Abfrage?
25.06.2006 20:36:42
Jochen
Hi,
was läuft hier falsch, kann den Fehler nicht finden:
Option Explicit

Sub Query_Tabelle()
Dim RecSet As ADODB.Recordset
Dim ConString As String
ConString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\Verkauf.xls;" & _
"Extended Properties=Excel 8.0;"
Dim SQL As String
SQL = "SELECT * FROM [Verkauf$]"
Set RecSet = New ADODB.RecSet
On Error GoTo ERRH
Call RecSet.Open(SQL, ConString, _
CursorTypeEnum.adOpenForwardOnly, LockTypeEnum.adLockReadOnly, _
CommandTypeEnum.adCmdText)
Call Tabelle1.Range("A1").CopyFromRecordset(RecSet)
ERRH:
If Err.Number <> 0 Then Debug.Print Err.Description
If RecSet.State = ObjectStateEnum.adStateOpen Then
RecSet.Close
End If
Set RecSet = Nothing
End Sub

Grüße Jochen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in Abfrage?
25.06.2006 21:06:08
Josef
Hallo Jochen!
Ungetestet.
Sub Query_Tabelle()
Dim RecSet As ADODB.Recordset
Dim ConString As String, SQL As String

ConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & ThisWorkbook.Path & "\Verkauf.xls;" & _
  "Extended Properties=Excel 8.0;"

SQL = "SELECT * FROM [Verkauf$]"

Set RecSet = New ADODB.Recordset

On Error GoTo ERRH

RecSet.Open SQL, ConString, CursorTypeEnum.adOpenForwardOnly, _
  LockTypeEnum.adLockReadOnly, CommandTypeEnum.adCmdText

Tabelle1.Range("A1").CopyFromRecordset (RecSet)

ERRH:
If Err.Number <> 0 Then Debug.Print Err.Description

If RecSet.State = ObjectStateEnum.adStateOpen Then
  RecSet.Close
End If

Set RecSet = Nothing
End Sub


Gruß Sepp

Anzeige
Getestet
25.06.2006 21:25:13
Josef
Hallo Jochen!
So läufts.
Sub Query_Tabelle()
Dim RecSet As ADODB.Recordset
Dim ConString As String, SQL As String

ConString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & ThisWorkbook.Path & "\Verkauf.xls;" & _
  "Extended Properties=Excel 8.0;"

SQL = "SELECT * FROM [Verkauf$]"

Set RecSet = New ADODB.Recordset

On Error GoTo ERRH

RecSet.Open SQL, ConString, adOpenForwardOnly, _
  adLockReadOnly

Tabelle1.Range("A1").CopyFromRecordset RecSet

ERRH:
If Err.Number <> 0 Then Debug.Print Err.Description

If RecSet.State = ObjectStateEnum.adStateOpen Then
  RecSet.Close
End If

Set RecSet = Nothing
End Sub


Gruß Sepp

Anzeige
AW: Getestet
26.06.2006 14:45:22
Jochen
Set RecSet = New ADODB.Recordset war der springende Punkt.
Danke und Grüße Jochen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige