Exclusively for Visual Basic 6.0 Programmers Only!

[ric0]

boss pano gawin yung form na hindi na hhide,

example: visible sya khit nka fullscreen yung games or sa browser, kung baga prioritize yung form na yun khit anung buksan mong software

 

[todomax]

Sino may Barcode Generator lang. Pls pm me.

 

[cydganda]

bka po meron kau naitatabi jan na accident reporting system mkikisend nmn po sa email q ty

[email protected]

 

[sherlyngomez18]

good mornig guys, ask k lang po kung alam nyo po tong error na to,
vb6 po gamit ko tapos may connection po sya, adodb, and ms access yung database nya,
nakarecieve po kasi ako ng error:
run-time error 3001:
arguments are of the wrong type, are out of acceptable range, or are in confilct with one another.

ito po yung code ko:
Dim connection As New ADODB.connection
Dim userrecordset As New ADODB.recordset

Private Sub cmdsignin_Click()
userrecordset.Open ("select * from users where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"), cn, 3, 3
If userrecordset.EOF Then
MsgBox "Invalid Username Or Password", vbCritical + vbOKOnly, "Error Loging In"
Else
MsgBox "Username ANd Password Accepted", vbMsgBoxRight + vbOKOnly, "Success!"
Me.Visible = False
frmmain.Visible = True
End If
Set userrecordset = Nothing


End Sub


Private Sub Form_Load()
connection.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\users.mdb"
End Sub

tapos nakahighlight yung part na
userrecordset.Open ("select * from users where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"), cn, 3, 3
saan po kaya yung mali ko? pede po ba pakiexplain,
di ko po kasi maintindihan yung sinabi ni google about sa error na yan eh, kaya bka sakaling alam nyo..
thanks p in advance.. mabuhay po tayong lahat..^^
sir knives, kung nandito ka po, please. patulong po ulit.. hahaha..XD

 

[acelleb]

good mornig guys, ask k lang po kung alam nyo po tong error na to,
vb6 po gamit ko tapos may connection po sya, adodb, and ms access yung database nya,
nakarecieve po kasi ako ng error:
run-time error 3001:
arguments are of the wrong type, are out of acceptable range, or are in confilct with one another.

ito po yung code ko:
Dim connection As New ADODB.connection
Dim userrecordset As New ADODB.recordset

Private Sub cmdsignin_Click()
userrecordset.Open ("select * from users where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"), cn, 3, 3
If userrecordset.EOF Then
MsgBox "Invalid Username Or Password", vbCritical + vbOKOnly, "Error Loging In"
Else
MsgBox "Username ANd Password Accepted", vbMsgBoxRight + vbOKOnly, "Success!"
Me.Visible = False
frmmain.Visible = True
End If
Set userrecordset = Nothing


End Sub


Private Sub Form_Load()
connection.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\users.mdb"
End Sub

tapos nakahighlight yung part na
userrecordset.Open ("select * from users where username='" & txtusername.Text & "' and password='" & txtpassword.Text & "'"), cn, 3, 3
saan po kaya yung mali ko? pede po ba pakiexplain,
di ko po kasi maintindihan yung sinabi ni google about sa error na yan eh, kaya bka sakaling alam nyo..
thanks p in advance.. mabuhay po tayong lahat..^^
sir knives, kung nandito ka po, please. patulong po ulit.. hahaha..XD

san un setup/declaration mo ng "cn" ?

 

[sherlyngomez18]

san un setup/declaration mo ng "cn" ?

ay.. oo nga nu.. so dapat ba sir connection ,3 ,3 sya?
actually ung cn sa manual namin is
dim cn as new adodb.connection
hahahaa.. ang noob ko naman..XD try ko pong baguhin sir.. salamat sa pag correct..^^

- - - Updated - - -

san un setup/declaration mo ng "cn" ?

ok na po sir..^^ salamat po sa tulong..^^

 

[clrscr04]

