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...
accessin avaaminen visual basic ohjelmasta
irkku
1
256
Vastaukset
- Orwell
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.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Riikka Purra leikkasi alimmalta tulodesiililtä 15 %
Muistaako kukaan Riikka Purran kovaäänisen vaalilupauksen ennen eduskuntavaaleja? https://yle.fi/a/74-20221152 "THL o3406355Muistele nainen niitä meidän yhteisiä hetkiä
Miltä ne tuntui? Enkö aina huokunut välittämistä, kiintymystä. Eikö sinulla aina ollut hyvä olo kanssani? Minulla ainaki483796- 81953
- 52870
- 56826
- 41820
Tämä kikka tekee lihapullista entistä maukkaampia - Tämä "ihmeaine" löytyy keittiön kaapista
Lihapullat ja ruskea kastike on arkiruokien kunkku! Paistatko itse lihapullat pannulla vai uunissa? Näin saat ruoasta v8803- 68800
Naiset ei halua kilttejä miehiä
Näin se vaan on..jos olet ilman tatskoja, et rähjää, sinulla ei ole rikosrekisteriä, olet liian kiltti, et sano pahasti,135792Seiska: Helmi Loukasmäki paljastaa - Näin Danny ja Helmi tapasivat
Helmi Loukasmäki, 25, ja Ilkka Danny Lipsanen, 83, ovat seurattuja julkkiksia. Mutta tiesitkö, miten he tapasivat? Lue14711