Excel to Access - Versionsgeschichte

Thomas am 22. November 2018 um 06:19 Uhr

2018-11-22T06:19:50Z

Thomas: /* Kopieren einer Abfrage mit Parametern */

2018-11-15T09:16:27Z

Kopieren einer Abfrage mit Parametern

← Nächstältere Version		Version vom 15. November 2018, 09:16 Uhr
Zeile 217:		Zeile 217:
	Dim cn As Object		Dim cn As Object
	Dim rs As Object		Dim rs As Object
	Dim ~~strSql~~ As String		Dim sSQL As String
	Dim ~~strConnection~~ As String		Dim sConnection As String
	Dim Jahr As Integer		Dim Jahr As Integer

Zeile 228:		Zeile 228:

	' Abfrage definieren		' Abfrage definieren
	~~strSql~~ = "SELECT Personen.GebDat, Personen.Name, Personen.Vorname FROM Personen WHERE (((Year([GebDat])) = " _		sSQL = "SELECT Personen.GebDat, Personen.Name, Personen.Vorname FROM Personen WHERE (((Year([GebDat])) = " _
	& Str(Jahr) _		& Str(Jahr) _
	& " )) ORDER BY Personen.GebDat, Personen.Name, Personen.Vorname;"		& " )) ORDER BY Personen.GebDat, Personen.Name, Personen.Vorname;"
Zeile 234:		Zeile 234:
	' Abfrage ausführen		' Abfrage ausführen
	cn.Open sConnection		cn.Open sConnection
	Set rs = cn.Execute(~~strSql~~)		Set rs = cn.Execute(sSQL)
	' Copy the recordset to Excel		' Copy the recordset to Excel
	Selection.CopyFromRecordset rs		Selection.CopyFromRecordset rs

Thomas: Weitere Beispeile und Funktionen

2018-11-15T09:14:57Z

Weitere Beispeile und Funktionen

Änderungen zeigen

Thomas am 12. Juli 2018 um 13:54 Uhr

2018-07-12T13:54:16Z

← Nächstältere Version		Version vom 12. Juli 2018, 13:54 Uhr
Zeile 47:		Zeile 47:
	End Sub		End Sub
	</pre>		</pre>

			== Kopieren einer Abfrage mit Parametern ==

			Das folgende Beispiel setzt eine Datenbank ''Spielwiese.accdb'' mit Personaldaten mindesten drei Feldern ''Name'', ''Vorname'', ''GebDat'' voraus.

			Es wird das Geburtsjahr abgefragt und das Abfrageergebnis ab der aktiven Zelle eingefügt.

			<pre>
			Const SpwDBProvider As String = "Microsoft.ACE.OLEDB.12.0"
			Const SpwDBPath As String = "C:\Users\thomas1arend\Documents\Datenbanken\"
			Const SpwDBFile As String = "Spielwiese.accdb"

			Public Sub InsertQuery()

			' Step 1: Declare your variables
			' Definieren der Objekte
			Dim cn As Object
			Dim rs As Object
			Dim strSql As String
			Dim strConnection As String
			Dim Jahr As Integer

			Jahr = Application.InputBox("Bitte ein Jahr eingeben", 1)

			' Verbinden zur Datenbank
			Set cn = CreateObject("ADODB.Connection")
			strConnection = "Provider=" & SpwDBProvider & "; Data Source=" & SpwDBPath & SpwDBFile & ";"

			' Abfrage definieren
			strSql = "SELECT Personen.GebDat, Personen.Name, Personen.Vorname FROM Personen WHERE (((Year([GebDat])) = " _
			& Str(Jahr) _
			& " )) ORDER BY Personen.GebDat, Personen.Name, Personen.Vorname;"

			' Abfrage ausführen
			cn.Open strConnection
			Set rs = cn.Execute(strSql)
			' Copy the recordset to Excel
			Selection.CopyFromRecordset rs

			MsgBox "Your Query has been Run"

			End Sub
			</pre>


			{\| class="wikitable"
			\|27.03.2000\|\|Kammer\|\|Wolfgang
			\|-
			\|28.04.2000\|\|Dietze\|\|Cristine
			\|-
			\|18.05.2000\|\|Lauterbach\|\|Sigismondo
			\|-
			\|21.05.2000\|\|Hafner\|\|Hilda
			\|-
			\|-
			\|08.07.2000\|\|Kayser\|\|Heindrick
			\|-
			\|21.07.2000\|\|Bauer\|\|Jeremiah
			\|-
			\|08.08.2000\|\|Höppner \|\|Murial
			\|-
			\|02.09.2000\|\|Baumgarten \|\|Joann
			\|-
			\|12.09.2000\|\|Keller \|\|Sanderson
			\|-
			\|23.11.2000\|\|Blome \|\|Bellina
			\|-
			\|26.12.2000\|\|Bauer \|\|Mayne
			\|}

Thomas: Die Seite wurde neu angelegt: „Abfragen der Daten in einer Access Datenbank aus Excel. Schritte # Definieren der Objekte # Verbinden zur Datenbank # Abfrage definieren # Abfrage ausführen…“

2018-06-29T07:28:00Z

Die Seite wurde neu angelegt: „Abfragen der Daten in einer Access Datenbank aus Excel. Schritte # Definieren der Objekte # Verbinden zur Datenbank # Abfrage definieren # Abfrage ausführen…“

Neue Seite

Abfragen der Daten in einer Access Datenbank aus Excel.

Schritte

# Definieren der Objekte
# Verbinden zur Datenbank
# Abfrage definieren
# Abfrage ausführen
# Ergebnis anzeigen
# Bereinigen der Objekte

== Beispiel ==

<pre>
Const DBProvider As String = "Microsoft.ACE.OLEDB.12.0"
Const DBFileName As String = "C:\Users\Ich\Documents\Datenbanken\Mydatabase.accdb"

Public Sub CountRecords()

' Definieren der Objekte
Dim cn As Object
Dim rs As Object
Dim strSql As String
Dim strConnection As String

' Verbinden zur Datenbank
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=" & DBProvider & "; Data Source=" & DBFileName & ";"

' Abfrage definieren
strSql = "SELECT Count(*) FROM MyTable;"

' Abfrage ausführen
cn.Open strConnection
Set rs = cn.Execute(strSql)

' Ergebnis anzeigen
MsgBox rs.Fields(0) & " rows in MyTable"

' Bereinigen der Objekte
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub
</pre>