Cómo utilizar ADO con Visual Basic

Seleccione idioma Seleccione idioma
Id. de artículo: 172403 - Ver los productos a los que se aplica este artículo
Para obtener una versión de Microsoft Visual Basic .NET de este artículo, consulte 308656.
Expandir todo | Contraer todo

En esta página

Resumen

Adovb.exe es un archivo comprimido autoextraíble que contiene el código de ejemplo que muestra cómo utilizar ActiveX Data Objects (ADO) dentro de Visual Basic.

Más información

El archivo siguiente está disponible para descargarlo del Centro de descarga de Microsoft:
http://download.microsoft.com/download/vb60pro/demo/1/WIN98/EN-US/AdoVB.EXE
Para obtener información adicional acerca de cómo descargar los archivos de soporte técnico de Microsoft, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
119591Cómo obtener Archivos de soporte técnico de Microsoft desde los servicios en línea
Microsoft exploró este archivo en busca de virus. con el software de detección de virus más reciente disponible en la fecha de publicación. Asimismo, el archivo se almacenó en servidores seguros que ayudan a impedir la realización de cambios no autorizados.
Contraer esta tablaAmpliar esta tabla
FileNameTamañoFecha
AdoDemo.mdbKB 33228/7/97
AdoVB18 KB5/8/97
AdoVB.vbp1 KB5/8/97
AdoVbEx6 KB28/7/97

Lo que muestra Adovb

Adovb muestra uso correcto de salida y parámetros devueltos (para SQL Server) y abrir un recordset parametrizado para orígenes de datos un Microsoft Access y SQL Server. También incluye una plantilla genérica de error, controlar con código de ADO:
   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
				
NOTES:
  • Cuando se utiliza ADOVB con ADO 2.0 o posterior, debería quitar la referencia de Microsoft OLE DB ActiveX Data Objects 1.0 y establecer una referencia a la versión más reciente de Microsoft ActiveX Data Objects disponibles.
  • Cuando se utiliza ADO 2.0 o posterior, referencia a la propiedad OriginalValue de un objeto Field de ADO dará el error siguiente, si LockType del objeto Recordset de ADO es de sólo lectura:
    Error en tiempo de ejecución '3251': el proveedor no admite la operación solicitada por la aplicación.
    Para evitar este error en ADOVB, comentario o quite la siguiente línea de código, en el procedimiento de evento Click para cmdAccess en la ventana de código frmADOVB:
    List1.AddItem vbTab & "OriginalValue= " & rs1.Fields(i).OriginalValue
    					

Referencias

Acerca de ejemplos de la serie de ADO *

Éste es uno de varios ejemplos idénticos implementados mediante ADO dentro de diversos productos, como se muestra a continuación. La ventaja es que estos artículos tienen una interfaz y funcionalidad idéntica, que se muestran las similitudes y diferencias en utilizar ADO con lenguajes diferentes y mecanismos:
172403FILE: Adovb.exe muestra cómo utilizar ADO con Visual Basic
220152Ejemplo: ADOVC1 simple ADO / aplicación VC ++
185033FILE: Adoacc.exe muestra utilizar ADO con Access 97

Propiedades

Id. de artículo: 172403 - Última revisión: miércoles, 2 de marzo de 2005 - Versión: 3.4
La información de este artículo se refiere a:
  • Microsoft ActiveX Data Objects 1.5
  • Microsoft ActiveX Data Objects 2.0
  • Microsoft ActiveX Data Objects 2.1 Service Pack 2
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
Palabras clave: 
kbmt kbdownload kbcode kbdatabase kbfile kbinfo kbsample kbstoredproc KB172403 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 172403

Enviar comentarios

 

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