VB users attention help needed!

[Wally]

Please help me with this database, my friend tried to fix it many times but never succeded. If you can make either a combo box for searching or have the list down the bottom with all games there so when you type the name it shortens the results down. (Downloading of the database required)

Also I would like some scrolling credits probably in the about box that needs making also it will have to pop up in another window.

This is the code

Code: Select all

Dim rst As String

Private Sub Command1_Click()
    Data1.Recordset.MoveLast
End Sub

Private Sub Command2_Click()
    Data1.Recordset.MoveFirst
End Sub

Private Sub Command3_Click()
    Data1.Recordset.Delete
End Sub

Private Sub Command4_Click()
    Data1.Recordset.MoveNext
End Sub

Private Sub Command5_Click()
    Data1.Recordset.MovePrevious
End Sub

Private Sub Form_Load()
    'CallAdd
End Sub

Private Sub CallAdd()
  'Dim Database As Data

  'Do Until Database.Recordset.EOF
  'Combo1.AddItem Database.Recordset.Fields(Index)
  'Loop
End Sub

Private Sub Text8_Change()

    Do Until rst.EOF
            ' Always test for nulls
            If Not IsNull(rst!Desc) Then List1.AddItem rst!Desc
            If Not IsNull(rst!UomID) Then List1.ItemData(cbo.NewIndex) = rst!UomID
            ' Forget the movenext and you get an end
            '     less loop and
            ' an overflow error.
            rst.MoveNext
        Loop

End Sub

The source is here www.dosgames.com/~wally4000/data.zip

If you manage to get it working with one of the options up the top please email the source to me in a winzip file. (email is [email protected])

And you will instantly be added to the credits otherwise you can add yourself there

Sorry, messy form was driving me nuts... don't kill me for indenting and fixing. --Richard

Richard.. You made a mistake by removing a D - Wally

[Amro]

(the D is missing in command5)

Well, i dunno much about DBs, but you can easily have scrolling creds by putting this in a timer (make sure it's got an interval!):

Label1.Top = Label1.Top + 100

[wardrich]

that's how I've always done auto-scrolling. But make sure the interval amount and label.top amounts compliment eachother. (ie: interval=1, and top=100 would fly by really fast).


-Richard-