No enlaza el Datagrid

polielb2
16 de Marzo del 2005
tengo un DataGrid y quiero cargar los resultados de una consulta con una base de datos SQl la cual esta conectada con un DataEnvironmente, no quiero generar un Comando, lo que estoy haciendo son Consultas las cuales cambiares la parte del Where dependiendo de las opciones del Filtro

les paso el codigo

selecnormal:
Dim str As String
Dim STR1 As String
STR1 = "SELECT CodCont, CodCat, NomCategoria, CodRub, NomRubro, Codemp, NomEmpresa, CodProf, Codpues, Nombre, Apellido, COMENTARIOS , Alta, CodUsu, FechaModif, Codusu1 FROM Contacto"
If On1.Value = True Then
If NombreB = "" Then
MsgBox "Ingrese un Nombre"
Exit Sub
Else
str = STR1 + " WHERE (Nombre LIKE '" & NombreB & "%')"
Text.Text = str
GoSub consultar
End If
ElseIf On2.Value = True Then

End If

consultar:
Set Temporal = New ADODB.Recordset
If Temporal.State = 1 Then
Temporal.Close
End If
Temporal.Open str, DE.Agenda
'Set Temporal = DE.Agenda.Execute(str)
a = Temporal.RecordCount
Set DataGrid1.DataSource = DE
DataGrid1.DataMember = "Temporal"
Exit Sub
Return


Como veran trabajo con 2 String el del Select y despues le cambio el Where, el Recordset me tira resultados todo va bien lo unico que no sucede es a la hora de enlazar el resultado del Recordset con el grid ya probe Requery Refresh, DE TODO ¡¡¡¡¡ alguna sugerencia

mvallejos
16 de Marzo del 2005
cambia por esto

Temporal.Open str, DE.Agenda,AdOpenStatic
Set DataGrid1.DataSource = Temporal

Temporal debe ser un recordset general del formulario y no local de la rutina, porque cuando la rutina termina, Temporal se descarga y desaparecen los datos de tu grid
Espero que sirva

Saludos