duda sobre conexion SQL en .net 2005

[juanpablomonte]

Hola amigo:

Espero te sirva esto:

Actualizar:

Código:

Function upestado(ByVal nombre As String, ByVal tarea As String) As Boolean
dim path as string= "Ruta del Acces"
        Try
            Dim con As OleDbConnection
            con = New OleDbConnection(" Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & path & "")
            Dim sql As String
            sql = " UPDATE Tareas SET Tareas.Estado = 'Vencido' WHERE (((Tareas.Nombre)='" & nombre & "') AND ((Tareas.Tarea)='" & tarea & "'));"


            Dim cmd As New OleDbCommand(sql.ToString, con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            cmd.Dispose()
            con.Dispose()
            Return True
        Catch err As OleDbException
            Return False
        Catch err As Exception
            Return False
        End Try
    End Function

INSERTAR:

Código:

 Public Function newtarea(ByVal Nombre, ByVal Tarea, ByVal timeout, ByVal estado) As Boolean

dim path as string= "Ruta del Acces"

        Try
            Dim con As OleDbConnection
            con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & path)
            Dim sqlbuilder As New System.Text.StringBuilder()

            With sqlbuilder
                .Append("INSERT INTO Tareas")
                .Append("(Nombre, Tarea, Fecha, timeout, Estado, ultimomail)")
                .Append("VALUES ('")
                .Append(Nombre & "', '")
                .Append(Tarea & "', '")
                .Append(Now.Date & "', '")
                .Append(timeout & "', '")
                .Append(estado & "', '")
                .Append(Now & "');")


            End With

            Dim cmd As New OleDbCommand(sqlbuilder.ToString, con)
            con.Open()
            cmd.ExecuteNonQuery()
            con.Close()
            cmd.Dispose()
            con.Dispose()

            Return True

        Catch err As OleDbException
            Return False
        Catch err As Exception
            Return False
        End Try
    End Function

Saludos, Mucha Suerteee !!!