Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Attribute aus Access in Excel kopieren

Attribute aus Access in Excel kopieren
12.12.2005 08:29:43
Eve
Hi everybody
Diese Code habe ich von diese Forum.
In Spalte A sind die Werte von die Attribut
usrID aus die Access Tabelle tblUser.
In die Spalte B, C und D werden die zugehörigen
Name, Name2 und PID geschrieben.
So, jetzt will ich aber einfach diese Attribute von die Tabelle:
"SELECT tblUser.usrPID, tblUser.usrName, tblUser.usrName2 FROM tblUser"
in Excel Spalte B, C und D kopieren, ohne die Vergleich in Spalte A.
Wie muss ich die Code ändern?

Private Sub cmbUser_Click()
Dim dbs As Database
Dim dbfile As String
Dim qdf As QueryDef
Dim rec As Recordset
Dim mysql As String
Dim mynum As Long
Dim i As Long
dbfile = ThisWorkbook.Path & "\tblUser.mdb"
Set dbs = OpenDatabase(dbfile)
With dbs
For i = 2 To Cells(2, 1).End(xlDown).Row
mynum = CLng(Val(Cells(i, 1).Value))
mysql = "SELECT tblUser.usrPID, tblUser.usrName, tblUser.usrName2 " & _
"FROM tblUser " & _
"WHERE tblUser.usrID = " & mynum & ";"
Set qdf = .CreateQueryDef("", mysql)
Set rec = qdf.OpenRecordset(dbOpenSnapshot)
If Not rec.EOF Then
Cells(i, 2).Value = rec.Fields(0).Value
Cells(i, 3).Value = rec.Fields(1).Value
Cells(i, 4).Value = rec.Fields(2).Value
End If
Next
End With
dbs.Close
End Sub

Danke für alle Helper und ich hoffe das ihr habt mein problem verstanden.
Kind regards
Eve

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Attribute aus Access in Excel kopieren
12.12.2005 12:10:54
bst
Hallo Eve,
versuch's mal so. Wenn Du alle Datenfelder aller Datensätze einer Tabelle/einer SQL-Abfrage kopieren möchtest geht auch ein Range(xyz).CopyFromRecordSet.
HTH, Bernd
--
Option Explicit

Private Sub cmbUser_Click()
   Dim dbs As Database
   Dim dbfile As String
   Dim qdf As QueryDef
   Dim rec As Recordset
   Dim mysql As String
   
   dbfile = ThisWorkbook.Path & "\tblUser.mdb"
   Set dbs = OpenDatabase(dbfile)
   With dbs
      mysql = "SELECT usrPID, usrName, usrName2 FROM tblUser;"
      Set qdf = .CreateQueryDef("", mysql)
      Set rec = qdf.OpenRecordset(dbOpenSnapshot)
      Range("B2").CopyFromRecordset rec
   End With
   dbs.Close
End Sub


Anzeige
AW: Perfekt.. viele dank, Bernd o.T.
12.12.2005 13:03:08
Eve
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige