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
Aihe on jo aika vanha, joten et voi enää vastata siihen.