Refrescar datareports
Publicado por xavi (8 intervenciones) el 22/10/2001 16:56:08
Tengo un problema, Tengo un código que hace un datareport con una conexión a una base de datos oracle. El problema viene que al hacer la segunda consulta el datareport me muestra el resultado de la primera. He probado de cerrar la conexión y volver a abrirla pero con esto no consigo ni refrescarlo. Alguien puede ayudarme? Codigo:
Private Sub Command1_Click()
Dim resposta As Byte
DataEnvironment1.Commands(1).CommandText = "select * from acu.articulb where acu.articulb.articu = '1111001'" 'Consulta sql
If DataEnvironment1.rsCommand1.State = 1 Then 'si no hay connexión
DataEnvironment1.rsCommand1.Requery
End If
DataReport1.Refresh
DataReport1.Show
DataEnvironment1.Connection1.Close 'Cierrro la connexión
DataEnvironment1.Connection1.Open 'Vuelvo a abrir la connexión
If DataEnvironment1.rsCommand1.State = 1 Then 'si hay o no connexión
DataEnvironment1.rsCommand1.Requery
End If
resposta = MsgBox("Quieres ejecutar la siguiente consulta SQL?", vbYesNo, "Atención!")
If resposta = 6 Then
DataEnvironment1.Commands(1).CommandText = "select * from a cu.articulb where acu.articulb.articu = '1111003'" 'Consulta sql
DataReport1.Show
Else
End
End If
End Sub
Gracias!
Private Sub Command1_Click()
Dim resposta As Byte
DataEnvironment1.Commands(1).CommandText = "select * from acu.articulb where acu.articulb.articu = '1111001'" 'Consulta sql
If DataEnvironment1.rsCommand1.State = 1 Then 'si no hay connexión
DataEnvironment1.rsCommand1.Requery
End If
DataReport1.Refresh
DataReport1.Show
DataEnvironment1.Connection1.Close 'Cierrro la connexión
DataEnvironment1.Connection1.Open 'Vuelvo a abrir la connexión
If DataEnvironment1.rsCommand1.State = 1 Then 'si hay o no connexión
DataEnvironment1.rsCommand1.Requery
End If
resposta = MsgBox("Quieres ejecutar la siguiente consulta SQL?", vbYesNo, "Atención!")
If resposta = 6 Then
DataEnvironment1.Commands(1).CommandText = "select * from a cu.articulb where acu.articulb.articu = '1111003'" 'Consulta sql
DataReport1.Show
Else
End
End If
End Sub
Gracias!
Valora esta pregunta
0