Visual Basic - ¿Como crear Consultas SQL, Atraves de ADO???

Life is soft - evento anual de software empresarial
 
Vista:

¿Como crear Consultas SQL, Atraves de ADO???

Publicado por Héctor Aravena (1 intervención) el 28/05/2001 21:27:53
Please... necesito saber como agregar y eliminar sql, atraves de ado...
si alguien sabe, se lo agradecería mucho... y contará conmigo y con todo mi conocimiento.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:¿Como crear Consultas SQL, Atraves de ADO???

Publicado por Gonzalo Solano C. (8 intervenciones) el 29/05/2001 00:03:40
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar