Estimados compañeros tengo el siguiente codigo:
'Nombre: CargarDatosActFlexGrid
'Fecha: 25/02/2010
'Parametros
'FechaMuestreo: Es la fecha del mes de muestreo
'IdAmbiente: Es el codigo del ambiente
'Objetivo: Cargar datos de la tabla ta_ana_fis_qui en un flexgrid y
'actualizar los registros
Sub CargarDatosActFlexGrid(FechaMuestreo As Date, IdAmbiente As Integer)
Dim mes, gestion As Integer
Dim conectamos As String
conectamos = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=d:\registro_plantas\bd_plantas.mdb"
'Obteniedo el año y mes de la fecha de muestreo
mes = Month(FechaMuestreo)
gestion = Year(FechaMuestreo)
'Creamos la conexion a la base de datos
Set MSHFlexGrid1.DataSource = Nothing
AdoData.RecordSource = ""
AdoData.ConnectionString = ""
'Accediendo a la base de datos
AdoData.ConnectionString = conectamos
AdoData.RecordSource = "select F_FECHA_MUESTREO AS DIA,F_HORA_MUESTREO AS HORA," & _
"B_TEMPERATURA AS TEMPERATURA,B_PH AS pH,A_TURBIEDAD AS TURBIDEZ,B_FOSFORO AS FOSFORO," & _
"F_FENOLFTALEINA AS ALC_FENOLFTALEINA,B_ALCALINIDAD AS ALCALINIDAD_TOTAL,B_DUREZA AS DUREZA_TOTAL," & _
"B_CALCIO AS CALCIO,B_MAGNESIO AS MAGNESIO,c_Hierro As HIERRO,c_Manganeso AS MANGANESO," & _
"B_CLORUROS AS CLORUROS,F_PHS AS PH_SATURACIÓN,F_PHI AS INDICE_DE_LANGELIER," & _
"B_CONDUCTIVIDAD AS CONDUCTIVIDAD,B_SOLIDOS_TOTALES AS SÓL_TOT_DISUELTOS,A_COLOR AS COLOR," & _
"c_Aluminio AS ALUMINIO,B_SULFATOS AS SULFATOS,C_NITRATOS AS NITRATOS,C_NITRITOS AS NITRITOS," & _
"A_OLOR AS OLOR,A_SABOR AS SABOR,C_FLUORUROS AS FLUORUROS," & _
"F_ALC_F_VOL_MUESTRA AS Vol_de_Alc_Fenoftaleina, F_T_VOL_MUESTRA AS Vol_de_Alcalinidad_Total," & _
"F_CR_H2SO4 AS Concentración_H2SO4,F_CA_VOL_EDTA AS Calcio_Vol_De_EDTA,F_D_VOL_EDTA AS Dureza_Vol_De_EDTA,F_D_VOL_MUESTRA AS Dureza_Volumen_muestra," & _
"F_CR_EDTA AS Concentración_EDTA,F_NO3_AG_VOL AS Vol_de_AgNO3,F_CL_VOL_MUESTRA AS Volumen_muestra_Cloruros," & _
"F_NO3AG_CT AS Concentración_AgNO3 from ta_ana_fis_qui where ano = " & gestion & "And periodo = " & mes & "And Id_Ambiente= " & IdAmbiente
AdoData.Refresh
'Preguntamos si es que no existen datos resultantes de la consulta
If AdoData.Recordset.Fields.Count = 0 Then
MSHFlexGrid1.Clear
Else
Set MSHFlexGrid1.DataSource = AdoData.Recordset
AdoData.Refresh
MSHFlexGrid1.Refresh
End If
End Sub
Funciona, pero el detalle es que necesito actualizar los datos que estan cargado en el objeto FHFlexgrid. Estoy trabajando con el objeto adodc. ¿Como puedo actualizar mis datos cargados en este objeto? , ese es el detalle. De antemano muchas gracias.
Saludos Cordiales
