Exclusively for Visual Basic 6.0 Programmers Only!

[aldoters]

psali d2.. haah, nid q matuto ng modules,
takti na SAD q... n punta sa PHP at HTML.. d q 2loy n aral ung VB6

 

[chrisrueda14]

mga sir, pno po gwing landscape ung Data Report?

 

[ericgmejia]

mga sir, pno po gwing landscape ung Data Report?

tirahin mo sa printer yan, wala sa datareport
sa code pwede mo gawin yun na oset ang defualt printer to landscape

 

[ericgmejia]

@ kuya eric : ya may mga pdf ka sa VB? yung bago..

ebooks po ba? YM mo ako
saka anong bago e luma na ang VB6, wala na books na bago yun

 

[j_c_d]

Pwede pong makahingi ng link ng VB6 yung full po sana. Please gusto ko lang po talagang matutunan.

ok na po nakakita na ko ng link.

 

[chrisrueda14]

tirahin mo sa printer yan, wala sa datareport
sa code pwede mo gawin yun na oset ang defualt printer to landscape

ok sir..tnx

 

[wootz88]

kuya eric may ask po ako panu po gawin yung 2nd hand mouse pointer sa hand icon by vb6....


hindi yung nag papalit po ng kulay ah...

yung 2nd hand mouse pointer po nag papalit xa...

 

[jkiez]

ang kulit..kailangan idivide pero di kailangan gumamit ng division operator..hehehe..
anyway try mo toh.

Dim var1 As Integer
Dim va2 As Integer
Dim ans As Integer
var1 = Text1.Text
var2 = Text2.Text
ans = 0
Do Until var2 > var1
var1 = var1 - var2
ans = ans + 1
Loop
Text3.Text = ans

thank poh sa idea ..pwede n poh yan ..hehe

 

[ericgmejia]

kuya eric may ask po ako panu po gawin yung 2nd hand mouse pointer sa hand icon by vb6....


hindi yung nag papalit po ng kulay ah...

yung 2nd hand mouse pointer po nag papalit xa...

meron naman properties ang objects like forms, buttons, textbox, etc
para mapalitan ang mouse pointer kun yan ang tanong mo

try to look for it and try mo palitan

 

[ericgmejia]

thank poh sa idea ..pwede n poh yan ..hehe

Dim var1 As Integer
Dim va2 As Integer
Dim ans As Integer
var1 = Text1.Text
var2 = Text2.Text

meron ka dapat code to check for PROPER data type bago mag assign

what if ang nsa TEXTBOX1.TEXT = "001NT"?
for sure TYPE MISMATCH NA YAN

check first if its integer before performing math operations

yan ang sign ng robustness at flexibility sa code ng isang programmer

 

[mark052708]

Dim var1 As Integer
Dim va2 As Integer
Dim ans As Integer
var1 = Text1.Text
var2 = Text2.Text

meron ka dapat code to check for PROPER data type bago mag assign

what if ang nsa TEXTBOX1.TEXT = "001NT"?
for sure TYPE MISMATCH NA YAN

check first if its integer before performing math operations

yan ang sign ng robustness at flexibility sa code ng isang programmer

sorry naman idol..hehehe..clue nung logic lang naman ang binigay ko sa kanya eh..problema na nya ung mga error..para matuto..

 

[chrisrueda14]

Private Sub cmdAdd_Click()



clearform
MasterAction = "ADD"
resetFormControl True, vbWhite
blnchangemade = False
If empdeptrs.RecordCount > 0 Then
empbookmark = empdeptrs.Bookmark
End If

'Generate_no

Dim rsdb As Recordset

Set rsdb = employeedb.OpenRecordset("Select max(auid) as cntr from empPosition", dbOpenSnapshot)

' Set rsdb = employeedb.OpenRecordset("Select Max(" & strY & ") from " & strX & "")


If rsdb.RecordCount > 0 Then
rsdb.MoveLast
' Me.lbltry.Caption = rsdb!cntr + 1
Me.Text1 = rsdb!cntr + 1

'Me.Text1 = 1
' Else
' Me.Text1 = 1
End If


empdeptrs.AddNew
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True

Text2.SetFocus
OktoExit = False



End Sub


============================


May TAO po ba dito???
pede mag pa tulong...

ask ko lang po kung paano po kumuha ng maxID i mean na max ID

HAL: I add record 1 - 10 then i delete record #9 then the #9 record will be automatically available.

dapat wen i click the ADD button instead of 11 ang lalabas sa textbox. mag kakaroon ng message box "OPTION" asking for the number that is not yet avail...



may makaktulong po ba?

Dim num1 as integer
Dim rs as new adodb.recordset


rs.open "SELECT fieldname FROM tablename ORDER by fieldname ASC",dbConname,adOpenStatic,adLockOptimistic

If rs.RecordCount > 0 Then
num1 = 1
Do Until rs.EOF
If num1 <> Val(rs!ID) Then
If MsgBox(num1 & "is not yet used. Do you want to uset it?", vbYesNo + vbQuestion) = vbYes Then
textboxName.Text = num1
End If

Exit Do
End If
num1 = num1 + 1
rs.MoveNext
Loop
End If



e2 idea ko...=)

 

[ericgmejia]

sorry naman idol..hehehe..clue nung logic lang naman ang binigay ko sa kanya eh..problema na nya ung mga error..para matuto..

ok lang yan, to "whom it may concern" naman yun e

learn it now or learn it later
pinagkaiba ay mas mahal if you learn it later

 

[ericgmejia]

Dim num1 as integer
Dim rs as new adodb.recordset


rs.open "SELECT fieldname FROM tablename ORDER by fieldname ASC",dbConname,adOpenStatic,adLockOptimistic

If rs.RecordCount > 0 Then
num1 = 1
Do Until rs.EOF
If num1 <> Val(rs!ID) Then
If MsgBox(num1 & "is not yet used. Do you want to uset it?", vbYesNo + vbQuestion) = vbYes Then
textboxName.Text = num1
End If

Exit Do
End If
num1 = num1 + 1
rs.MoveNext
Loop
End If



e2 idea ko...=)

imagine kung gaano kabilis yan kung meron kang 1million records

 

[dark_athmosphere2007]

SIR may naka attach akong picture kasi hindi ko ma display yung name na nakalagay at yung address at nationality eh gusto ko sana ma display yun gumawa ako ng tatlong label box para dun sya madisplay di ko alam codes pwedeng pagawa naman nun?tapos pag aralan nalang po

 

[0xbadc0de-3]

SIR may naka attach akong picture kasi hindi ko ma display yung name na nakalagay at yung address at nationality eh gusto ko sana ma display yun gumawa ako ng tatlong label box para dun sya madisplay di ko alam codes pwedeng pagawa naman nun?tapos pag aralan nalang po

[FONT="Lucida Console"]Label1.Label = TextboxName.Text
Label2.Label = TextboxAddress.Text
Label3.Label = TextboxNationality.Text[/FONT]

Ganito po ba? Ayon po sa detalyeng ibinigay nyo.

Kung gusto mong madisplay yung data on button click, let's say button namely ButtonDisplay, proceed to:

[FONT="Lucida Console"]
ButtonDisplay_Click
' This block
' Put your desired action after triggering button click event here
' This is a Sub Routine
End Sub[/FONT]

 

[dark_athmosphere2007]

[FONT="Lucida Console"]Label1.Label = TextboxName.Text
Label2.Label = TextboxAddress.Text
Label3.Label = TextboxNationality.Text[/FONT]

Ganito po ba? Ayon po sa detalyeng ibinigay nyo.

Kung gusto mong madisplay yung data on button click, let's say button namely ButtonDisplay, proceed to:

[FONT="Lucida Console"]
ButtonDisplay_Click
' This block
' Put your desired action after triggering button click event here
' This is a Sub Routine
End Sub[/FONT]

Kuya pasensya na po kasi di ko talaga magawa eh eto po yung mga ginamit ko. frame , label para dun sa name, address, nationality tapos po text box dun sa 2nd frame naglagay me ng 3 label para dun lumabas yung na input ko sa text box tapos naglagay me ng tatlong command button cmdDisplay, cmdClear at cmdExit dapat po pag pinindot ko yung display lalabas dun yung nainput kong name or address sa label pag naman po pinindot ko yung clear dapat po mabura sya sa tatlong label sorry po kung magulo salamat po sa reply..

 

[majoy17]

hohoho!! i need help ulit regarding s report.guz2 ko kc ganito ang ouput:

header-------------------------------

names:name1,name2,name3

header2-----------------------------

[ ] checkbox1 [ ] checkbox5

[ ] checkbox2

[ ] checkbox3

[ ] checkbox4

[ ] checkbox5

[ ] checkbox6

details section A--

value1 values 4 value 7

value2 values 5 value 8

values 3 values 6 values 9



details section B--------------------

values 1

values 2

values 3

values 4

footer-------------------------------



hohoh d ko kc m setting ung layout pg two details section ang gamit ko. for details section A multiple columns ang gamit ko while details section B one column lng. so pg pinapalitan ko ung setting s details section A ng width pra mgfunction ung multiple columns ung details section B setting ay automatic ng cchange din ng width edi nggng multiple columns nrin ung B. ung s checkbox nmn ung first value lng and table ang n reread nia ang formula ko d2

:for example products table

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

1|CHICKSILOG|

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

2|HOTDOG|

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

formula checkCHICKSILOG:

if Product.name = "CHICKSILOG" then" X"else" "

formula checkHOTDOG:

if Product.name = "HOTDOG" then" X"else" "

OUT PUT

[X]CHICKSILOG

[ ]HOTDOG



thanks. hahahahahahaha sakit s ulo

vb.net gamit ko sana 2longan nio ako.

need help

 

[0xbadc0de-3]

Kuya pasensya na po kasi di ko talaga magawa eh eto po yung mga ginamit ko. frame , label para dun sa name, address, nationality tapos po text box dun sa 2nd frame naglagay me ng 3 label para dun lumabas yung na input ko sa text box tapos naglagay me ng tatlong command button cmdDisplay, cmdClear at cmdExit dapat po pag pinindot ko yung display lalabas dun yung nainput kong name or address sa label pag naman po pinindot ko yung clear dapat po mabura sya sa tatlong label sorry po kung magulo salamat po sa reply..

Hehe, pasensya na rin po ah, hindi po kasi ako makarelate sa work mo,
okay lang po ba kung pakibigay ang buong Name ng mga Controls?
Hehe, diyan kasi sa sinasabi ko, nagbigay lang po ako ng idea at sample Control para makarelate po kayo.

Paki pass na lang po yung bawat ng ng Controls at bawat desired event ng control.

 

[chrisrueda14]

imagine kung gaano kabilis yan kung meron kang 1million records

mbgal b sya non sir? ilan po bng iteration nga2wa ng loop per second? sensya n newbie lng sir...