Kuidas ühendada VB 6.0 MS Access 2003-ga

Visual Basic 6.0-s kirjutatud programmidele pääseb juurde Microsoft Access 2003 andmebaasidele. Programmi elementide, näiteks funktsioonide ja silmuste tundmine ning andmebaaside ja SQL-i tundmine on vajalik Microsoft Visual Basic'i efektiivse koodi kirjutamiseks Microsoft Access 2003 andmebaaside ühendamiseks . ADODB-objekt võib luua ühenduse Microsoft Access 2003 andmebaasidega. Andmebaasi kirjete juurde pääseb ADODB.recordset API abil . Avatud () liidest kasutatakse Microsoft Access 2003 andmebaasi kirjete loomiseks ja ligipääsuks. SQL-i võib kasutada selliste toimingute tegemiseks nagu andmebaasi otsimine sobiva teabe saamiseks.

Probleem

Kas keegi võiks mulle selgitada, kuidas ühendada VB6.0 MS Access 2003-ga?

Lahendus

Ülddeklaratsiooni alal kleepige see:

 Dim cn Nagu uus ADODB
Dim rs Nagu uus ADODB.Recordset
(vormil Aktiveeri sündmus)
cn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Andmete allikas = EMP.mdb;
cn.Open
rs.Open "valige Eid, Ename, ppfSub, Basic From EmpData Order by Eid", cn, adOpenStatic, adLockPessimistlik
Text1.text = rs.Fields (0)
jne