Kodning til link Visual Basic til MS Access

Programmer kan skrives i Visual Basic for at få adgang til Microsoft Access databaser. Nogle programmeringskoncepter som subrutiner og looping sammen med viden om databaser og SQL kan være påkrævet for at skrive programmer for at forbinde Microsoft Access-database til Microsoft Visual Basic-kode . ADODB-objektet bruges til at oprette forbindelse til databasen og få adgang til posterne ved hjælp af ADODB.connection og ADODB.recordset API'er. SQL bruges til at søge i databasen for poster, der matcher de angivne oplysninger som parametre til subrutinerne. Data i posterne kan også manipuleres i Visual Basic-programkoden.

Problem

Hej,

Jeg har brug for at kende kodningen for at forbinde visuel basic til MS Access!

Opløsning

Du kan prøve dette:

 Option Explicit Dim conn Som ADODB.Connection, rec Som ADODB.Recordset Dim esql Som String, esql2 Som String, Searchvar Som String Privat Under Kommando1_Click () Text1 = "" Text2 = "" Text3 = "" Command4.Visible = True Command1. Synlig = Falsk Text1.SetFocus End Sub Private Sub Command2_Click () Hvis ikke rec.EOF Så rec.MoveNext Else rec.MoveLast End Hvis GetText End Sub Privat Sub Command3_Click () Hvis ikke rec.BOF Så rec.MovePrevious Else rec.MoveFirst End Hvis GetText End Sub Privat Sub Command4_Click () På Error GoTo 1 Hvis Text1 = "" Eller Text2 = "" Så Command4.Visible = False Command1.Visible = True Exit Sub End Hvis rec.AddNew rec.Fields (0) = Text1 rec .Fields (1) = Tekst2 rec.Fields (2) = Tekst3 rec.Update Hvis ikke rec.EOF Så rec.MoveNext rec.MoveFirst GetText Command4.Visible = Falsk Command1.Visible = True Exit Sub 1 MsgBox ("dublet værdi" ) & Text3 End Sub Privat Sub Command5_Click () Text1 = "" Text2 = "" text3 = "" searchvar = InputBox ("indtast emne for at finde") rec.Close rec.Open ("vælg * fra TestRavi hvor først = "&" '"& searchvar &"' "), conn, adOpenStatic, adLockReadOnly Hvis rec.Fields (0)" "Så Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = rec.Fields (2) Else MsgBox ("Ingen matchende poster fundet") rec.Close rec.Open ("vælg * fra testravi"), conn, adOpenDynamic, adLockOptimistic GetText End Hvis End Sub 'for integers use' Dim searchvar2 As Integer 'searchvar2 = InputBox ("indtast nummer")' rec.Open ("vælg * fra TestRavi hvor Første =" & searchvar2), conn, adOpenStatic, adLockReadOnly Private Sub Form_Load () Indstil conn = Ny ADODB.Connection Set rec = Ny ADODB .Recordset 'conn.Open ("Provider = Microsoft.Jet.OLEDB 4.0; Datakilde = C: \ Programmer \ Microsoft Office \ Office \ Prøver \ Northwind.mdb; Persist Security Info = Falsk") conn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Datakilde = C: \ Programmer \ Microsoft Office \ Office \ Prøver \ Northwind.mdb; Persist Security Info = Falsk "conn.Open esql =" vælg * fra TestRavi "rec.Open esql), conn, adOpenDynamic, adLockOptimis tic GetText End Sub Privat Sub Form_Unload (Annuller som Integer) rec.Close conn.Close Set conn = Intet command1.visible = false Slut Sub Private Sub GetText () Hvis rec.BOF = True Eller rec.EOF = True Then Exit Sub Text1 = rec.Fields (0) Text2 = rec.Fields (1) Text3 = "" End Sub