Exclusively for Visual Basic 6.0 Programmers Only!

[JajaDina]

eto po yung picture,, SQL po toView attachment 139563

 

[rushmaker]

eto po yung picture,, SQL po toView attachment 802208

try mo igroup sa unalng colum

wala ako kasi sql eh sa access ko lnag sinubukan at nakuha kp yung sakto tulad sa picture na nilagay mo so ginawa ko lang naglagay lang ako ng group

 

[knives645]

eto po yung picture,, SQL po toView attachment 802208

SQL Server?

Pag ginamitan mo yan ng Group By, same result pa din ng picture mo...
SELECT col1, col2, col3 FROM myTable GROUP BY col1


If you are using VB6, pwede mong palitawin yan ng ganyan,
using alternate Provider, MS DataShape, then i-bind mo lang sa MSHFLexgrid.

Or you may want to use, Crystal Report and perform grouping.
For sure, kayang-kaya ang ganyang format.

 

[marlonlaural]

eto po yung picture,, SQL po toView attachment 802208

ate,

sa report mo na lang palabasin yan gusto mo mas madali pa....
like crystal report.... "Suppress if Duplicate" pero naka group cya ng first column!

 

[markizzmo13]

Private Sub Command1_Click()
connect
sql = "tblreturn"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
With rs
.AddNew
!Return_Id = txtreturnid.Text
!Video_ID = Label6.Caption
!Customer_Id = Label4.Caption
!Penalty = Label14.Caption
!Date_Returned = Label1.Caption
.Update
End With

MsgBox "Video successfully returned..", vbInformation, "Success"

Text1.Text = ""

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblrent WHERE Clng (Rent_id)='" & CLng(txtrentid.Text) & "'"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With rs
.Delete
End With

'Set rs = New ADODB.Recordset
' sql = select * from vc where Clng (NoOfCopies)='" & CLng(txtrentid.Text) & "'"

Call GetRentVideos
lblTotalAmount.Caption = "0.00"
Label14.Caption = "0.00"
Label10.Caption = "0.00"
Label12.Caption = ""
Label4.Caption = ""
Label6.Caption = ""
Label8.Caption = ""
End If

Set rs = New ADODB.Recordset
sql = "SELECT Return_Id FROM tblreturn"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With rs
.MoveLast
txtreturnid.Text = !Return_Id + Val(1)
.CLose
End With
End If
End Sub


pa help po odbc driver not suported dun sa my clng ung eror

 

[a4tech501]

Private Sub Command1_Click()
connect
sql = "tblreturn"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
With rs
.AddNew
!Return_Id = txtreturnid.Text
!Video_ID = Label6.Caption
!Customer_Id = Label4.Caption
!Penalty = Label14.Caption
!Date_Returned = Label1.Caption
.Update
End With

MsgBox "Video successfully returned..", vbInformation, "Success"

Text1.Text = ""

Set rs = New ADODB.Recordset
sql = "SELECT * FROM tblrent WHERE Clng (Rent_id)='" & CLng(txtrentid.Text) & "'"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With rs
.Delete
End With

'Set rs = New ADODB.Recordset
' sql = select * from vc where Clng (NoOfCopies)='" & CLng(txtrentid.Text) & "'"

Call GetRentVideos
lblTotalAmount.Caption = "0.00"
Label14.Caption = "0.00"
Label10.Caption = "0.00"
Label12.Caption = ""
Label4.Caption = ""
Label6.Caption = ""
Label8.Caption = ""
End If

Set rs = New ADODB.Recordset
sql = "SELECT Return_Id FROM tblreturn"
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With rs
.MoveLast
txtreturnid.Text = !Return_Id + Val(1)
.CLose
End With
End If
End Sub


pa help po odbc driver not suported dun sa my clng ung eror

You sure about this code?:

sql = "tblreturn"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic

Or do you mean?:
sql = "SELECT * FROM tblreturn"

Tapos ung sa may clng, wag u na gamitin ung clng. Naguluhan lng me d2:

sql = "SELECT * FROM tblrent WHERE Clng (Rent_id)='" & CLng(txtrentid.Text) & "'"

Text ba ung Rent_id kaya gumamit u ng quotes? Kc kung string un, hindi u na need i-convert sa long. Pero kung long na un, hindi na kailangan ng clng. Diretso ganito na (pag long ung data type):

sql = "SELECT * FROM tblrent WHERE Rent_id=" & txtrentid.Text

Pag string naman, ganito:

sql = "SELECT * FROM tblrent WHERE Rent_id='" & txtrentid.Text & "'"

 

[Jessiezdc]

Help po sa

MSHFLEXGRID...