goodeve po. try ko pong magtanong dito, baka po kasi may nakakaalam, di kasi nasagot ni google,
tanong ko lang po kung bakit di gumagana tong search engine ko,
alam ko po may mali ako eh, di ko lang makita,
baka kasi yung combination talaga siguro ng code ko yung mali.
ito po yung codes ko para dun sa search button, gusto ko kasi, after nyang magsearch, lalabas yung isa pang form, then lahat ng makikita nya, dun nya ilalagay sa textbox, for example, nakita nya yung ID number, dapat pupunta sya sa idnumber.text, kaso di po gumagana:

Private Sub cmdsearch_Click()
findemployee = InputBox("Insert Employee ID")
record.Open ("select * from employees where ID='" & findemployee & "'"), conn, 3, 3

If record.EOF Then
MsgBox "NO" & findemployee & " ID WAS NOT FOUND!", vbCritical + vbOKOnly, "Error Search"
Set record = Nothing
Else

txtemployeeid.Text = record!ID
txtlnames.Text = record!lastname
txtfnames.Text = record!Firstname
txtmnames.Text = record!middlename
cmbgenders.Text = record!gender
bdates.Value = record!birthdate
txtbplaces = record!birthplace
txtages = record!age
txtaddress.Text = record!address
cmbeducattainments.Text = record!educattainment
txtnos.Text = record!contactno
cstarts.Value = record!contractstart
cends.Value = record!contractend

Set record = Nothing

End If
End Sub

advance thanks .ongoing na din kasi yung thesis.

 

[lockeduser58]

Sir may inventory System po ba kayo jan? yung simple lang po... obigyan nyo nalang ako ng Tips or Codes ako na gagawa pang VB6 to MS Access Salamat PM Me

 

[acelleb]

goodeve po. try ko pong magtanong dito, baka po kasi may nakakaalam, di kasi nasagot ni google,
tanong ko lang po kung bakit di gumagana tong search engine ko,
alam ko po may mali ako eh, di ko lang makita,
baka kasi yung combination talaga siguro ng code ko yung mali.
ito po yung codes ko para dun sa search button, gusto ko kasi, after nyang magsearch, lalabas yung isa pang form, then lahat ng makikita nya, dun nya ilalagay sa textbox, for example, nakita nya yung ID number, dapat pupunta sya sa idnumber.text, kaso di po gumagana:

Private Sub cmdsearch_Click()
findemployee = InputBox("Insert Employee ID")
record.Open ("select * from employees where ID='" & findemployee & "'"), conn, 3, 3

If record.EOF Then
MsgBox "NO" & findemployee & " ID WAS NOT FOUND!", vbCritical + vbOKOnly, "Error Search"
Set record = Nothing
Else

txtemployeeid.Text = record!ID
txtlnames.Text = record!lastname
txtfnames.Text = record!Firstname
txtmnames.Text = record!middlename
cmbgenders.Text = record!gender
bdates.Value = record!birthdate
txtbplaces = record!birthplace
txtages = record!age
txtaddress.Text = record!address
cmbeducattainments.Text = record!educattainment
txtnos.Text = record!contactno
cstarts.Value = record!contractstart
cends.Value = record!contractend

Set record = Nothing

End If
End Sub

advance thanks .ongoing na din kasi yung thesis.

Asan po ang error? paki bigay n lng po buong info pra madali ka matulungan.

 

[jhaiyz]

Asan po ang error? paki bigay n lng po buong info pra madali ka matulungan.

Pakitry nlang po to...
record.close
record.Open "select *from employees where ID = '" & findemployee & "'"
record.requery

 

[lesterluma]

VB6 - MS Excel Issues

Mga idol tanong lang.

Bakit kaya pag ina access ko itong code sa ibaba hindi nag ko'close yung EXCEL sa TASK MANAGER ko?

Dim sh2 As Worksheet

On Error Resume Next
Set sh2 = Sheets("Project Data")
On Error GoTo 0

If Not sh2 Is Nothing Then
MsgBox "I do exist"
Else
MsgBox "I do NOT exist"
End If

Baka isipin nyo hindi ko nai'close ng maayos yung excel. Eto yung code ko for closing..

