Please help me with my ssdbGrid problem

[e4r3i5c]

Hi, i have a problem with my ssdbgrid in vb6. the task is to find and highlight selected row in the grid.. . . Is there anyone can help me with this problem?..
my code below is to select the specfic records or row but the problem is, my code cannot highlight the row..How can i?Please help me i need it badly...


i = 0
ssdg1.MoveFirst
For i = 1 To ssdg1.Rows

If ssdg1.Columns("Description").Text = frmDailyActivities.ssdg.Columns "Activity Code").Text Then

ssdg1.SelBookmarks.Add ssdg1.RowBookmark(i)
Exit For
End If
ssdg1.MoveNext

Next i

[Dököll]

Hey there Good buddy!

Why not give this one a whirl:

Option Explicit
 
      Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
      Dim cmd As New ADODB.Command
      Dim i As Integer
      Dim FindLastName As String
 
      Private Sub Command1_Click()
 
         ' Remove previously saved bookmark from collection
         If (DataGrid1.SelBookmarks.Count <> 0) Then
            DataGrid1.SelBookmarks.Remove 0
         End If
 
         ' Prompt user for desired author's last name
         FindLastName = InputBox("Please enter the author's last name you
                                  want to search for", "Find")
 
         rs.Find "au_lname = '" & FindLastName & "'", , , 1
 
         ' Append your bookmark to the collection of selected rows
         DataGrid1.SelBookmarks.Add rs.Bookmark
 
      End Sub
 
      Private Sub Form_Load()
 
         ' Open your ADO connection where "Pubs" is an ODBC DSN that
         ' points to pubs database in SQL Server
         cn.Open "Pubs"
 
         ' Create your command to query for all records in Authors table
         With cmd
            .ActiveConnection = cn
            .CommandText = "select * from authors"
         End With
 
         ' Open your recordset
         With rs
            ' Set rs properties
            .CursorType = adOpenKeyset
            .LockType = adLockOptimistic
 
            ' Call open using active command
            .Open cmd
         End With
 
         ' Populate the DataGrid providing rs as the data source
         Set DataGrid1.DataSource = rs
 
      End Sub
 

http://support.microsoft.com/kb/195472

See if that works!

[e4r3i5c]

Thanks Dokoll, I've got the problem with my code..when i change the syntax of the bookmark the problem was solved.. thank you very much for helping..
more power..