Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Unde e recomandat sa ma cazez in ...

Descarcator de supratensiune tip 2

ping digi?

Reparare "șanțuri&#...
 De ce i se zice Mariei "Stapa...

Colet valoare Londra București

BMW seria 3 rulat vs SsangYong Ko...

Share abonament Netflix
 Cum pot sa fac rost de un negativ...

Lant Bicicleta

Un designer artist: Raymond Loewy

ATS din contactor modular
 Parere apartament ~150k

Limitare la 100mb/s

Altercație

Cartonașe și stickere t...
 

VB code

- - - - -
Last Updated: Dec 21 2007 15:01, Started by bcornel , Nov 14 2007 22:03  
  ·  
  • Please log in to reply
19 replies to this topic

#19
bcornel
Posted 15 December 2007 - 19:06

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
Posted 21 December 2007 - 15:01

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 spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro
Back to Visual Basic

▶ 0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

  1. Forumul Softpedia
  2. → Professional Zone
  3. → Programming
  4. → Visual Basic
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