Exclusively for Visual Basic 6.0 Programmers Only!

[jocno1212]

Up ko lang yung question ko po!

 

[cj0107]

up po. help po please.

 

[knives645]

sige po. wait lang po

- - - Updated - - -

to na po yung system ko. sana po matulungan nyo ko. salamat

Something is missing, wala ka namang table for courses?
Subjects lang, to give you an idea on designing a database heto ang konting info's:

Gawa ka ng table na tblCourse
Fields are..
1. CourseID - AutoNumber (PK)
2. CourseName - Text (100) (Unique)

Then your tblSubjects must be like this..
1. SubjectID = AutoNumber (PK)
2. CourseID = Number (FK)
3. SubjectName - Text (100)

Then your tblStudents must look like this..
1. StudentID = AutoNumber (PK)
2. LastName
3. FirstName
4. MiddleName
5. Age
6. Sex/Gender
7. Address
8. CourseID
9. Sem
10. YearLevel

Then meron ka dapat tblStudentSubjects - dito mo ilagay ang mga subjects na kukunin ng student, under his/her course
1. StudentSubjectID - AutoNumber (PK)
2. CourseID - Number (FK)
3. SubjectID - Number (FK)

You will use Join Statements to combine or join records from different tables.

To retrieve naman yung mga subjects under 1 course
Assuming tblCourse
CourseID ---------- CourseName
1 -------------------- BSIT
2 -------------------- BSCS

tblSubjects
SubjectID----------SubjectName-----------------------CourseID
1-------------------- Programming I-------------------------------2
2-------------------- Networking-----------------------------------2
3-------------------- Project Management----------------------- 1

So with data above, we can make an statement which regards on your requirement.

SELECT * FROM tblSubject WHERE CourseID = 1

will give you...

SubjectID----------SubjectName-----------------------CourseID
3-------------------- Project Management----------------------- 1

SELECT * FROM tblSubject WHERE CourseID = 2

will give you...

SubjectID----------SubjectName-----------------------CourseID
1-------------------- Programming I-------------------------------2
2-------------------- Networking-----------------------------------2

I hope you got the idea, gusto ko sana ayusin ang project mo, kaso medyo magulo and i would rather choose to build a new one.

- - - Updated - - -

Pahelp naman po, baka my VB project kayo diyan na profile management system? kahit access lang dbase. palink naman, pagaaralan ko lang po, sana matulungan niyo ako, haba na ng nabackread ko eh. yun po. salamat in advance.

field
Name age birthday address contact no email address
baka pwede din malagyan ng pictures.
May nakita kasi ko eh, yun MIS
http://www.symbianize.com/showthread.php?t=1131740
kaso di maedit o maupdate pictures during runtime eh, pahelp naman.

Thanks so much!

Baka makatulong ang mga sample dito...

http://www.symbianize.com/showthread.php?t=163979
http://www.symbianize.com/showthread.php?t=1126581&p=18994426#post18994426

 

[reymartnulud]

Mga ka SB patulong naman ako. Nagkakaron kasi ako ng error dito eh

Compile Error:
Method or data member not found




Sub display_list()
Set rs = New ADODB.Recordset
With rs
.Open "Select * tbl_Financial", cn, 2, 3
LvList.ListItems.Clear
Do While Not .EOF
LvList.ListItems.Add(1).Text = !PStudentNo
LvList.ListItems.Item(1).ListSubItems.Add.Text = !LastName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !FirstName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !MiddleName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !YearLevel
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Course
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Gender
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Age
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Birthdate
LvList.ListItems.Item(1).ListSubItems.Add.Text = !ContactNo
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Address
.MoveNext
Loop

End With
End Sub


Thanks..

 

[manster22]

tnx po....pa mark nlang aq

 

[knives645]

Mga ka SB patulong naman ako. Nagkakaron kasi ako ng error dito eh

Compile Error:
Method or data member not found




Sub display_list()
Set rs = New ADODB.Recordset
With rs
.Open "Select * tbl_Financial", cn, 2, 3
LvList.ListItems.Clear
Do While Not .EOF
LvList.ListItems.Add(1).Text = !PStudentNo
LvList.ListItems.Item(1).ListSubItems.Add.Text = !LastName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !FirstName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !MiddleName
LvList.ListItems.Item(1).ListSubItems.Add.Text = !YearLevel
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Course
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Gender
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Age
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Birthdate
LvList.ListItems.Item(1).ListSubItems.Add.Text = !ContactNo
LvList.ListItems.Item(1).ListSubItems.Add.Text = !Address
.MoveNext
Loop

End With
End Sub


Thanks..

Ito na ba yung exact code?

Something is missing here..

.Open "Select * FROM tbl_Financial", cn, 2, 3

 

[rocky0000042]

hello po ..

patulong naman po mga bossing..

about High Score with DataBase po (MS Access) ADO..
top 10 high score po.. or even 5 highest score po..

tapos yung Name at Score po ay naka caption ng Label po..

Thank you po..
wala kasi ako makitang ganitong situation ke google ehh..

kahit basic po.. Salamats po

 

[knives645]

hello po ..

patulong naman po mga bossing..

about High Score with DataBase po (MS Access) ADO..
top 10 high score po.. or even 5 highest score po..

tapos yung Name at Score po ay naka caption ng Label po..

Thank you po..
wala kasi ako makitang ganitong situation ke google ehh..

kahit basic po.. Salamats po

SQL lang yun,
SELECT TOP 10 FROM myTable Order By Score DESC

 

[rocky0000042]

SQL lang yun,
SELECT TOP 10 FROM myTable Order By Score DESC

awtch.. no idea sa sql..
meron ka po ba jan .. kahit basic lang po regarding high score?

salamat po

eto pa lang po nagawa ko po.|
[ HERE ]
haha mukang ewan lang .. please help po..

 

[knives645]

awtch.. no idea sa sql..
meron ka po ba jan .. kahit basic lang po regarding high score?

salamat po

eto pa lang po nagawa ko po.|
[ HERE ]
haha mukang ewan lang .. please help po..

Mediafire is prohibited in our company.

 

[rocky0000042]

ayy sorry po

attached ko po dito..

eto po

 

[knives645]

ayy sorry po

attached ko po dito..

eto po

Do you know how to use ADODB library instead of ADODC control?
Natanong ko lang naman.
It's fairly simple, here's the idea, this should work whether you use ADODB or ADODC.

1. Create Control Arrays of Labels for Player's Names(lblNames) and Scores(lblScores) and declare an Integer variable (Dim ctr as Integer) and initialize it to 0.
2. Retrieve the records from the table using the SQL Statement I gave a while ago.
3. Loop through your records, a simple [Do-While-Loop] will do.
4. Inside the loop, populate your control arrays, like lblNames(ctr).Caption = Recordsets value and do the same with lblScores, and don't forget to increment ctr

Hope you got the idea.

 

[losewin]

This thread is open for all vb programmers. .you can post anything you like as long as it is related with Visual Basic 6.0 Programming. .Assignments and tutorials are accepted. .​

So mga Visual basic Programmers tambay na po kayo dito. .hehe

kakailanganin ko to

 

[cytheria16]

tnx master!

Sipag mo tlga.

KEEP IT UP!

 

[reymartnulud]

Ito na ba yung exact code?

Something is missing here..

Ganun pa rin sir eh..

 

[jocno1212]

Baka makatulong ang mga sample dito...

http://www.symbianize.com/showthread.php?t=163979
http://www.symbianize.com/showthread.php?t=1126581&p=18994426#post18994426

Thank you po! Master, di ko maintindihan yung encryption na ginawa mo, paano po ba magadd ng sariling password at user, pwede po ba paturo ng ganoon? tsaka kung paano mag delete ng record pag sinelect sa list view. Pasensiya na po ah, salamat po in advance sir.
View attachment 160349

 

[reymartnulud]

Mga ka SB help naman po..

View attachment 160390View attachment 160389

 

[knives645]

Mga ka SB help naman po..

View attachment 898565View attachment 898564

Bakit kaya ganun, no?

Dun sa procedure mo na Display List, make sure to close the recordset after retrieving all the data.
Try mo na rin i-open ang recordset in adForwardOnly, adLockReadOnly, para mabilis ang pag-retrieve ng data.

Pag di nag-work, balik ka dito.

 

[reymartnulud]

Bakit kaya ganun, no?

Dun sa procedure mo na Display List, make sure to close the recordset after retrieving all the data.
Try mo na rin i-open ang recordset in adForwardOnly, adLockReadOnly, para mabilis ang pag-retrieve ng data.

Pag di nag-work, balik ka dito.

Sir pano yung sinasabi mong close yung recordset?

 

[acelleb]

Mga ka SB help naman po..

View attachment 898565View attachment 898564

Try mo eto
.Open "Select * from tbl_financial", cn, adOpenDynamic, adLockReadOnly

Ginamit mo kasi 3 = adLockOptimistic, which is ginagamit lang pag nag uupdate ka ng record sa db.
Pag error pa din try mo icheck ung "cn" diba eto ung active connection mo, baka my mali.