---

Lige et hurtigt spørgsmål

Jeg har en access dB med 3 kolonner (A-kol, B-kol , C-kol) hvor fra jeg
henter/skriver data fra en VB6 aplikation, dette virker helt fint, men
hvordan udvider jeg en allerrede eksisterende dB med fx. en ekstra
kolonne(D-kol). jeg vil altså gerne kunne oprette en ekstra kollonne direkte
fra koden i min VB aplikation

er der nogen der har et bud?


Med venlig hilsen
Joachim Boll

---

opretFelt "TabellensNavn", "D-kol", "SINGLE"



Sub opretFelt(tabel As String, felt As String, felttype As String)
On Error GoTo eh
ssql = "ALTER TABLE " & tabel & " ADD COLUMN " & felt & " " & felttype
db.Execute (ssql)
DoEvents
Exit Sub
eh:
If Err = 3380 Then ' felt findes i forvejen
Else
MsgBox Error
End If
Resume Next
End Sub


mvh
Krabsen


Fri, 2 Jul 2004 09:26:26 +0200, Joachim Boll
<joachimFJERN@DETTEinmedico.dk> skrev:

> Lige et hurtigt spørgsmål
>
> Jeg har en access dB med 3 kolonner (A-kol, B-kol , C-kol) hvor fra jeg
> henter/skriver data fra en VB6 aplikation, dette virker helt fint, men
> hvordan udvider jeg en allerrede eksisterende dB med fx. en ekstra
> kolonne(D-kol). jeg vil altså gerne kunne oprette en ekstra kollonne
> direkte
> fra koden i min VB aplikation
>
> er der nogen der har et bud?
>
>
> Med venlig hilsen
> Joachim Boll
>
>
>
>



--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

Tak for dit forslag, nu ved jeg at at det kan lade sig gøre, og det fedt.
men når jeg forsøger at afvikle den kode som du har sendt, for jeg følgende
fejl-meddelelse: 'compiler error, variable not defined' og vb peger på oret
'db' i linjen med: 'db.Execute (ssql) hvad har jeg glemt ?

Vh. Joachim

"Gert Krabsen" <news@fjernkrabsenfjernes.dk> skrev i en meddelelse
newssah1zmnq0p03yo@news.sunsite.auc.dk...
>
> opretFelt "TabellensNavn", "D-kol", "SINGLE"
>
>
>
> Sub opretFelt(tabel As String, felt As String, felttype As String)
> On Error GoTo eh
> ssql = "ALTER TABLE " & tabel & " ADD COLUMN " & felt & " " &
felttype
> db.Execute (ssql)
> DoEvents
> Exit Sub
> eh:
> If Err = 3380 Then ' felt findes i forvejen
> Else
> MsgBox Error
> End If
> Resume Next
> End Sub
>
>
> mvh
> Krabsen
>
>
> Fri, 2 Jul 2004 09:26:26 +0200, Joachim Boll
> <joachimFJERN@DETTEinmedico.dk> skrev:
>
> > Lige et hurtigt spørgsmål
> >
> > Jeg har en access dB med 3 kolonner (A-kol, B-kol , C-kol) hvor fra jeg
> > henter/skriver data fra en VB6 aplikation, dette virker helt fint, men
> > hvordan udvider jeg en allerrede eksisterende dB med fx. en ekstra
> > kolonne(D-kol). jeg vil altså gerne kunne oprette en ekstra kollonne
> > direkte
> > fra koden i min VB aplikation
> >
> > er der nogen der har et bud?
> >
> >
> > Med venlig hilsen
> > Joachim Boll
> >
> >
> >
> >
>
>
>
> --
> Sendt via Opera.
> www.krabsen.dk
> www.responsnord.dk
> mfl

---

Du har glemt at etablere en forbindelse til databasen:

   Global db As Database
   Set db = OpenDatabase("c:\programbibliotek\database.mdb")

...eller osse glemte jeg at skrive det

Du kan naturligvis også gøre det dynamisk ved at lade den hente
databasenavnet i en .INI-fil, men det kræver lidt mere kode, som jeg ikke
vil vedlægge, med mindre det er aktuelt.

