Visual Basic - consultas en visual

Life is soft - evento anual de software empresarial
 
Vista:

consultas en visual

Publicado por ALFONSO (2 intervenciones) el 20/05/2005 22:03:05
HOLA.

DESEO SABER DONDE PUEDO CONSEGUIR EJEMPLOS O CODIGOS QUE ME PERMITAN GENERAR CONSULTAS DESDE VISUAL A UNA BASE DE DATOS ACCES.

MUCHAS GRACIAS POR SUS RESPUESTAS
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
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:consultas en visual

Publicado por SuNcO (599 intervenciones) el 07/06/2005 22:43:42
Uhm.. aqui te van algunos

' Variables para la BD
Dim Dbs As Database, Resultado As Recordset
' Abrir la BD
Set Dbs = OpenDatabase("c:\archivo.mdb")

' Un Isert
Dbs.Execute "INSERT INTO Avisos (Fecha,Hora,Mensaje) VALUES ('" & CadenaDias & "','" & Hora & "','" & Mensaje & "');"
' Un Update
Dbs.Execute "UPDATE Avisos SET Fecha='" & CadenaDias & "',Hora='" & Hora & "',Mensaje='" & Mensaje & "' WHERE ID=" & Me.Tag & ";"
' Un Select
Set Resultado = Dbs.OpenRecordset("SELECT * FROM Avisos WHERE Fecha LIKE '*" & DiaHoy & "*' AND Hora='" & HoraAc & "';")

' Para verificar si hubo resultados es :
If Resultado.RecordCount > 0 Then ...
'...
MsgBox Resultado.Fields(1)
' o tambien por su nombre
MsgBox Resultado.Fields("campo")

Aqui funciona el Resultado.MoveNext y esos...

Dbs.Close
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