| Re: problemas al buscar.....
la aplicacion no m marca ningun error, corre perfectamente bien...
con el cambio de año, solo busca proyectos del año pasado pero de este año no realiza la busqueda !!! kiero q aparezcan los proyectos(busqueda) q se dieron de alta el año pasado......... el codigo q tengo en el boton buscar es el siguiente:
Private Sub btn_search_Click()
Dim itx As Object
Dim stringToFind As String
Dim week_no As String
Dim CurDate As String
Dim day, month, resto As String
If (InStr(Format(Now, "Long Time"), "a.m.") <> 0) Or (InStr(Format(Now, "Long Time"), "p.m.") <> 0) Then
resto = TRStartDate
day = Left(resto, InStr(resto, "/") - 1)
resto = Right(resto, Len(resto) - InStr(resto, "/"))
month = Left(resto, InStr(resto, "/") - 1)
resto = Right(resto, Len(resto) - InStr(resto, "/"))
CurDate = month & "/" & day & "/" & resto
Else
CurDate = TRStartDate
End If
Call ClearList
last_op = "search"
list_activitycode.View = lvwReport
If rd_project.Value = True Then
sort_by = "project.name"
Else
sort_by = "activity.name"
End If
' Get Week Information Data
Set rst = New ADODB.Recordset
strSQL = " SELECT id " & _
" FROM week " & _
" WHERE start_date <= '" & CurDate & "' " & _
" AND end_date >= '" & CurDate & "' "
rst.Open strSQL, de_TimeReportDB.cnn_TimeReportDB, adOpenStatic, adLockReadOnly, adCmdText
Do While Not rst.EOF
week_no = rst!id
rst.MoveNext
Loop
' clean up
rst.Close
Set rst = Nothing
stringToFind = Replace(txt_pattern, "*", "%")
' Get Project names and Activity codes
Set rst = New ADODB.Recordset
If stringToFind = "%" Then
strSQL = " SELECT activity.project_id projid, project.name projname, activity.id actid, activity.name actname, activity.description descrip " & _
" FROM activity, project " & _
" WHERE project.id = activity.project_id " & _
" AND project.active = 1 " & _
" AND project.start_week <= '" & week_no & "' " & _
" AND project.end_week >= '" & week_no & "' " & _
" ORDER BY " & sort_by & ", projid, actid "
Else
strSQL = " SELECT activity.project_id projid, project.name projname, activity.id actid, activity.name actname, activity.description descrip " & _
" FROM activity, project " & _
" WHERE project.id = activity.project_id " & _
" AND ((project.name like '" & stringToFind & "') " & _
" OR (activity.name like '" & stringToFind & "')) " & _
" AND project.active = 1 " & _
" AND project.start_week <= '" & week_no & "' " & _
" AND project.end_week >= '" & week_no & "' " & _
" ORDER BY " & sort_by & ", projid, actid "
End If
rst.Open strSQL, de_TimeReportDB.cnn_TimeReportDB, adOpenStatic, adLockReadOnly, adCmdText
list_activitycode.ColumnHeaders.Add , , "ProjId-ActId", list_activitycode.Width / 10
list_activitycode.ColumnHeaders.Add , , "Project Name", (2 * list_activitycode.Width) / 10
list_activitycode.ColumnHeaders.Add , , "Activity Name", (2 * list_activitycode.Width) / 10
list_activitycode.ColumnHeaders.Add , , "Description", (5 * list_activitycode.Width) / 10
Do While Not rst.EOF
Set itx = list_activitycode.ListItems.Add(, , Trim(rst!projId) & "-" & Trim(rst!actId))
itx.SubItems(1) = Trim(rst!projname)
itx.SubItems(2) = Trim(rst!actname)
itx.SubItems(3) = Trim(rst!Descrip)
rst.MoveNext
Loop
'clean up
rst.Close
Set rst = Nothing
End Sub
solo aparecen las columnas marcadas con negro... pero la informacion q busque no aparece....... donde esta esa info?? porque no aparece en el campo.....?
gracias |