objWB.Close (path)
objExcel.Quit
Set sh2 = Nothing
Set objWB = Nothing
Set objExcel = Nothing

Basta, once na in'access ko yung WORKSHEET NAMES sa EXCEL ko, hindi ko na ma'close yung MS EXCEL.
Mako'close lang siya kapag ki'nlose ko yung MISMONG PROJECT.
WHY WHY WHY DELILAH.

Please help sa mga may alam.

 

[sherlyngomez18]

Goodeve ulit guys.. sorry po sa pangungulit ko ah..XD
bale ito naman po yung prob ko ngayon, gusto ko kasing mag print ng data, gamit yung datareport,
dapat maprint yung name nila and other info, pero, gusto ko po ndi lang isang info yung mareretrieve nya,
balak ko po kasing atleast 4 na person yung mailagay sa datareport eh, kaso nung tinry ko, isang data lang nakukuha nya,
yung picture po na inatach ko yung gusto kong mangyari, yung magkakaiba po ng info, di ko din nga po sure kung pano magprint ng maramihan, madami po kasing employee yung company na kinuha namin, adodb po yung gamit kong connection and vb6 gamit ko po,View attachment 213243
magulo po ba?XD hahaha.. sorry po, bale tanong nalang po kayo kung sakaling ndi nyo po naintindihan.. salamat po ng marami^^

 

[greenroses]

sir,, may fb kba, usto ko kasing mag pa help sayo eh,,, this pasukan

 

[sherlyngomez18]

good eve po symbianize, samantalahin ko na po pag hingi ng tulong..XD tanung ko lang po kung pano po yung tamang code dito,
mali po kasi yung nilalabas na sagot dun sa gross salary, deduction, and net salary po eh..
ganito po kasi dapat gagawin ng payroll pag click ng cmdcalculate,
salary= days worked * rate per day,
ot salary= ot rate* ot hrs,
(itong part na po kami nagkakaerror)
sssdeduc=sssrate* salary(dapat po .20 or something lang po nakalagay dito, or mas mababa pa.)
sss=salary - sssdeduc
pagibigdeduc=pagibigrate* salary
pagibig=salary- pag ibigdeduc
philhealthdeduc=philhealthrate*salary
philhealth=salary - philheatlhdeduc

gross salary=salary + otsalary
deduction=cashadvance + sss + pagibig + philhealth
netsalary=gross salary- deduction.

bale dun po kami nagkakaprob dun sa sss,pagibig and philhealth,
calculation lang po yung prob sa payroll namin,
sana po may makatulong, salamat po sa makakatulong..^^
more power pa po sa symbianize..^^View attachment 213578

 

[knives645]

Goodeve ulit guys.. sorry po sa pangungulit ko ah..XD
bale ito naman po yung prob ko ngayon, gusto ko kasing mag print ng data, gamit yung datareport,
dapat maprint yung name nila and other info, pero, gusto ko po ndi lang isang info yung mareretrieve nya,
balak ko po kasing atleast 4 na person yung mailagay sa datareport eh, kaso nung tinry ko, isang data lang nakukuha nya,
yung picture po na inatach ko yung gusto kong mangyari, yung magkakaiba po ng info, di ko din nga po sure kung pano magprint ng maramihan, madami po kasing employee yung company na kinuha namin, adodb po yung gamit kong connection and vb6 gamit ko po,View attachment 1027169
magulo po ba?XD hahaha.. sorry po, bale tanong nalang po kayo kung sakaling ndi nyo po naintindihan.. salamat po ng marami^^

Hindi kaya ng Datareport ang ganitong approach, better to use Printer Class.
Mano-mano nga lang at hard-coded.

