Conectar Visual Basic con SQL Server |
|
|
|
Con esta función nos podemos conectar a una base de datos en SQL Server . Private Sub conexion() '------------------------------------------------------------------------------ ' Conectar a una base de datos de SQL Server ' y mostrar los campos de la tabla ' ' Para que este ejemplo funcione, necesitamos una referencia a: ' Microsoft ActiveX Data Objects 2.0 Library
Dim tField As ADODB.Field ' ' Si estaba abierta la conexión, la cerramos Set conexion = Nothing Set nombre_recorsedset = Nothing ' ' Creamos los objetos Set conexion = New ADODB.Connection Set nombre_recorsdset = New ADODB.Recordset ' ' abrir la base usando las credenciales de Windows ' Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=nombre_bd;Data Source=SERVER\nombre_instancia_sql_server conexión.Open "Provider=SQLOLEDB.1;Initial nombre_bd;Data Source=SERVER\nombre_instancia_sql_server & _integrated security=SSPI; persist security info=False;" ' ' abrir el recordset indicando la tabla a la que queremos acceder nombre_recordset.Open "SELECT * FROM ITEMS", cnn, adOpenDynamic, adLockOptimistic ' ' Asignar los nombres de los campos al combo With cboCampos .Clear For Each tField In nombre_recordset.Fields .AddItem tField.Name Next .ListIndex = 0 End With ' ' Cerrar el recordset y la conexión nombre_recordset.Close conexion.Close ' End Sub
|