Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Achizitie SUV, buget 17k euro

Gps traker pentru animale

Aplicatii terte pentru IPTV, OTT,...

Drept trecere cu “carulR...
 Sunt noile generatii care se nasc...

Butuc pedalier

Niste intrebari despre apartamente

Comentarii amuzante pe Youtube
 Nu iese laptopul din sleep mode.

Facerea de bine - ce aștepta...

Probleme drum servitute

Se pot monta placi de gresie de 1...
 Card de debit virtual emis de India

Diferenta ATS generator si PV

La multi ani @Lotusisrael!

Declarație primar
 

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 endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

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