sql en Visual Basic

[j_aspillaga]

Hola a todos, como puedo ejecutar una sentencia sql en visual basic, algo como un insert, update, delete?
gracias y saludos

[pabli]

Muy sencillo si conoces el modelo de objetos de ADO:

-Declaras un objeto Connection y otro Command
-Abres la connexión a la BBDD
-Asignas la cadena SQL al objeto Command
-y lo ejecutas

Ejemplo sacado de MSDN:

Código:

Public Sub ExecuteX()

    Dim strSQLChange As String
    Dim strSQLRestore As String
    Dim strCnn As String
    Dim cnn1 As ADODB.Connection
    Dim cmdChange As ADODB.Command
    Dim rstTitles As ADODB.Recordset
    Dim errLoop As ADODB.Error

    ' Define dos instrucciones SQL que deben ejecutarse como texto de comando.
    strSQLChange = "UPDATE Títulos SET Tipo = " & _
        "'auto_ayuda' WHERE Tipo = 'psicología'"
    strSQLRestore = "UPDATE Títulos SET Tipo = " & _
        "'psicología' WHERE Tipo = 'auto_ayuda'"

    ' Abre una conexión.
        strCnn = "Provider=sqloledb;" & _
        "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
    Set cnn1 = New ADODB.Connection
    cnn1.Open strCnn

    ' Crea un objeto Command.
    Set cmdChange = New ADODB.Command
    Set cmdChange.ActiveConnection = cnn1
    cmdChange.CommandText = strSQLChange
    cmdChange.Execute
End Sub

He quitado código para simplificarlo, pero la filosofía es esa.

Saludos
Pablo

[j_aspillaga]

Gracias, lo haré en seguida