Keskustelu: Ohjelmointikysymykset: vb + access + SQL ? (VBA)

Kanta.Execute "ALTER TABLE Taulu ADD " & Text1.Text & " varchar(" & Val(Text2.Text) & ");"

Suomeksi: ALTER TABLE Taulu ADD Kentän_nimi VARCHAR(20);

Eli tuossa päräytetään uusi kenttä taulukkoon..
otetaan text1sestä kentän nimi, kentän tyyppi tulee select casella combosta(ei näy tässä) ja text2sesta saadaan kentän pituus jaadijaadijaada...

Kyseessä on siis ado jonkä kautta ohjaan access kantaa.
Homman hoitamiseen lienee parempikin ratkaisu kuin sql lauseet.
Tuolla kun ei voi ihan kaikkia kentän ominaisuuksia asettaa (esim. kentän kuvaus), vai voiko ?

Kokeileppa ADODB:tä. (Active Data Objects)

Kirjoita Googleen ADO niin löydät miljoona tutoriaalia aiheesta.

Kyllä mä koitin googlettaa, mutta ei oikeen löytynyt mitään noin tarkkaa..

Jos joku tietää hyvän tutorialin, niin olisin hyvin kiitollinen tästä tiedosta.

Pitäisi siis saada määriteltyä tässä tehtävälle riville ainakin kuvaus ja jotain muitakin pikkitietoja.

Tuosta tulee vasta kentän nimi tietotyyppi ja pituus.

eli näin se on periaatteessa:

'Esitellään
Dim Kanta As New ADODB.Connection

Private Sub Command1_Click()

'Avataan kanta
Kanta.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\Kanta.mdb;" & _
            "Mode=ReadWrite;Persist Security Info=False"

'Suoritetaan SQL pätkä (siivosin hiukan)
'Tähän passaisi tietysti myös MODIFY tuon ADDin tilalle..
Kanta.Execute "ALTER TABLE Taulu ADD Sarakkeen_nimi varchar(20);"

'Suljetaan kanta
Kanta.close

End Sub