Heittäkää vinkkiä miten saan yhteyden VB:stä access kantaan ja kuinka saan sieltä selekt -lauseilla tavaraa ulos?
Accessin käyttö VB:stä
Salla
1
300
Vastaukset
- kpp
Tossa jotain mitä oon ite joutunu lisäileen Form_Loadiin:
Private Sub Form_Load()
Dim strConnection As String
'määritellään tietokantayhteden tarvittavat parametrit
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\data.mdb"
'tehdään uudet objektit
Set mcnnMain = New ADODB.Connection
Set mrstMain = New ADODB.Recordset
'asetetaan objekteilla alkuarvot
mcnnMain.CursorLocation = adUseClient
'avataan yhteys tietokantaan
mcnnMain.Open strConnection
mrstMain.CursorType = adOpenDynamic
mrstMain.LockType = adLockOptimistic
'haetaan rst:hen data tietokannasta
mrstMain.Open "SELECT * FROM henkilot", mcnnMain
Tarvii aikas paljon MySQL käskyjä noitten tietokantajuttujen kanssa.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1452549
En kai koskaan saa sinua
Koska et usko että riitäisit minulle. Olet aina pitänyt itseäsi liian risana ja heikkona. Katkot korkeutesi, ja poraat k1541649Terveystalon lääkärit ylilaskuttaneet
Tämän pörriäiset osaavat, laskuttamisen. Terveystalo myöntää asian. https://www.hs.fi/suomi/art-2000011134269.html "K1331623Saran ökytyyli käänsi katseita.
On nyt kyllä Sara kasvoistaan, kuvan perusteella todellakin pyöristynyt ainakin kuvan perusteella.1461344- 661338
The Summit Suomi: Maxie avaa hyytävästä tilanteesta kuvauksissa: "Veri roiskui ja tajusi, että..."
Oletko seurannut The Summit Suomea? Tykkäätkö vai et tai mitä mieltä ylipäätään olet sarjasta? Moni katsoja on kaikonnut131170Työttömille lusmuille luvassa lisää keppiä
Hallitus aikoo kiristää velvoitteiden laiminlyönnistä seuraavia työttömyysturvan karensseja ensi vuodesta alkaen. Hall2721147- 156976
Miksi ihmeessä?
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek22904Tiedän kaiken sinusta ja kaikesta
Tiedän miten kärsit. Tiedän millanen oikeesti oot. Tiedän miksi valehtelit, tiedän miksi satutit mua. Tiedän mitä tapaht58889