Sign In
Create Account
Back to top
 |
Second Opinion
Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale. Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit. www.neurohope.ro |
VB code
Last Updated: Dec 21 2007 15:01, Started by
bcornel
, Nov 14 2007 22:03
·
0
0
#19
Posted 15 December 2007 - 19:06
|
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
Posted 21 December 2007 - 15:01
|
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
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users
-
- Change Theme
- English
- Mark Community Read
- Termene & conditii
- Confidentialitate
- Consimtamant
- Cookies
- Help
© 2001-2024 Softpedia. All rights reserved. Softpedia® and the Softpedia logo are registered trademarks of SoftNews Net SRL.
Ora implicita a Forumului Softpedia este ora standard a Romaniei (GMT+2). Mai multe informatii →
⚠ Postarile afisate pe Forumul Softpedia reprezinta o opinie subiectiva a membrilor care le-au publicat si nu a SoftNews Net SRL.