DOS Games Message Board
DOS Games Discussion
A message board to talk about DOS games, get help, and find old games.
Do NOT post warez or abandonware requests please
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


VB users attention help needed!

 
Post new topic   Reply to topic    DOS Games Discussion Forum Index -> General Gaming
Author Message
Wally
King of the Carrot Flowers


Offline
Joined: 01 May 2003
Posts: 4624

PostPosted: Sat Mar 13, 2004 4:36 am     Post subject: VB users attention help needed! Reply with quote

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:
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 wally4000@dosgames.com)

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

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 Happy


Last edited by Wally on Sat Mar 20, 2004 5:54 am; edited 2 times in total
Back to top
Amro
Way too much free time
Way too much free time


Offline
Joined: 24 Sep 2002
Posts: 479
Location: nth world

PostPosted: Thu Mar 18, 2004 5:08 pm     Post subject: Reply with quote

(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
Back to top
wardrich
"Some Troll"


Offline
Joined: 14 Sep 2002
Posts: 3944
Location: Ontario Canada

PostPosted: Thu Mar 18, 2004 10:12 pm     Post subject: Reply with quote

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-
Back to top
Display posts from previous:   
Post new topic   Reply to topic    DOS Games Discussion Forum Index -> General Gaming All times are GMT - 5 Hours
Page 1 of 1

 
Free Windows games


Powered by phpBB © 2001, 2005 phpBB Group and Ask an Expert
Also powered by Darren and the other admin and mods' hard work! ;)