yung kapag click mo sa row ng Mhflexgrid lalabas yung info sa Txtbox

http://www.symbianize.com/showthread.php?t=1062476

 

[play]

salamat po dito...

 

[a4tech501]

Help po sa

MSHFLEXGRID...

yung kapag click mo sa row ng Mhflexgrid lalabas yung info sa Txtbox

http://www.symbianize.com/showthread.php?t=1062476

Hindi pa ko nakagamit ng MSHFLEXGRID, pero mukhang parehas lang sila ng MSFLEXGRID. Sa MSFLEXGRID kc, naa-access ung cell gamit ang row tska col property, tapos naa-access ung data using textmatrix. Parang ganito:

Text1.Text = Msflexgrid1.TextMatrix(Msflexgrid1.Row, Msflexgrid1.Col)

Kung kailangan u ng specific na row or col gaya nung image mo, ganito naman:

Text1.Text = Msflexgrid1.TextMatrix(Msflexgrid1.Row, 0)

 

[markizzmo13]

You sure about this code?:

sql = "tblreturn"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenDynamic, adLockOptimistic

Or do you mean?:
sql = "SELECT * FROM tblreturn"

Tapos ung sa may clng, wag u na gamitin ung clng. Naguluhan lng me d2:

sql = "SELECT * FROM tblrent WHERE Clng (Rent_id)='" & CLng(txtrentid.Text) & "'"

Text ba ung Rent_id kaya gumamit u ng quotes? Kc kung string un, hindi u na need i-convert sa long. Pero kung long na un, hindi na kailangan ng clng. Diretso ganito na (pag long ung data type):

sql = "SELECT * FROM tblrent WHERE Rent_id=" & txtrentid.Text

Pag string naman, ganito:

sql = "SELECT * FROM tblrent WHERE Rent_id='" & txtrentid.Text & "'"

salamat po gumana

 

[markizzmo13]

pa help po pwede ba ung mangyayari kapag nag rent ng video ang isang customer tpos humiram ng limang piraso (same title bali quantitiy ung hiniram nya ) tpos pag isososli nya na pipili sya kung ilan ang isososli nya kapag 3 sinoli nya di mabubura sa db rent ung name nya pero mag maminus ung quantity ni sinoli nya then ung 3 mag-aadd ulit sa video quantity no.

 

[CtrlV]

penge dl link ng vb 6.0

 

[a4tech501]

pa help po pwede ba ung mangyayari kapag nag rent ng video ang isang customer tpos humiram ng limang piraso (same title bali quantitiy ung hiniram nya ) tpos pag isososli nya na pipili sya kung ilan ang isososli nya kapag 3 sinoli nya di mabubura sa db rent ung name nya pero mag maminus ung quantity ni sinoli nya then ung 3 mag-aadd ulit sa video quantity no.

Pwedeng-pwede un bro. Sa ganitong kaso, maraming pwedeng approach. Pwedeng i-track u ung quantity ng item, meaning nire-record u ung quantity ng nahiram na item (video in this case). Parang ganito:

Video Table:
ID Title Total_Quantity Rented_Quantity
1 The Avengers 10 3

Ang problem sa ganitong approach e mabusisi pa ung pag-track ng quantity ng bawat item.

Or kung ako ang gagawa ng system, ang gagawin ko e iti-treat ko ang bawat item as individual item, meaning hindi ko ita-track or lalagyan ng quantity ung mga items. So regardless na kahit pare-parehas or kahit iba-iba ung item na ni-rent, alam ko lagi kung ilan ang nasa hiraman pa at ilan ung naisoli na. Parang ganito:

Video Table:
VideoID Title Status
1 The Avengers Rented[1]/Available[0]
2 The Avengers Rented[1]/Available[0]

User Table:
UserID Username
1 Juan Dela Cruz

Rent Table:
RentID VideoID UserID RentStatus
1 1 1 Active[1]/Returned[0]
2 2 1 Active[1]/Returned[0]

Kaya pag nag-query ako, pwede ko alamin kung ilang The Avengers pa na ang status e Rented or Available. Tapos pwede kong i-query kung anu-anong items ang na-rent ng specific user na Active pa (or hindi pa naisosoli). Para sa akin, ganitong approach ang madali.

Parang ganito ung magiging query pag bibilangin ko ung nahiram na items ng isang customer:
SELECT COUNT(v.VideoID) AS TotalRented, v.Title FROM Video v, Rent r WHERE r.VideoID = v.VideoID AND r.UserID = 1 AND r.RentStatus = 1 GROUP BY v.Title

