Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
The Three-Body Problem

SSD Lenovo este recunoscut doar i...

Identificare eroare centrala

Interpretare vis !
 Premiera in Romania Sepsi - FCU ...

UPS se opreste/restarteaza subit.

Vecini insuportabili, violenti

Semafor și pentru dreapta sa...
 Problema PC nou

Colet prin posta din SUA - valoar...

Unifi Dream Machine, merita?

Achizitie componente PC Gaming
 "Caru cu Bere"

c ++ problema trepte

Este chiar o necesitate contestar...

Camera Sony cu probleme
 

VB code

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

#19
bcornel

bcornel

    Junior Member

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