good eve po symbianize, samantalahin ko na po pag hingi ng tulong..XD tanung ko lang po kung pano po yung tamang code dito,
mali po kasi yung nilalabas na sagot dun sa gross salary, deduction, and net salary po eh..
ganito po kasi dapat gagawin ng payroll pag click ng cmdcalculate,
salary= days worked * rate per day,
ot salary= ot rate* ot hrs,
(itong part na po kami nagkakaerror)
sssdeduc=sssrate* salary(dapat po .20 or something lang po nakalagay dito, or mas mababa pa.)
sss=salary - sssdeduc
pagibigdeduc=pagibigrate* salary
pagibig=salary- pag ibigdeduc
philhealthdeduc=philhealthrate*salary
philhealth=salary - philheatlhdeduc

gross salary=salary + otsalary
deduction=cashadvance + sss + pagibig + philhealth
netsalary=gross salary- deduction.

bale dun po kami nagkakaprob dun sa sss,pagibig and philhealth,
calculation lang po yung prob sa payroll namin,
sana po may makatulong, salamat po sa makakatulong..^^
more power pa po sa symbianize..^^View attachment 1027788

Re-visit your computation, kung pano ka mag-compute manually, ganun din dapat sa code.
Baka makatulong po ang link na ito.

 

[clrscr04]

Hindi kaya ng Datareport ang ganitong approach, better to use Printer Class.
Mano-mano nga lang at hard-coded.



Re-visit your computation, kung pano ka mag-compute manually, ganun din dapat sa code.
Baka makatulong po ang link na ito.

ay, ganun ba.. kala ko kaya nya.. hahaha.. salamat po ulit sir knives,
ok na po yung computation ko, yung sa data report nalang talaga.. hahaha..
try kong pag aralan yung printer class.. baka sakaling kayanin.. salamat po ulit sir..^^
goodluck po sa journey nyo..

 

[sherlyngomez18]

Hindi kaya ng Datareport ang ganitong approach, better to use Printer Class.
Mano-mano nga lang at hard-coded.



Re-visit your computation, kung pano ka mag-compute manually, ganun din dapat sa code.
Baka makatulong po ang link na ito.

Salamat po sir knives..^^ akala ko po di na kayo babalik..XD
ingat po lage.. thanks ulit..^^

- - - Updated - - -

ay, ganun ba.. kala ko kaya nya.. hahaha.. salamat po ulit sir knives,
ok na po yung computation ko, yung sa data report nalang talaga.. hahaha..
try kong pag aralan yung printer class.. baka sakaling kayanin.. salamat po ulit sir..^^
goodluck po sa journey nyo..

bwisit ka christian..-_-

 

[balmes022]

gud am po, baka meron kau n warehousing inventory system. nid q lng po..
[email protected] po email q..thanks in advance

 

[Eclaindy]

gud Pm po sir,
patulong ako sana ako kung anung pwdeng code gamitin dito sa project ko...

Amount = (if amount =< to "minamount" else if amount => to "maxamount" then "Payment")

View attachment 213659

ung Min at Max data po kase hanggang 2M,

kuha po ba sir?

ty..advance

 

[chriszer109]

Goodeve ulit guys.. sorry po sa pangungulit ko ah..XD
bale ito naman po yung prob ko ngayon, gusto ko kasing mag print ng data, gamit yung datareport,
dapat maprint yung name nila and other info, pero, gusto ko po ndi lang isang info yung mareretrieve nya,
balak ko po kasing atleast 4 na person yung mailagay sa datareport eh, kaso nung tinry ko, isang data lang nakukuha nya,
yung picture po na inatach ko yung gusto kong mangyari, yung magkakaiba po ng info, di ko din nga po sure kung pano magprint ng maramihan, madami po kasing employee yung company na kinuha namin, adodb po yung gamit kong connection and vb6 gamit ko po,View attachment 1027169
magulo po ba?XD hahaha.. sorry po, bale tanong nalang po kayo kung sakaling ndi nyo po naintindihan.. salamat po ng marami^^

hi po....mukhang mahirap yan sa datareport..d ko pa kc na-try ang ganyang format... mostly sa crystal report ok yang gawin...

Hmm..kung gus2 mu talagang gumamit nang datareport...gamit ka po nang temp table..dun mu po i-save ang gus2ng format na gawin nya...