MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > SQL
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 26.06.2001, 08:44   #1
JOH
Neuer Benutzer
Neuer Benutzer
Beeindruckt TSQL Tabelle erstellen

Liebe Forenmitglieder,
erstelle eine Tabelle mittels SP die ich
aus einem Modul aufrufe:
Hier der Quellcode

Sub TAB_MIT_ERSTELLEN()
Dim rstm As New ADODB.Recordset
Dim cnn As ADODB.Connection
Dim Kom1 As New ADODB.Command

Set cnn = CurrentProject.Connection
Set Kom1.ActiveConnection = cnn

Kom1.CommandText = "Tab_erstellen"
Kom1.CommandType = adCmdStoredProc
'' Führt die SP aus
Set rstm = Kom1.Execute

End Sub

Alter Procedure Tab_erstellen
As
set nocount on
create table erste
(

Feld1_nr int IDENTITY (1,1) CONSTRAINT Pschl_FE primary key,
Feld2 char (20) not null,
Feld3 char (20) null,

)

return

So,klappt prima nur wenn ich in das Datenbankfenster wechsle
kann ich erst nach drücken der F5 Taste die neue Tabelle
sehen.
Es wäre wichtig dieses pre VBA oder über die SP zu machen.

Hoffe es ist verständlich

Besten Gruß

johannes
JOH ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.06.2001, 11:00   #2
NilsK
Neuer Benutzer
Neuer Benutzer
Standard

Hi Johannes,

Zitat:

Original erstellt von JOH:
So,klappt prima nur wenn ich in das Datenbankfenster wechsle
kann ich erst nach drücken der F5 Taste die neue Tabelle
sehen.
Es wäre wichtig dieses pre VBA oder über die SP zu machen.

was meinst du mit "sehen"? Wenn du die Tabelle gleich abfragen willst, kannst du einfach in deine Prozedur noch "select * from tabelle" eintragen, musst dann aber im VB-Code natürlich ein Objekt für die (leere) Rückgabe freihalten.

Oder meinst du was ganz anderes?

Gruß, Nils
NilsK ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 27.06.2001, 19:11   #3
Adrian
Neuer Benutzer
Neuer Benutzer
Beeindruckt

Hallo Nils,
erstmal vielen Dank für Deine Antwort.
Ich möchte der erstellten Tabelle einen anderen Namen geben.

Set rstm = Kom1.Execute

DoCmd.Rename "erste", acTable, _
"zweite"
Hier kommt die Meldung "Object nicht vorhanden.
Wenn ich jedoch die Objecte der Datenbank in einer For Each Schleife auslese, ist die Tabelle "erste" da und wird mir ausgegeben.

Das ist mein Problem.

Kannst Du dies nachvollziehen?

Besten Dank

Johannes

PS: Adrian ist mein Benutzername hier in Hofheim, weil ich tagsüber in Frankfurt bin , dort habe ich JOH


Adrian ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.07.2001, 14:42   #4
Joachim Hofmann
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

mit ADO kenne ich mich leider nicht so aus.
Mit DAO würde ich was mit TableDefinition.RefreshLink probieren.

__________________

Gruß edited with vim
Joachim
Joachim Hofmann ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:16 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.