pellesoft.se

Enkelt sätt att ansluta access via VB

Postad 2003-06-30 av Carsten Johansson i sektionen ASP.NET, C#, Okategoriserat med 5 Kommentarer | Läst av: 6115, Betyg: 61%

Förord

Att använda en Access databas till en VB-program är inte så svårt som man kan tro. Detta exempel som jag tänker presentera kräver inte så mycket men räcker gott och väll Jag vill poängtera att den SQL sats som jag kommer att använda kan se konstigt för den som jobbar mycket med det men jag skriver detta för att det ska vara så enkelt som möjligt. Det är ju huvudsaken hur man ansluter en Access databas med sitt VB-program.

Innehåll

» Lägg till informationen i tabellen

För att använda anslutningen så måste du använda DAO och för att använda det så behöver du gå till menyn längst upp till Projekt > Preference > Microsoft ADO 2.6…
(Kan finnas nyare version).

Så var det klart, Detta är det enda du behöver extra för att få din databas att fungerar i ditt program.

Du behöver lägga in lite koder innan det är dags för SQL satsen

Skapa en modul och lägg in följande kod


Public SQL As String
Public db As Database
Public rs As Recordset

Sen är det dags att ansluta databasen


Sub AnslutDatabasen()
    Filen = App.Path + "/Databasen.mdb"
    Set db = OpenDatabase(Filen)
End Sub

Vad gör koden då??
Jo App.Path gör så att den skriver in adressen fram till där programmet ligger. Sen lägger man till databasens namn så variabeln "Filen" får hela adressen och databasens namn. Nu kan OpenDatabase komma åt accessfilen utan några problem. Sen är det bara att fråga den med en SQL sats.


Sub Startadatabasen()
 SQL = "SELECT * FROM Data;"
 Set rs = db.OpenRecordset(SQL)
End Sub

Denna kod gör vadå??
Jo denna kod gör så man kan enkelt ansluta sin databas med tabellen Data genom att bara skriva


AnslutDatabasen
Startadatabasen

Men att bara köra så här räcker ju inte för man ska ju antingen lägga till,
ändra eller ta ta bort data från tabellen Data

Lägg till informationen i tabellen


AnslutDatabasen
Startadatabasen
rs.addnew
rs("Kolumn1")="Hej"
rs("Kolumn2")="då"
rs.update

Denna kod gör att man skapar en ny rad med hjälp av rs.addnew och sen skriver in vad som ska in och sen uppdatera den med rs.update

Ändra information i tabellen


rs.edit
rs("Kolumn1")="Då"
rs("Kolumn2")="hej"
rs.update

Det som skiljer sig mot den förra är att rs.addnew är ersatt med rs.edit

Hämta information från tabellen


Variabel1=rs("Kolumn1")
Variabel2=rs("Kolumn2")

Nu har variabel1 och variabel2 informationen som fanns i tabellen Data kolumnen1 och kolumnen2

Ta bort information


 SQL = "Delete FROM Data;"
 Conn.Execute(SQL)

Eftersom SQL satsen har ett bra sätt att ta bort så använder jag denna men det går att använda rs.delete om man nu vill det.

När allt är klart så är det dags att stäng anslutningen genom att skriva


rs.close

OBS! Denna SQL sats som jag har skrivit går bra om det bara finns en rad i tabellen Data för om det är fler än en så måste man säga till i SQL satsen vilken som ska visa, ändra eller ta bort.

Ladda ner databasen är

Upp