|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.09.2005 14:20:17 |
Mishelle |
|
|
|
07.09.2005 14:29:28 |
Rasta |
|
|
|
07.09.2005 15:24:31 |
Mishelle |
|
|
|
07.09.2005 15:40:01 |
Rasta |
|
|
|
08.09.2005 09:48:06 |
Mishelle |
|
|
 Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesstabe |
08.09.2005 11:09:55 |
Rasta |
|
|
|
08.09.2005 11:40:56 |
Mishelle |
|
|
|
08.09.2005 13:26:31 |
Rasta |
|
|
|
08.09.2005 15:06:15 |
Mishelle |
|
|
|
08.09.2005 15:11:33 |
Rasta |
|
|
|
08.09.2005 15:39:49 |
Mishelle |
|
|
|
08.09.2005 16:28:26 |
Rasta |
|
|
|
09.09.2005 08:03:44 |
Mishelle |
|
|
|
09.09.2005 09:32:48 |
Rasta |
|
|
|
09.09.2005 11:24:47 |
MIshelle |
|
|
|
09.09.2005 14:29:51 |
Rasta |
|
|
Von:
Rasta |
Datum:
08.09.2005 11:09:55 |
Views:
1257 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesstabe |
Hallo Mishelle,
in das sql kannst du joins einbauen -- wenn du datenbanktabellen miteinander vergleichen willst
bsp:
select * from anrede, benutzer where benutzer.anredeID = anrede.ID
hier ein link zu einem sql-tutorial- falls du das brauchst:
http://www.w3schools.com/sql/default.asp
du befindest dich ja schon praktisch im vba-editor von excel.
ein tabellenblatt(worksheet) sprichst du so an
worksheet("name").cells(1, 1)
das aktive worksheet nur mit
cells(1, 1)
ich nehme jetzt nochmal an, du hast die id's fortlaufend nach unten in der excel-tabelle in spalte a stehen.
du läst deinen code laufen und öffnest erstmal die datenbankverbindung, die du am ENDE deines makro-codes wieder schliesst(nicht für jede abfrage eine db-verbindung aufbauen, dauert zu lange....)
dann könntest du schreiben
dim zeile as long
zeile = 1
conn.open
do until cells(zeile, 1) = "END" '(ich schreibe immer ein "END" ans ende meiner datensätze- ansonsten prüfst du auf ""
rs.clear
cmd.CommandText = "SELECT User.UserID FROM UserID where USERID = " & cells(zeile, 1)
cmd.CommandType = adCmdText
Set rs = cmd.Execute
cells(zeile, 2) = rs.fields("UserID")
zeile = zeile + 1
loop
conn.close
verstanden? kommst du damit zurecht/weiter?
Viele Grüße
Rasta
Mishelle schrieb am 08.09.2005 09:48:06:
guten morgen :)
so, hab jetzt mal den beispielcode für die connection übernommen, aber kann ich dann einfach so n join befehl reinbauen, wie bei sql?
wie spreche ich denn nun meine exceltabelle an?
in dem beispiel von asunta ist ja auch n sql befehl, aber da muss ich doch auch schreiben welche tabellen verglichen werden sollen.
hab jetzt diesen code zur zeit:
Private Const Pfad = "M:\AccessDB.mdb"
Sub test_1()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sConnString As String
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pfad & ";Persist Security Info=False"
conn.Open sConnString
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT User.UserID FROM UserID"
cmd.CommandType = adCmdText
Set rs = cmd.Execute
Set rs = Nothing
Set cmd = Nothing
conn.Close
Set conn = Nothing
End Sub
gruß
mishelle
Rasta schrieb am 07.09.2005 15:40:01:
Hallo Mishelle,
evtl. hilft dir dieser link weiter:
http://www.vba-forum.de/vba_forum/viewbeitrag.aspx?ziel=433_vba_forum/%20VBA%20daten%20in%20access%20automatisch%20in%20excel%20zellen
oder du scrollst nach unten zur frage von ASSUNTA
solltest du auf weitere probleme stossen, frag weiter :-)
viele grüße
rasta
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
07.09.2005 14:20:17 |
Mishelle |
|
|
|
07.09.2005 14:29:28 |
Rasta |
|
|
|
07.09.2005 15:24:31 |
Mishelle |
|
|
|
07.09.2005 15:40:01 |
Rasta |
|
|
|
08.09.2005 09:48:06 |
Mishelle |
|
|
Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesstabe |
08.09.2005 11:09:55 |
Rasta |
|
|
|
08.09.2005 11:40:56 |
Mishelle |
|
|
|
08.09.2005 13:26:31 |
Rasta |
|
|
|
08.09.2005 15:06:15 |
Mishelle |
|
|
|
08.09.2005 15:11:33 |
Rasta |
|
|
|
08.09.2005 15:39:49 |
Mishelle |
|
|
|
08.09.2005 16:28:26 |
Rasta |
|
|
|
09.09.2005 08:03:44 |
Mishelle |
|
|
|
09.09.2005 09:32:48 |
Rasta |
|
|
|
09.09.2005 11:24:47 |
MIshelle |
|
|
|
09.09.2005 14:29:51 |
Rasta |
|
|