Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Intrebari srl nou

Amenintat cu moartea de un numar ...

La multi ani @AndReW99!

Alegere masina £15000 uk
 TVR vrea sa lanseze o platforma d...

Strategie investie pe termen lung...

Modulator FM ptr auto alimentat p...

orange cablu f.o. - internet fara...
 Robinet care comuta traseul

A fost lansata Fedora 40

Samsung S24 plus

Imi iau un Dell? (Vostro vs others)
 Abonati Qobuz?

transport -tren

Platforma electronica de eviden&#...

Cot cu talpa montat stramb in per...
 

VB code

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

#19
bcornel

bcornel

    Junior Member

  • Grup: Members
  • Posts: 103
  • Î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

Chirurgia cranio-cerebrală minim invazivă Chirurgia cranio-cerebrală minim invazivă

Tehnicile minim invazive impun utilizarea unei tehnologii ultramoderne.

Endoscoapele operatorii de diverse tipuri, microscopul operator dedicat, neuronavigația, neuroelectrofiziologia, tehnicile avansate de anestezie, chirurgia cu pacientul treaz reprezintă armamentarium fără de care neurochirurgia prin "gaura cheii" nu ar fi posibilă. Folosind tehnicile de mai sus, tratăm un spectru larg de patologii cranio-cerebrale.

www.neurohope.ro

1 user(s) are reading this topic

0 members, 1 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