Ado Vs Sql

ADO vs. SQL
ADO

Universidad de Buenos Aires
Facultad de Ciencias Económicas
Construcción de Aplicaciones Informáticas

Public Function obtenerCliente(ident As Long) As Cliente

PublicFunction obtenerCliente(ident As Long) As Cliente

Dim CN As New ADODB.Connection

Dim CN As New ADODB.Connection

Dim RS As New ADODB.RecordSet

Dim RS As New ADODB.RecordSet

CN.Open"DSN=Marketing"

Dim sql As String

RS.Open "cliente", CN, adOpenKeySet, adLockOptimistic, _

sql = "SELECT nombre, fechaNac " & _

adCmdTable

"FROM cliente " & _
"WHERE id = :id_cliente "
sql =Replace(sql, ":id_cliente", CStr(ident) )

Do Until RS.EOF
If RS!id = ident Then
obtenerCliente.id = RS!id

CN.Open "DSN=Marketing"

obtenerCliente.nombre = RS!nombre

RS.Open sql, CN,adOpenKeySet, adLockOptimistic, adCmdText

obtenerCliente.fechaNac = RS!fechaNac
If Not RS.EOF Then

Exit Do

obtenerCliente.id = RS!id

End If

obtenerCliente.nombre = RS!nombreobtenerCliente.fechaNac = RS!fechaNac

Rs.Movenext
Loop

End If

RS.Close

RS.Close

CN.Close

CN.Close

Set RS = Nothing :
End Function

Set CN = Nothing

Set RS = Nothing :
End Function

SetCN = Nothing

Public Sub crearCliente(cl As Cliente)

Public Sub crearCliente(cl As Cliente)

Dim CN As New ADODB.Connection

Dim CN As New ADODB.Connection

Dim RS As New ADODB.RecordSetDim sql As String
CN.Open "DSN=Marketing"
RS.Open "cliente", CN, adOpenKeySet, adLockOptimistic, _
adCmdTable

sql = "INSERT INTO cliente (id, nombre, fechaNac) " & _
"VALUES (:idCliente,‘:nombreCliente’, #:fecha#)"
sql = Replace(sql, ":idCliente", CStr(cl.id) )
sql = Replace(sql, ":nombreCliente", cl.nombre)
sql = Replace(sql, ":fecha", Format(cl.fechaNac, “DD/MM/YYYY”) )

RS.AddNewRS!id = cl.id
RS!nombre = cl.nombre

CN.Open "DSN=Marketing"

RS!fechaNac = cl.fechaNac

CN.Execute sql

RS.Update
CN.Close
RS.Close
Set CN = Nothing

CN.Close

End Function
Set RS...