RE:¿Como crear Consultas SQL, Atraves de ADO???
mira no te entendi muy bien pero te envio un procedimiento para salvar datos a una tabla, para eliminar puedes utilizar
el metodo delete del recordset, pero tambien puedes adicionar o eliminar de forma directa utilizando en la variable
sQuery = "UPDATE tabla ...."
sQuery = "INSERT Tabla VALUES ..."
sQuery = "DELETE FROM tabla WHERE....."
y despues
ejecutas
cnt.execute
'Cnt es de tipo ADOBD.connection
Public Sub Save()
Dim sQuery As String
Dim rsUsuario As New ADODB.Recordset
On Error GoTo ErrorHandler
sQuery = "SELECT * FROM Usuario WHERE Usr_Codigo = '" & m_sCodigo & "'"
rsUsuario.Open sQuery, Cnt, adOpenKeyset, adLockOptimistic
rsUsuario("Usr_Login") = Trim(m_sLogin)
rsUsuario("Usr_Passwd") = Trim(m_sPasswd)
rsUsuario("Usr_Nombre") = Trim(m_sNombre)
rsUsuario("Usr_ApPat") = Trim(m_sApPat)
rsUsuario("Usr_ApMat") = Trim(m_sApMat)
rsUsuario("Usr_Fecha") = m_dFecha
rsUsuario("Usr_Estado") = Trim(m_sEstado)
rsUsuario.Update
rsUsuario.Close
Set rsUsuario = Nothing
End Sub
espero te sirva si necesitas mas ayuda avisa
saludos desde BOLIVIA