CONEXIÓN CON SQL DESDE VB.NET

  

CODIFICACIÓN:

Imports System.ComponentModel

Imports System.Data

Imports System.Data.OleDb

Imports System.Data.SqlClient

Public Class FORM1

    Public CONEXION As New OleDbConnection("PROVIDER=SQLOLEDB;" &

                               "DATA SOURCE=NOMBRE DEL SERVIDOR;" &

                                "INITIAL CATALOG=BASE DE DATOS;" &

                                "USER ID=USUARIO;PASSWORD=CLAVE")

    Dim SQL As String

    Public ORDEN_BD As OleDb.OleDbCommand

    Private D_TABLE As DataTable

    Private D_ADAPTER As OleDbDataAdapter

    Sub CONSULTA()

        CONEXION.Open()

        SQL = "SELECT * FROM TABLA ORDER BY CAMPO"

        ORDEN_BD = New OleDb.OleDbCommand(SQL, CONEXION)

        ORDEN_BD.CommandType = CommandType.Text

        ORDEN_BD.ExecuteNonQuery()

        REM CIERRO LA CONEXION

        D_ADAPTER = New OleDbDataAdapter(ORDEN_BD)

        D_TABLE = New DataTable

        D_ADAPTER.Fill(D_TABLE)

        DataGridView1.DataSource = D_TABLE

        CONEXION.Close()

    End Sub

 End Class