Imprimir Página - VB 2005 + SQL server

Título: VB 2005 + SQL server
Publicado por: jorgeriv en 26 Enero 2009, 02:46 am

Hola muy buenas noches, espero que puedan resolverme una pequeña duda con esto de las bases de datos, :-\ estoy haciendo un programa en VB 2005 y nunca antes habia usado bases de datos, los primeros inconvenientes los resolvi facilmente y ya logre crear una base de datos con SQL express pero me surgio un problema que no he podido resolver, resulta que necesito desde mi formulario en VB poder modificar los datos, por ejemplo actualizar o borrar datos existentes pero no he encontrado la manera de hacerlo, solo de insertar nuevos datos. :o
En la base de datos tengo una tabla con el nombre de productos, cantidades etc.. en el formulario puedo ingresar nuevos productos, pero quiero hacer un formulario donde yo elija un producto (ComboBox) y le pueda dar eliminar y que borre ese dato. Alguien sabe como hacer eso? :huh: Seria muy util cualquier pista que me puedan dar, un ejemplo o algun manual o pagina web que me puedan recomendar. De antemano muchas gracias por su tiempo.

Título: Re: VB 2005 + SQL server
Publicado por: krackwar en 26 Enero 2009, 04:25 am

A ver si hay un foro de .net y otro de VB , entonces esto por que lo posteas ca :huh: :rolleyes:

Título: Re: VB 2005 + SQL server
Publicado por: Mr. Crowley en 4 Marzo 2009, 03:04 am

Hola... esta es una funcion que hice hace bastante tiempo. Sirve para eliminar, insertar, actualizar informacion en una base de datos.

Código:

    '//ejecutar consulta [actualizar|eliminar|insertar]
    Public Function fntEjecutar_Consulta(ByVal strSQL As String) As String
        Dim strRet As String = ""

        Try
            Dim conConexion As New SqlConnection("cadena_de_conexion")
            Dim coSQL As New SqlCommand(strSQL.Trim, conConexion)

            conConexion.Open()
            coSQL.ExecuteNonQuery()
            strRet = "<ok>"
            If conConexion.State <> ConnectionState.Closed Then conConexion.Close()
        Catch ex As Exception
            strRet = ex.Message.ToString
        End Try

        Return strRet
    End Function

Como se usa la funcion? Bien... por ejemplo, para eliminar:

Código:

Dim strRet As String = fntEjecutar_Consulta("DELETE FROM tabla WHERE campo='hola mundo'")

Para insertar:

Código:

Dim strRet As String = fntEjecutar_Consulta("INSERT INTO tabla(campo) VALUES('hola mundo')")

Para actualizar:

Código:

Dim strRet As String = fntEjecutar_Consulta("UPDATE tabla SET campo='adios mundo' WHERE campo='hola mundo'")

Ahora bien... como saber si el comando se ha ejecutado correctamente...?? (Este ejemplo actualiza un campo en la base de datos)

Código:

Dim strRet As String = fntEjecutar_Consulta("UPDATE tabla SET campo='adios mundo' WHERE campo='hola mundo'")

If strRet = "<ok>" Then
    '//mensaje para indicar al usuario que el campo se actualizo
Else
    '//mensaje para indicar al usuario que se produjo un error, por ejemplo:
    MsgBox "Ocurrio un error:" & vbNewLine & strRet
End If

La funcion devuelve <ok> cuando se ha ejecutado correctamente, cuando ocurre algun error devuelve la descripcion del mismo.

Espero haber ayudado. :)

Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: jorgeriv en 26 Enero 2009, 02:46 am