Tapos ganito naman pag iku-query ko kung ilang items pa ang available na i-rent:
SELECT COUNT(VideoID) AS TotalAvailable, Title FROM Video WHERE Status = 0 GROUP BY Title

(Palitan u ng number ung mga status. For example, ung Rented na status e dapat 1 ang value, tapos ung Available e 0. Sa Rent table naman, ung Active e 1, tapos ung Returned e 0)

Everytime na magre-return ng item ung customer, ima-mark u lang ung RentStatus as Returned[0] tska ung corresponding item using VideoID as reference sa status na Available[0]. Medyo magulo sa umpisa pero makukuha u din ung relational databases.

 

[markizzmo13]

Pwedeng-pwede un bro. Sa ganitong kaso, maraming pwedeng approach. Pwedeng i-track u ung quantity ng item, meaning nire-record u ung quantity ng nahiram na item (video in this case). Parang ganito:

Video Table:
ID Title Total_Quantity Rented_Quantity
1 The Avengers 10 3

Ang problem sa ganitong approach e mabusisi pa ung pag-track ng quantity ng bawat item.

Or kung ako ang gagawa ng system, ang gagawin ko e iti-treat ko ang bawat item as individual item, meaning hindi ko ita-track or lalagyan ng quantity ung mga items. So regardless na kahit pare-parehas or kahit iba-iba ung item na ni-rent, alam ko lagi kung ilan ang nasa hiraman pa at ilan ung naisoli na. Parang ganito:

Video Table:
VideoID Title Status
1 The Avengers Rented/Available
2 The Avengers Rented/Available

User Table:
UserID Name
1 Juan Dela Cruz

Rent Table:
RentID VideoID UserID RentStatus
1 1 1 Active/Returned
2 2 1 Active/Returned

Kaya pag nag-query ako, pwede ko alamin kung ilang The Avengers pa na ang status e Rented. Tapos pwede kong i-query kung anu-anong items ang na-rent ng specific user na Active pa (or hindi pa naisosoli). Para sa akin, ganitong approach ang madali.

my sample code po kau khit simple lng mysql database po xampp software

 

[a4tech501]

my sample code po kau khit simple lng mysql database po xampp software

Nag-attach me ng very simple sample project. Paki-palitan na lng ung database kc ginawa ko sa ms access (madalian kc).

 

[markizzmo13]

Nag-attach me ng very simple sample project. Paki-palitan na lng ung database kc ginawa ko sa ms access (madalian kc).

nagawa q na po to bali po ang kulang sa akin kapag kinilick ung return boton ung quantity ng dvd mag-aadd ulit sa database

ganto po example: tablevideo dito nakalagay ung mga video title at kung ilan example may limang the conjuring tpos pag nag rent si costumer ng isa mag mamaminus po ung quantity then pag isossoli nya na magiging lima po ulit

 

[a4tech501]

nagawa q na po to bali po ang kulang sa akin kapag kinilick ung return boton ung quantity ng dvd mag-aadd ulit sa database

ganto po example: tablevideo dito nakalagay ung mga video title at kung ilan example may limang the conjuring tpos pag nag rent si costumer ng isa mag mamaminus po ung quantity then pag isossoli nya na magiging lima po ulit

Hindi ko alam kung anong approach ang ginamit u. Pwedeng pa-post na lang ng project u? Baka matulungan ka na idebug ung project u.

Sa tingin ko e mukhang ung mas mabusising approach ang ginamit u base dun sa sinabi u na nakalagay sa video table ung title at quantity.

 

[markizzmo13]

Hindi ko alam kung anong approach ang ginamit u. Pwedeng pa-post na lang ng project u? Baka matulungan ka na idebug ung project u.

Sa tingin ko e mukhang ung mas mabusising approach ang ginamit u base dun sa sinabi u na nakalagay sa video table ung title at quantity.

gawa ka nalng ng sample code po napag nanghiram magmamainus then kapag nag soli po babalik sa depende sa dami ng hiniram

 

[iaSnalcA]

mga boss.. naman po.. as you can see.. bago lang po ako dito.. at sa vb6 programming at interesado po ako talaga.. may project po kame for finals.. database po.. hindi ko po alam kung pano ko sya sisimulan e.. grading system po sya.. may nailagay na po ako na log in.. pero sa main process nya di ko na po alm e.. sana po matulungan nyo ako.. pede po ba email nyo ko.. [email protected] .. hintay ko po kung sino man makakatulong sakin.. ngayong week na po na to ang submission e.. thanks in advance..

 

[JMXPSX]

Ako rin po. Internet Cafe nang school system so walang payment but database nang mga students. Sana po may makatulong. Nahihirapan din ako sundan yung winsock client at server para sa system na ito. Thanks po sa makaktulong