Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

probleme mașina de spalat rufe

Magazine care vand bere la keg

Proiect ciudat legat de metaverse...
 Daniel Fenechiu: Nu vom aște...

Transfer in acelasi pc cu FTP

Și daca industria europeana ...

Alimentare camera ip distanta 50m
 Nelamurire instalare internet

Cheie licenta Windows11

Sfat plantare arbori pentru o mic...

rachiu din gemuri si dulceturi
 Bara de cautare sa o mut jos?

Accesorii multitool Black and Dec...

Suma maxima.

Pilonul II - date de piata, tendi...
 

VB code

- - - - -
  • Please log in to reply
19 replies to this topic

#19
bcornel

bcornel

    Junior Member

  • Grup: Members
  • Posts: 86
  • Înscris: 23.06.2005
Ionut esti un gentleman. Am facut ceva modificari la codul trimis de tine deoarece nu accepta denumiri de tabele care contineau spatii. In final codul de care aveam nevoie este urmatorul:
Dim tdf As TableDef
Dim db As Database

Set db = OpenDatabase("C:\aaa\Rapt\Rapt.mdb", False, False)
For Each tdf In db.TableDefs
If tdf.Name = "ATT_BD CON" Or tdf.Name = "ATT_BD CP" _
    Or tdf.Name = "ATT_BD PAR" Or tdf.Name = "ATT_BD PRO" Then
    db.Execute "DROP TABLE [" & tdf.Name & "]"
End If
Next
db.TableDefs.Refresh
db.Close

Set db = OpenDatabase("C:\bbb\ol ro.mdb", False, False)
db.Execute ("SELECT * INTO  Rapt.mdb.[ATT_BD CON] FROM [ATT_BD CON]")
db.Execute ("SELECT * INTO  Rapt.mdb.[ATT_BD CP] FROM [ATT_BD CP]")
db.Execute ("SELECT * INTO  Rapt.mdb.[ATT_BD PAR] FROM [ATT_BD PAR]")
db.Execute ("SELECT * INTO  Rapt.mdb.[ATT_BD PRO] FROM [ATT_BD PRO]")
db.Close
Set db = Nothing

Multumesc Ionut.

#20
ionut_y

ionut_y

    Member

  • Grup: Members
  • Posts: 836
  • Înscris: 21.06.2005

View Postbcornel, on Dec 15 2007, 19:06, said:

Ionut esti un gentleman. Am facut ceva modificari la codul trimis de tine
.................

Cu placere,ma bucur ca fost ok, si tu poti fi gentleman si sigur mai increzator in cei de pe acest forum,toate cele bune.

Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate