VB - Koble til en Access DB

Utgave

Jeg har et bord Excel Jeg vil kopiere en DB i Access når jeg klikker en knapp på arket. Xls som inneholder denne tabellen.

For nå tester jeg tilkoblingen og opprettelsen av bordet. Koden min ser slik ut:

 Sub cnxBDD () string = "Provider = Microsoft.Jet.OLEDB.4.0; Datakilde = C: \ Brukere \ Nant \ Desktop \ MABDD.mdb; Persist Security Info = False" Angi DB = Ny ADODB. Tilkoblingssett recSet = Ny ADODB.Recordset BDD.Open CSQL Me.Refresh Sun DB Som ADODB.Connection Sun recSet Som ADODB.Recordset Sun CSQL Som String BDD.Execute "CREATE TABLE test (navn varchar (60), FirstName varchar (60), post varchar (60), kallenavn varchar (60), datoAlle dato ikke null) "End Sub

Feilen som oppstår er

dette: "ADO: Compile Error: skriv brukerdefinert ikke definert" og på "Ny ADODB.Connection"

Løsning

Det bør legge til referanse for Microsoft ActiveX Data Objects xx Library-prosjektet.

I menyen til VB editor => Tools => References ... tick korrespondanse.

Da må du deklarere objektene før du lager dem ...

 DB Som ADODB.Connection Sun Sun Sun recSet Som ADODB.Recordset CSQL Som String Set DB = Ny ADODB.Connection Set recSet = Ny ADODB.Recordset 'Tilkoblingsstrengen str = "Provider = Microsoft.Jet.OLEDB.4.0; Datakilde = C: \ Brukere \ Nant \ Desktop \ MABDD.mdb; Persist Security Info = False "'Vi opprettet tilkoblingsstrengen BDD.Open' Vi skrev CSQL-spørringen 'Vi sender spørringen til databasen recSet.Open CSQL, DB,, , adCmdText 'Den lukker tilkoblingen og slipper gjenstander på BDD. Lukk recSet.Close = Ingenting Sett DB = Ingenting Sett recSet

Det burde fungere!

Sjekk også dette tipset om å koble VB til Access-databasen:

//ccm.net/faq/6079-connecting-vb-to-database