Thema Datum  Von Nutzer Rating
Antwort
07.09.2005 14:20:17 Mishelle
NotSolved
07.09.2005 14:29:28 Rasta
NotSolved
07.09.2005 15:24:31 Mishelle
NotSolved
07.09.2005 15:40:01 Rasta
NotSolved
08.09.2005 09:48:06 Mishelle
NotSolved
08.09.2005 11:09:55 Rasta
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesst
08.09.2005 11:40:56 Mishelle
NotSolved
08.09.2005 13:26:31 Rasta
NotSolved
08.09.2005 15:06:15 Mishelle
NotSolved
08.09.2005 15:11:33 Rasta
NotSolved
08.09.2005 15:39:49 Mishelle
NotSolved
08.09.2005 16:28:26 Rasta
NotSolved
09.09.2005 08:03:44 Mishelle
NotSolved
09.09.2005 09:32:48 Rasta
NotSolved
09.09.2005 11:24:47 MIshelle
NotSolved
09.09.2005 14:29:51 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Mishelle
Datum:
08.09.2005 11:40:56
Views:
1361
Rating: Antwort:
  Ja
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesst
hallo rasta,

hab das jetzt soweit verstanden...habs auch schon in mein code übernommen, aber wenn ich es ausführe, kommt die meldung "benutzerdefinierter typ nicht definiert" in der zeile "Dim conn As New ADODB.Connection"...dabei hab ich n verweis gemacht auf: microsoft ado ext.2.8 for ddl and security...muss ich da noch n verweis machen?

gruß
mishelle

Rasta schrieb am 08.09.2005 11:09:55:

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



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
07.09.2005 14:20:17 Mishelle
NotSolved
07.09.2005 14:29:28 Rasta
NotSolved
07.09.2005 15:24:31 Mishelle
NotSolved
07.09.2005 15:40:01 Rasta
NotSolved
08.09.2005 09:48:06 Mishelle
NotSolved
08.09.2005 11:09:55 Rasta
NotSolved
Rot Aw:Aw:Aw:Aw:Aw:Aw:verknüpfung exceltabelle/accesst
08.09.2005 11:40:56 Mishelle
NotSolved
08.09.2005 13:26:31 Rasta
NotSolved
08.09.2005 15:06:15 Mishelle
NotSolved
08.09.2005 15:11:33 Rasta
NotSolved
08.09.2005 15:39:49 Mishelle
NotSolved
08.09.2005 16:28:26 Rasta
NotSolved
09.09.2005 08:03:44 Mishelle
NotSolved
09.09.2005 09:32:48 Rasta
NotSolved
09.09.2005 11:24:47 MIshelle
NotSolved
09.09.2005 14:29:51 Rasta
NotSolved