Teen ohjelmaa Visual Basicilla. Onko mahdollista saada ohjelmasta (klikkaamalla painiketta) aukaustua Access-ohjelma ja siellä oleva tietokanta?
Seuraava koodinpätkä liittyy asiaan jollakin tavoin, mutta se ei kuitenkaan toimi...
dim a as access.application
set a = createObject("access application")
a.visible=true
a.openCurrentDatabase("a:testi.mdb")
Osaako joku auttaa...
Seuraava koodinpätkä liittyy asiaan jollakin tavoin, mutta se ei kuitenkaan toimi...
dim a as access.application
set a = createObject("access application")
a.visible=true
a.openCurrentDatabase("a:testi.mdb")
Osaako joku auttaa...
Vastaukset 1
Vanhimmat
Const csPath As String = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=MS Access Database;DBQ=C:\Temp\test.mdb;DefaultDir=C:\Temp;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;UID=admin;"
Dim cnn As Object
Dim r As Object
Set cnn = CreateObject("ADODB.Connection")
Set r = CreateObject("ADODB.Recordset")
cnn.ConnectionString = csPath
Call cnn.Open(csPath)
Set r = cnn.Execute("SELECT * FROM Taulu")
Tuolta Const-lauseesta vaihda kohdat C:\Temp\test.mdb ja C:\Temp soveltuviksi omaan ympäristöösi.