/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
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?




Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste