Exclusively for Visual Basic 6.0 Programmers Only!

[jenziewyt]

hi po, pwede po bang magrequest po? patulong naman po pleaseeeeeeeeeee.. pahingi po ng codes ng water refilling inventory system.. magdedefense na po kmi next week and worse wala pa talaga kaming system na maipapakita dahil po d pako nakakatry gumawa nun! visual basic 2008 po ang gamit.. ang flow po nun ee ilan ang nailabas at naipasok na water gallons.. pwede niyo po ako bigyan?? hayyys, sana po me makakatulong! email me po pls at [email protected].. in need lang po talaga!

 

[kevin94]

hello po mga adik sa programming, , ,pwede po ba makahingi ng konting sample ng vb6 program???

parequest po ako ng isang customers record, na sa bawat customer ay meron silang listahan pag nagbayad sila sa utang. tenks po in advance

 

[lesterluma]

hello po mga adik sa programming, , ,pwede po ba makahingi ng konting sample ng vb6 program???

parequest po ako ng isang customers record, na sa bawat customer ay meron silang listahan pag nagbayad sila sa utang. tenks po in advance

- I think wala naman mag bibigay sayo ng system/program dito. kanila lang eh tutulungan ka nila.

try mo po pumunta sa planetsourcecode.com dami dun reference.. baka nga yung system buo na eh. try mo lang mag hanap ..

pwede mo ding gawing reference yung system ni sir. eric .. para ikaw na mismo yung gumawa ng nirerequest mo hehe..



eto link

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

sure na gagaling ka dyan

 

[lesterluma]

http://img96.imageshack.us/img96/2815/n14e.jpg

-ano sa palagay nyo kung ayos ba ang ganitong GUI?

ayos yang GUI mo ah. haha. saan ka naka download ng skins sir ? hehe.. share mo naman.

 

[kevin94]

- I think wala naman mag bibigay sayo ng system/program dito. kanila lang eh tutulungan ka nila.

try mo po pumunta sa planetsourcecode.com dami dun reference.. baka nga yung system buo na eh. try mo lang mag hanap ..

pwede mo ding gawing reference yung system ni sir. eric .. para ikaw na mismo yung gumawa ng nirerequest mo hehe..



eto link

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

sure na gagaling ka dyan

thanks sir, , , di nan po ako nanghihingi ng program, , idea lang po hinihingi ko, , btw. thanks sayo, DL ko nalang ung latest revise na program ni eric, , meron ako nun, kaso ung luma, , tnx

 

[frozenice13]

sir knives

paano ko kaya gagawin excel to db ( ms access )

 

[knives645]

sir knives

paano ko kaya gagawin excel to db ( ms access )

You mean,
You have an Excel file, tapos gusto mong ilipat sa sa MS Access ang mga data. At gawin itong source ng system mo?
Pwedeng diretso lang, pero dapat aralin mo muna ang database
design mo, i-normalized mo dapat ang mga tables mo.


Kung hindi, paki-elaborate na lang po.

 

[frozenice13]

opo sir knives bali may foxpro dos po kasi dito

tapos nag oout siya ng excel

bali ang gusto ko gawin sa system ko is

yung excel i coconvert ko ng ms access .

another question

pwede bang yung excel nalang mismo gawin kong database? anong disadvantage bukod sa format ng field?

 

[keulblue]

cno dito maka bigay ng program na data entry... just like application form type na may browse, edit, delete, search and add button...

 

[knives645]

opo sir knives bali may foxpro dos po kasi dito

tapos nag oout siya ng excel

bali ang gusto ko gawin sa system ko is

yung excel i coconvert ko ng ms access .

another question

pwede bang yung excel nalang mismo gawin kong database? anong disadvantage bukod sa format ng field?

Foxpro? Naalala ko ang good old days ah, DOS Mode...

sa Excel? pwede din, but i wont recommend that.

Well, anyways, gagawa ka ba ng new system?

chat mo na lang pla ako, sa YM, knives645,
Madami akong ma-aadvise..

 

[knives645]

opo sir knives bali may foxpro dos po kasi dito

tapos nag oout siya ng excel

bali ang gusto ko gawin sa system ko is

yung excel i coconvert ko ng ms access .

another question

pwede bang yung excel nalang mismo gawin kong database? anong disadvantage bukod sa format ng field?

Pwede ring pala ata na maging Database ng VB6 ang DBF file ng FOxpro.
Much better if you go for MS Access, if single user lang to. (Desktop application)

 

[karloy]

boss eto un code ko..

Private Sub cmdnewpatient_Click()

Dim c As String
Set rs = New ADODB.Recordset
rs.Open "select * from patient_info", cn, adOpenStatic, adLockOptimistic
rs.MoveLast
If rs.RecordCount < 0 Then
rs.MoveLast
c = rs.Fields("patientID")
c = Mid(c, 5, 4)
If c < 9 Then
txtptnum.Text = "pt-000" & c + 1
ElseIf c < 99 Then
txtptnum.Text = "pt-00" & c + 1
ElseIf c < 999 Then
txtptnum.Text = "pt-0" & c + 1
Else
txtptnum.Text = "pt-" & c + 1
End If
Else
txtptnum.Text = "pt-0001"
End If

End Sub

--------------------------

kapag mag-add ako ng bagong patient dapat sa may customer ID ang nakalagay ay pt-0001 kasi wala pang laman un database ko.

nag error siya sa may rs.movelast kapag walang laman un database ko. pero kapag may laman un database kahit isa nagrurun naman siya.

pa help naman po.

 

[hidan56]

Cnu po may Library System with barcode?pahiram po??want ko kasi gumawa ng libray system with barcode. then pati mga ID gagawin kong barcoded :3 sana po may mag share

 

[hidan56]

Cnu po may Library System with barcode?pahiram po??want ko kasi gumawa ng libray system with barcode. then pati mga ID gagawin kong barcoded :3 sana po may mag share


share nio nlng po sa fb ko if meron po kayu :'( [email protected]

 

[kevinox]

mga masters pahinge nman akoh ng codes ng Lending System....kailangan koh ng pag.babasihan sah gagawin namin nah lending system...salamat poh sah makakatulong.....

 

[mrthally]

help po..newbie here..
panu po magsave ng autogenerate na id na format ganito
20131, 20132, 20133 ....w/out using [Recordcount],, the table is Student and fields are studID, studFname and studSname. advance TY po sa makakahelp..

 

[lesterluma]

boss eto un code ko..

Private Sub cmdnewpatient_Click()

Dim c As String
Set rs = New ADODB.Recordset
rs.Open "select * from patient_info", cn, adOpenStatic, adLockOptimistic
rs.MoveLast
If rs.RecordCount < 0 Then
rs.MoveLast
c = rs.Fields("patientID")
c = Mid(c, 5, 4)
If c < 9 Then
txtptnum.Text = "pt-000" & c + 1
ElseIf c < 99 Then
txtptnum.Text = "pt-00" & c + 1
ElseIf c < 999 Then
txtptnum.Text = "pt-0" & c + 1
Else
txtptnum.Text = "pt-" & c + 1
End If
Else
txtptnum.Text = "pt-0001"
End If

End Sub

--------------------------

kapag mag-add ako ng bagong patient dapat sa may customer ID ang nakalagay ay pt-0001 kasi wala pang laman un database ko.

nag error siya sa may rs.movelast kapag walang laman un database ko. pero kapag may laman un database kahit isa nagrurun naman siya.

pa help naman po.

-always false yan ah. ewan ko lang kung tama ako. sa tingin ko lang d siya pwede mag true. baka dun ..

 

[maritesmacute]

Cnu po may Library System with barcode?pahiram po??want ko kasi gumawa ng libray system with barcode. then pati mga ID gagawin kong barcoded :3 sana po may mag share


share nio nlng po sa fb ko if meron po kayu :'( [email protected]

kuya hindi po ito hingian ng system

 

[marlonlaural]

Mga Kuya willing kame tumulong sa abot ng kaya namen... Wag naman sana aabusuhin!

 

[knives645]

boss eto un code ko..

Private Sub cmdnewpatient_Click()

Dim c As String
Set rs = New ADODB.Recordset
rs.Open "select * from patient_info", cn, adOpenStatic, adLockOptimistic
rs.MoveLast
If rs.RecordCount < 0 Then
rs.MoveLast
c = rs.Fields("patientID")
c = Mid(c, 5, 4)
If c < 9 Then
txtptnum.Text = "pt-000" & c + 1
ElseIf c < 99 Then
txtptnum.Text = "pt-00" & c + 1
ElseIf c < 999 Then
txtptnum.Text = "pt-0" & c + 1
Else
txtptnum.Text = "pt-" & c + 1
End If
Else
txtptnum.Text = "pt-0001"
End If

End Sub

--------------------------

kapag mag-add ako ng bagong patient dapat sa may customer ID ang nakalagay ay pt-0001 kasi wala pang laman un database ko.

nag error siya sa may rs.movelast kapag walang laman un database ko. pero kapag may laman un database kahit isa nagrurun naman siya.

pa help naman po.

Meron talaga error yan.. dapat i-test mo muna ang recordset mo, before moving last..

anyways, meron ako ginawang code... aralin mo lang,..

Lets's say meron kang Field na
aID - Number, Format is Long Integer ------ Idagdag mo to sa table mo....
PatientID - Text
Bahala ka na sa Ibang field...

Public aID as Long

Public Function GeneratePatientID() As String
Dim sConn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'Get last number of transaction and add 1, to form transaction no
sConn.Open gstrConnectionString

rs.Open "SELECT MAX(aID) FROM patient_info", sConn, adOpenStatic, adLockReadOnly

If Not rs.EOF Then
Temp = IIf(IsNull(rs.Fields(0).Value), 0, rs.Fields(0).Value) + 1
Else
Temp = 1
End If

rs.Close

aID = Temp

GeneratePatientID = Format(Temp, "PT-0000")


Set rs = Nothing
sConn.Close
Set sConn = Nothing

End Function

On your Form_Load

txtPatientID.Text = GeneratePatientID()

sa Save mo naman,

Don't forget to save the value of aID

rs!aID = aID 'Global Variable
rs!PatientID = txtPatientID.Text