|
| copiere en table fra en DB til en anden Fra : Lars Hoffmann |
Dato : 08-07-02 11:34 |
|
Jeg har et problem jeg ikke rigtigt ved hvordan jeg loeser mest effektivt.
Jeg sidder med to access databaser og skal kopiere tre tables fra database 1
til database 2. Altsaa det der svarer til i access at vaelge File -> Import.
Hvordan goeres dette bedst fra VB6?
Med venlig hilsen
Lars Hoffmann
| |
Lars Hoffmann (08-07-2002)
| Kommentar Fra : Lars Hoffmann |
Dato : 08-07-02 14:11 |
|
"Lars Hoffmann" <lars@hoffmann.ac> escribió en el mensaje
news:agbprj$vp7$1@newsreader.mailgate.org...
> Hvordan goeres dette bedst fra VB6?
Fra et Access modul kan jeg bruge foelgende kode:
DoCmd.CopyObject bdd, "Encuesta C1", acTable, "Encuesta C1A"
Hvor bdd er navnet paa den database der kopieres til, "Encuesta C1" er den
table der skal kompieres fra, acTable er den type objekt der skal kopieres
og "Encuesta C1A" er det navn som tabellen faar i den nye database.
Hvordan kan jeg afvikle dette fra en ekstern VB6 application?
med venlig hilsen
Lars Hoffmann
| |
Krabsen (12-07-2002)
| Kommentar Fra : Krabsen |
Dato : 12-07-02 20:00 |
|
Jeg gør det sådan - lidt tillempet, for det er klippet ud af et større
program.
mvh
Krabsen:
...................................klip................................
Global dbSti As String
Sub importTabel(tabelNavn As String, sletGammel As Boolean)
On Error GoTo eh
Set dbTabelFlyt = OpenDatabase("tabelflyt.mdb")
dbSti = ReadProfile("Biblioteker", "Database", "xx.mdb")
If sletGammel = True Then
slettmpTabel tabelNavn ' slet tabellen, før den hentes igen
End If
ssql = "SELECT " & tabelNavn & ".* INTO " & tabelNavn & " IN '" & dbSti
& "'FROM " & tabelNavn
dbTabelFlyt.Execute (ssql)
DoEvents
Exit Sub
eh:
If Err = 3010 Then ' tabel findes allerede
Else
MsgBox Error
End If
Resume Next
End Sub
Sub slettmpTabel(tabelNavn As String) ' sletter den anviste tabel, hvis
den findes
On Error GoTo eh
db.TableDefs.Refresh
db.TableDefs.Delete tabelNavn ' slet
Exit Sub
eh:
Resume Next
End Sub
....................................klip.................................
"Lars Hoffmann" <lars@hoffmann.ac> skrev i en meddelelse
news:agbprj$vp7$1@newsreader.mailgate.org...
> Jeg har et problem jeg ikke rigtigt ved hvordan jeg loeser mest effektivt.
> Jeg sidder med to access databaser og skal kopiere tre tables fra database
1
> til database 2. Altsaa det der svarer til i access at vaelge File ->
Import.
> Hvordan goeres dette bedst fra VB6?
| |
|
|