AGREGAR Y BUSCAR EN VB.NET - (SQL / VB.NET )

GUARDAR RUTA DE IMAGENES Y REGISTROS EN UNA BASE DE DATO SQL DESDE VISUAL STUDIO

CODIFICACION:

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

    Dim SELECCION As String

    Dim IMAGEN As String

    Sub CONSULTA()

        CONEXION.Open()

        If SELECCION <> "TODOS" Then

            SQL = "SELECT * FROM TABLA WHERE " & COMBOBOX1.TEXT & " LIKE '" & SELECCION & "' ORDER BY CAMPO"

        Else

            SQL = "SELECT * FROM TABLA ORDER BY CAMPO"

        End If

        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)

        DataGridView.DataSource = D_TABLE

        Try

            TextBox2.Text = D_TABLE.ROWS(0)("ID")

            TEXTBOX3.TEXT = D_TABLE.ROWS(0)("NOMBRE")

            TEXTBOX4.TEXT = D_TABLE.ROWS(0)("APELLIDO")

            TEXTBOX5.TEXT = D_TABLE.ROWS(0)("CI")
            'Carga la imagen al picturebox

            IMAGEN = D_TABLE.Rows(0)("FOTO")

            PICTUREBOX1.LOAD(IMAGEN)

        Catch EX As Exception

            PICTUREBOX1.LOAD(Application.StartupPath & "\SIGNO-DE-INTERROGACION.GIF")

        End Try

        CONEXION.Close()

    End Sub

'TEXTBOX1---- buscar: ' Carga la imagen al picturebox

        SELECCION = TEXTBOX1.TEXT

        SELECCION = "%" & SELECCION & "%"

        Call CONSULTA()

'BOTON TODOS----- muestra todos los registros:

        SELECCION = "TODOS"

        Call CONSULTA()

'PICTUREBOX----- muestra la imagen:

Try

Me.OPENFILEDIALOG1.SHOWDIALOG()

If Me.OPENFILEDIALOG1.FILENAME <> "" Then

IMAGEN = OPENFILEDIALOG1.FILENAME

Dim LARGO As Integer = IMAGEN.LENGTH

Dim IMAGEN2 As String

IMAGEN2 = CStr(MICROSOFT.VISUALBASIC.MID(RTRIM(IMAGEN), LARGO - 2, LARGO))

If IMAGEN2 <> "GIF" And IMAGEN2 <> "BMP" And IMAGEN2 <> "JPG" And IMAGEN2 <> "JPEG" And IMAGEN2 <> "GIF" And IMAGEN2 <> "BMP" And IMAGEN2 <> "JPG" And IMAGEN2 <> "JPEG" Then

IMAGEN2 = CStr(MICROSOFT.VISUALBASIC.MID(RTRIM(IMAGEN), LARGO - 3, LARGO))

If IMAGEN2 <> "JPEG" And IMAGEN2 <> "JPEG" And IMAGEN2 <> "LOG1" Then MSGBOX("FORMATO DE IMAGEN NO VALIDO, SELECCIONE OTRA IMAGEN") : Exit Sub

If IMAGEN2 <> "LOG1" Then Exit Sub

End If

PICTUREBOX1.LOAD(IMAGEN)

End If

Catch EX As Exception

PICTUREBOX1.LOAD(APPLICATION.STARTUPPATH & "\SIGNO-DE-INTERROGACION.GIF")

End Try

BOTON NUEVO

TEXTBOX2.TEXT = ""

TEXTBOX3.TEXT = ""

TEXTBOX4.TEXT = ""

TEXTBOX5.TEXT = ""

AGREGAR.ENABLED = True

'BOTON AGREGAR--- insertar datos:

CONEXION.OPEN()

SQL = ("INSERT INTO TABLA (NOMBRE,APELLIDO,CI,FOTO) VALUES ('" &

TEXTBOX3.TEXT & "','" & TEXTBOX4.TEXT & "','" & TEXTBOX5.TEXT & "','" & IMAGEN & "')")

ORDEN_BD = New OleDb.OleDbCommand(SQL, CONEXION)

ORDEN_BD.COMMANDTYPE = COMMANDTYPE.TEXT

Try

ORDEN_BD.EXECUTENONQUERY()

BTN_AGREGAR.ENABLED = False

Catch EX As Exception

MESSAGEBOX.SHOW(EX.MESSAGE)

End Try

CONEXION.CLOSE()

Call CONSULTA()

End Class