VB Cómo detener el servicio sqlserver usando código

La modificación es similar a la adición. Primero debe conectarse a la base de datos, luego devolver el registro que se va a modificar y luego usar la siguiente declaración para modificar:

rs!field name=XXX

<. p>rs!nombre del campo =XXX

...

rs.Update

--------------- ------ -------------------------->Ejemplo

SubActualización públicaX()

Atenuar primeros empleados como ADODB

Atenuar strOldFirst como cadena

Atenuar strOldLast como cadena

Atenuar strMessage como cadena

' Abrir el conjunto de registros utilizando el nombre de la tabla Empleados.

strCnn = "Proveedor=sqloledb;" & _

"Fuente de datos=srv;Catálogo inicial=Pubs;Id. de usuario=sa;Contraseña=; "

Establecer rstEmployees = New ADODB.Recordset

rstEmployees.CursorType = adOpenKeyset

rstEmployees.LockType = adLockOptimistic

rstEmployees.Open "SELECT fname, lname " & _

"DE Empleados ORDENAR POR lname", strCnn, , , adCmdText

' Almacena datos originales.

strOldFirst = rstEmployees!fname

strOldLast = rstEmployees!lname

' Cambia los datos en el búfer de edición.

rstEmployees!fname = "Linda"

rstEmployees!lname = "Kobara"

' Muestra el contenido del búfer y obtiene la entrada del usuario.

strMessage = "Edición en curso:" & vbCr & _

' Edita los datos originales en el buffer. p>

" Datos originales = " & strOldFirst & " & _

strOldLast & vbCr & " Datos en buffer = " & _

rstEmployees! fname & ; " & primeros empleados! lname & vbCr & vbCr & _

"Utilice Actualizar para reemplazar los datos originales con " & _

"¿Datos almacenados en el búfer en Recordset?"

If MsgBox ( strMessage, vbYesNo) = vbYes Then

rstEmployees.Update

Else

rstEmployees.p>End If

' Muestra los datos del resultado .

MsgBox "Datos en conjunto de registros = " & rstEmployees!fname & " " & _

rstEmployees.lname ' Restaura el conjunto de registros. p>

' Restaura los datos originales ya que se trata de una demostración.

Si no (strOldFirst = rstEmployees!fname Y _

strOldLast = rstEmployees!!lname) Entonces

rstEmployees!fname = strOldFirst

rstEmployees.lname = strOldLast

rstEmployees.Update

Finalizar si

rstEmployees.Close

End Sub