Conectividad a sql

PASOS PARA LA CONEXIÓN DE UN PROGRAMA DE VB6.0 A MS-SQL SERVER

1. Crear la Base de Datos

Create database ejercicio

2. Seleccionar la Base de Datos

Use ejercicio

3.Crear las tablas

Create table Clientes (nit integer Not Null Primary Key,nombre varchar(40))

4. Activar las siguientes referencias (Menú: Project – References)

- MicrosoftActives Data Objects 2.0 Library

- Microsoft DAO 3.6 Object Library

5. Hacer el programa (en el formulario inserter un combo box):

‘ Los hacemos private para que sean visible entodos los objetos de este módulo

Private cnn As New ADODB.Connection

Private rst As New ADODB.Recordset

Private Sub Form_Load()

‘ Se resetean las variablesSet cnn = Nothing

Set rst = Nothing

‘ Se hace una instancia de la conexión y el recordset a las variables

Set cnn = New ADODB.Connection

Set rst = NewADODB.Recordset

‘ No es necesario el uso de un DNS ya que esta línea actúa estableciendo la conexión

cnn.Open "Provider=SQLOLEDB; " & _

"InitialCatalog=Ejercicio; " & _

"Data Source=pc-mfpvillatoro\MiServidor; " & _

"integrated security=SSPI; persist security info=True;"

‘ La variableconsulta almacena lo que queremos buscar en la tabla

consulta = "Select * from clientes"

‘ Abre el recordset y pasamos como parámetros la consulta, la conexión y otrosrst.Open consulta, cnn, adOpenDynamic, adLockBatchOptimistic

‘ Ahora llenamos el combo box

While Not rst.EOF

Combo1.AddItem rst!nombrerst.MoveNext

Wend

End Sub

Este ejemplo, almacena los clientes en un combo box, en un formulario de una Base de Datos llamada ejercicio y una tabla clientes.

Modificarlo para que...