Conectar Visual Basic - Sql

Conectar Visual Basic- Sql
1. Instalar el conector sql odbc 3.51, dando doble clic sobre el nombre.
2. En panel de control – herramientas administrativas, realizar la conexión de la base de datos.a. Origen de datos odbc
b. Dns usuario, clic en agregar

i. Clic en MySQL ODBC 3.51 Driver

3.
4. Escribir los datos de nuestro gestor de bases de datos.
5. Clic en Test.
6. AbrirVisual Basic 6.
7. En el menú Proyecto- Referencias, activar las opciones de
Microsoft DAO 3.51 Object Library
y Microsoft ActiveX Data Objects 2.0 Library.
8. (se activar dando clic en la casilla deverificación que se encuentra a la izquierda de la referencia).clic en aceptar.

9. Agregar el componente ADO que nos permite conectarnos a la base de datos:
a. En el menú proyecto – clic encomponentes.
b. Clic en Microsoft ADO Data Control 6.0 (OLEDB) clic en aceptar

c.
10. Diseñar el formulario con los campos de la base de datos



11. Clic en el control ADO y en su propiedadConnetiongString

12. En la opción usar nombre de origen de dase de ODBC seleccionar la creada en la conexión y clic en aceptar.
13. En su propiedad RecordSource, escribir una búsqueda generalde la tabla y clic en aceptar.

14. En los botones de comando escribir el siguiente código.

15. Cada Text debe ser direccionado a la base de datos y al campo que mostrara.
16. En la propiedadDataSource seleccionar el adodc1 y en la propiedad DataField el campo que mostrara.

17. Ejecuta el programa. Recuerda que debes generar un nuevo registro antes de querer guardar en la base dedatos.

Nota: para que se pueda conectar a la base de datos se debe estar abierto EasyPHP.









18. Escribir el código.

Dim MC As ADODB.Connection
Dim rs As ADODB.Recordset

‘ esuna función que nos permite mostrar los datos de la tabla
Private Sub datos()
If Not rs.BOF And Not rs.EOF Then
Text1.Text = rs!clave
Text2.Text = rs!nombre
End If
End Sub

‘botón conectar...