Het gebruik van ADO met Visual Basic

Vertaalde artikelen Vertaalde artikelen
Artikel ID: 172403 - Bekijk de producten waarop dit artikel van toepassing is.
Voor een Microsoft Visual Basic.NETTO-versie van dit artikel, raadpleegt u308656.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Adovb.exe is een zelfuitpakkend gecomprimeerd bestand met voorbeeld code geeft aan hoe u ActiveX Data Objects (ADO) binnen Visual Basic.

Meer informatie

Het volgende bestand wordt gedownload vanaf het Microsoft Download Center:
http://download.Microsoft.com/download/vb60pro/demo/1/Win98/en-us/AdoVB.exe
Voor meer informatie over het downloaden van Microsoft-ondersteuningsbestanden, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
119591Hoe Microsoft-ondersteuningsbestanden via Online Services downloaden
Microsoft heeft dit bestand op virussen. Microsoft gebruikt de meest actuele software voor virusdetectie die beschikbaar was op de datum waarop het bestand werd gepost. Het bestand is opgeslagen op beveiligde servers die onbevoegde wijzigingen aan het bestand verhinderen.
Deze tabel samenvouwenDeze tabel uitklappen
Bestands naamGrootteDatum
AdoDemo.mdb332 KB28-7-97
AdoVB18 KB5-8-97
AdoVB.vbp1 KB5-8-97
AdoVbEx6 KB28-7-97

Adovb toont

Adovb toont een correct gebruik van retour- en uitvoer parameters (voor SQL Server), en een record set parameters voor een Microsoft Access- en SQL Server-gegevensbronnen openen. Het is tevens opgenomen een algemene sjabloon voor fout afhandeling met ADO-code:
   Private Sub cmdTemplate_Click()
      Dim Conn1 As adodb.Connection

      On Error GoTo VbError   ' Trap (non-ADO) error/exceptions

      ' Create Connection Object (using early binding)
      Set Conn1 = new ADODB.Connection

      On Error GoTo AdoError  ' Trap any error/exception

      Conn1.ConnectionString = AccessConnect
      Conn1.Open

      '----------------------
      ' YOUR CODE GOES HERE!
      '----------------------

      ' Successful Shutdown
      Conn1.Close

   Done:
      ' Miscellaneous (graceful) Cleanup
      On Error Resume Next

      Set Conn1 = Nothing

      Exit Sub

   ' ADO Error/Exception Handler
   AdoError:
      ' Save Error Information!
      ErrNumber = Err.Number
      ErrSource = Err.Source
      ErrDescription = Err.Description

      AdoErrorEx List1, Conn1

   ' Non-ADO Native error/exception handler
   VbError:
      VbErrorEx List1, ErrNumber, ErrSource, ErrDescription
      GoTo Done

   End Sub
				
OPMERKINGEN:
  • Als u ADOVB met ADO 2. 0 of hoger, moet u Verwijder de verwijzing naar de Microsoft OLE DB ActiveX-gegevens objecten 1,0 en een verwijzing instellen naar de nieuwste versie van Microsoft ActiveX Data Objects beschikbaar.
  • Wanneer u ADO 2. 0 of later, verwijzende verloopt van ADO Field-object geeft de volgende fout als van de ADO-Recordset LockType alleen-lezen is:
    Run time fout '3251': De bewerking door de toepassing wordt niet ondersteund door de provider.
    Om te voorkomen dat deze fout in ADOVB, commentaar of verwijderen van de volgende regel code in de Click-gebeurtenisprocedure voor cmdAccess van het code venster voor frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Referenties

Over de reeks ADO * monsters

Dit is een van meerdere identieke monsters geïmplementeerd met behulp van ADO binnen diverse producten, zoals hieronder weer gegeven. Het voordeel is dat deze artikelen een identieke interface/functionaliteit, waaruit blijkt dat zowel de overeenkomsten en verschillen in het gebruik van ADO in verschillende talen / mechanismen:
172403BESTAND: Adovb.exe laat zien hoe het gebruik van ADO met Visual Basic
220152Voorbeeld: ADOVC1 Simple ADO / VC + + toepassing
185033BESTAND: Adoacc.exe toont ADO gebruiken met Access 97

Eigenschappen

Artikel ID: 172403 - Laatste beoordeling: vrijdag 25 februari 2011 - Wijziging: 2.0
De informatie in dit artikel is van toepassing op:
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Trefwoorden: 
kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc kbmt KB172403 KbMtnl
Automatisch vertaald artikel
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:172403

Geef ons feedback

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com