
28/04/2004, 13:19
|
 | | | Fecha de Ingreso: febrero-2004 Ubicación: Managua, Nicaragua
Mensajes: 496
Antigüedad: 21 años, 1 mes Puntos: 1 | |
Ejemplo de ADO A continuación se presenta un ejemplo del MSDN para trabajor con ADO desde código, talvez te guste trabjar más de esta forma.
Código:
Public Sub OpenX()
Dim cnn1 As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim varDate As Variant
' 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
' Abre la tabla Empleados.
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "empleado", cnn1, , , adCmdTable
' Asigna la fecha de contratación del registro del primer empleado
' a una variable y, después, cambia la fecha de contratación.
varDate = rstEmployees!hire_date
Debug.Print "Datos originales"
Debug.Print " Nombre – Fecha de contratación"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date
rstEmployees!hire_date = #1/1/1900#
rstEmployees.Update
Debug.Print "Datos que han cambiado"
Debug.Print " Nombre – Fecha de contratación"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date
' Vuelve a consultar el objeto Recordset y restablece la
' fecha de contratación.
rstEmployees.Requery
rstEmployees!hire_date = varDate
rstEmployees.Update
Debug.Print "Datos después de restablecer."
Debug.Print " Nombre – Fecha de contratación"
Debug.Print " " & rstEmployees!fName & " " & _
rstEmployees!lName & " - " & rstEmployees!hire_date
rstEmployees.Close
cnn1.Close
End Sub
Saludes
__________________ Leer es Saber, REEL. Mi Blog |