mvh
Krabsen



Fri, 2 Jul 2004 10:37:32 +0200, Joachim Boll
<joachimFJERN@DETTEinmedico.dk> skrev:

> Tak for dit forslag, nu ved jeg at at det kan lade sig gøre, og det fedt.
> men når jeg forsøger at afvikle den kode som du har sendt, får jeg
> følgende
> fejl-meddelelse: 'compiler error, variable not defined' og vb peger på
> ordet
> 'db' i linjen med: 'db.Execute (ssql) hvad har jeg glemt ?
>
> Vh. Joachim
>
> "Gert Krabsen" <news@fjernkrabsenfjernes.dk> skrev i en meddelelse
> newssah1zmnq0p03yo@news.sunsite.auc.dk...
>>
>> opretFelt "TabellensNavn", "D-kol", "SINGLE"
>>
>>
>>
>> Sub opretFelt(tabel As String, felt As String, felttype As String)
>> On Error GoTo eh
>> ssql = "ALTER TABLE " & tabel & " ADD COLUMN " & felt & " " &
> felttype
>> db.Execute (ssql)
>> DoEvents
>> Exit Sub
>> eh:
>> If Err = 3380 Then ' felt findes i forvejen
>> Else
>> MsgBox Error
>> End If
>> Resume Next
>> End Sub
>>
>>
>> mvh
>> Krabsen
>>
>>



--
Sendt via Opera.
www.krabsen.dk
www.responsnord.dk
mfl

---

Hej

Der findes en rimelig billig bog (bilka) Grundlæggende programmering i SQL -
den indeholde mange gode eksempler i VB hvordan du arbejder med databaser
(access, sql m.v.)

mvh.

Jan

"Joachim Boll" <joachimFJERN@DETTEinmedico.dk> skrev i en meddelelse
news:40e51ed3$0$207$edfadb0f@dread12.news.tele.dk...
> Tak for dit forslag, nu ved jeg at at det kan lade sig gøre, og det fedt.
> men når jeg forsøger at afvikle den kode som du har sendt, for jeg
følgende
> fejl-meddelelse: 'compiler error, variable not defined' og vb peger på
oret
> 'db' i linjen med: 'db.Execute (ssql) hvad har jeg glemt ?
>
> Vh. Joachim
>
> "Gert Krabsen" <news@fjernkrabsenfjernes.dk> skrev i en meddelelse
> newssah1zmnq0p03yo@news.sunsite.auc.dk...
> >
> > opretFelt "TabellensNavn", "D-kol", "SINGLE"
> >
> >
> >
> > Sub opretFelt(tabel As String, felt As String, felttype As String)
> > On Error GoTo eh
> > ssql = "ALTER TABLE " & tabel & " ADD COLUMN " & felt & " " &
> felttype
> > db.Execute (ssql)
> > DoEvents
> > Exit Sub
> > eh:
> > If Err = 3380 Then ' felt findes i forvejen
> > Else
> > MsgBox Error
> > End If
> > Resume Next
> > End Sub
> >
> >
> > mvh
> > Krabsen
> >
> >
> > Fri, 2 Jul 2004 09:26:26 +0200, Joachim Boll
> > <joachimFJERN@DETTEinmedico.dk> skrev:
> >
> > > Lige et hurtigt spørgsmål
> > >
> > > Jeg har en access dB med 3 kolonner (A-kol, B-kol , C-kol) hvor fra
jeg
> > > henter/skriver data fra en VB6 aplikation, dette virker helt fint, men
> > > hvordan udvider jeg en allerrede eksisterende dB med fx. en ekstra
> > > kolonne(D-kol). jeg vil altså gerne kunne oprette en ekstra kollonne
> > > direkte
> > > fra koden i min VB aplikation
> > >
> > > er der nogen der har et bud?
> > >
> > >
> > > Med venlig hilsen
> > > Joachim Boll
> > >
> > >
> > >
> > >
> >
> >
> >
> > --
> > Sendt via Opera.
> > www.krabsen.dk
> > www.responsnord.dk
> > mfl
>
>