Exclusively for Visual Basic 6.0 Programmers Only!

[alundra120]

ok na... nakaapekto ata nung nilagyan ko ng vbmodal yung frmDetail.Show eh...

pero thanks na rin sa tip!

 

[ericgmejia]

kuya patulong po sa inventory, pano po ba maipopost po sa inventory namin kung ilan ung nabawas na products. received products lang po kasi ung nagawa namin.

Thanks po

Dapat may transaction table ka, i save mo dun kung ilan yung ibabawas or pumasok, then update the actual count dun sa Items table mo.

Transaction Table
TranCode=ItemCode======Date=========RefNo=====User===Quantity===LastQty

RECEIVE ==ITEM001======03/17/2010====101000====ikaw====100=====0
SALES====ITEM001======03/18/2010====101010====ikaw====10======100
RECEIVE ==ITEM001======03/18/2010====101020====ikaw====20======90
SALES====ITEM001======03/18/2010====101030====ikaw====10======110
SALES====ITEM001======03/18/2010====101040====ikaw====10======100

If you query the total RECEIVE and total SALES and subtract them,
makukuha mo ang actual count.
Then pde ka pa mag add ng ibang TranCode like ADJUST (dagdag), RETURN (bawas), etc

Actually may Header table pa yan kung batch ang transaction

Pag may transaction table ka, may history ka ng galaw ng quantity,
so maski palitan mo yung Quantity na nasa Item Master
ito parin ang countercheck mo, so walang daya.

That is data security. May check and balance.

 

[Lean23]

sir patulong nman poh dko poh tlga magets ung bubble sort in ascending order s visual basic eh nid poh ng 10 arrays,tom npoh kc ung submission non eh,.dpoh kc tinuro smin un pnphanap lng poh tlga s internet,.,sir pls. poh pagaaralan ko nmn poh un eh,wla lng poh tlga ko idea s ngayon....pls.

 

[Lean23]

kng cno man poh nkakaalm pls. help...

 

[Lean23]

sir cge npoh pahelp na bday gift mo npoh skin un. pls.

 

[ericgmejia]

elow poh can someone help me,,. my pinpgwa poh xe program smin ung prof nmin sa visual basic 6.0 ggwa poh ng 10 arrays tpos mgeenter dw ng 10 no. in any order (ex. 1,3,6,9,8,7,5,4,2,10) ngaun poh pg cnlick ung command button laalabas sa form load ung kung ano ung pgkakasunod sunod na nilgay moh, at sa isang command button nmn poh ung dapat lumabas na sa form load un g sunod suno na no.(ex. 1,2,3,4,5,6,7,8,9,10) .sana poh ,my tumulong kylangfan npoh gang friday eh.

kng cno man poh nkakaalm pls. help...

sir patulong nman poh dko poh tlga magets ung bubble sort in ascending order s visual basic eh nid poh ng 10 arrays,tom npoh kc ung submission non eh,.dpoh kc tinuro smin un pnphanap lng poh tlga s internet,.,sir pls. poh pagaaralan ko nmn poh un eh,wla lng poh tlga ko idea s ngayon....pls.

Sabi ko naman po idaan mo yung array sa Sorting Algorithm diba,
saka di naman kita pinapagawa ng bubble sort, i gave you a link to copy
yan din ginamit ko dyan, no need to code

eto ang code pero di ko na nilagay yung pag input, kaw na bahala dun, hardcoded ang values, so figure it out kung papano kunin ang input, i replied na sayo on hpw to do it

Option Explicit

Dim xArray(9) As Integer

Private Sub Form_Load()
'hard coded ang laman ng array mo, modify it para mag accept ng input from keyboard. thats your job na. 
    xArray(0) = 1
    xArray(1) = 3
    xArray(2) = 6
    xArray(3) = 93
    xArray(4) = 8
    xArray(5) = 77
    xArray(6) = 5
    xArray(7) = 47
    xArray(8) = 2
    xArray(9) = 10
End Sub


'Command Button to [cmdSort]
'print lang sa Immediate Window (CTRL+G) para makita ang result na sorted na, yan ang "Debug.Print xxxx
Private Sub cmdSort_Click()
    Dim n As Integer
'print the initial
    For n = 0 To 9
        Debug.Print "Old Element " & n & " = " & CStr(xArray(n))
    Next
    'ito lang po yung sinasabi kong idaan sa sorting algorithm
    BubbleSort xArray, 9, False
    '--------------------------------------------------------------------

'print the result
    For n = 0 To 9
        Debug.Print "Element " & n & " = " & CStr(xArray(n))
    Next

End Sub

'ito yung Sorting Code, binigyan kita ng link, look it up para malaman mo how it works
'swapping lang ng values na magkatabi hangang umangat yung lowest, thats why bubble sort
Sub BubbleSort(arr As Variant, Optional numEls As Variant, Optional descending As Boolean)
    Dim value As Variant
    Dim index As Long
    Dim firstItem As Long
    Dim indexLimit As Long, lastSwap As Long
    If IsMissing(numEls) Then numEls = UBound(arr)
    firstItem = LBound(arr)
    lastSwap = numEls
    Do
        indexLimit = lastSwap - 1
        lastSwap = 0
        For index = firstItem To indexLimit
            value = arr(index)
            If (value > arr(index + 1)) Xor descending Then
                arr(index) = arr(index + 1)
                arr(index + 1) = value
                lastSwap = index
            End If
        Next
    Loop While lastSwap
End Sub

i hope you do your job din po so you can learn it better.
good luck

 

[Lean23]

tnx poh,..idol

 

[timothy_0017]

. . . .help puh please. . .

. . . .how to save the data from MSHFlexgrid into my table of database?. . . .

. . . .tnx puh. . . .

 

[ericgmejia]

. . . .help puh please. . .

. . . .how to save the data from MSHFlexgrid into my table of database?. . . .

. . . .tnx puh. . . .

An sipag mo mag post ng pare-pareho tol ah, ingat ka baka ma-warning ka ng mga MODS.
Sinipagan mo nalang sana mag google.

Anyway, pag MSHFlexgrid which is not databound,
you need to do it
Row by row, column by column.

Nakapag read ka from DB to FlexGrid so i assume alam mo na magsave using ADO.
You can read naman yung laman ng cells (Column/Row) like a variable, so pde sya i save sa db.

Save the First Row and its columns sa database then
move sa next row, ganun din gawin mo.
Loop hanganga sa dulo ng grid.

Ganun lang ka-simple po. No need to post sa lahat ng thread.

 

[webian]

listview can only show the content of the database in a grid view... if you want to connect and object in database use datagrid or flexgrid...

kung ang purpose mo lang naman is idisplay ang content ng query mo from database... you can use listview..

1st import mo muna yung component sa toolbox mo.. tapos add mo sa form..

DBMS used: Microsoft Access
sample DB: dbStudent
sample Table: tblStudProfile
sample fields:
studno text
fname text
lname text
mname text
course text
year text
Objective: display all the content of tblStudProfile in listview
Component required:
listview (lvStud)
command (cmdGo)
Source Code:
dim cnn as new ADODB.Connection
dim rst as new ADODB.Recordset
dim count as integer
dim ctr as integer

cnn.open "dsn=sample;userid=sa;pwd=;database=dbStudent"
rst.open "SELECT * FROM tblStudProfile",cnn,3,3,1
count = lvStud.items.count
ctr = 0
while not(rst.eof)
lvstud.listitems(ctr).add(rst!studno)
lvstud.listitems(ctr).subitems(1) = rst!fname
lvstud.listitems(ctr).subitems(2) = rst!lname
lvstud.listitems(ctr).subitems(3) = rst!mname
wend
rst.close
cnn.close

maraming salamat po sa buong info..

 

[webian]

kuya eric alam nyo pu ba ung automatically save ng data sa database..

may problem po kasi na kapag nag power failure. dapat mag auto save..

har har di ko magets kung paano ku gagawin/ sisimulan... haixt.. pa elp...

 

[ericgmejia]

kuya eric alam nyo pu ba ung automatically save ng data sa database..

may problem po kasi na kapag nag power failure. dapat mag auto save..

har har di ko magets kung paano ku gagawin/ sisimulan... haixt.. pa elp...

No need for that, natural pag di mo naclick ang SAVE e di hindi na save yun, make sure lang na short duration ang mga update/insert transactions para di masira ang database.

Bottomline, nasa desgin ng GUI at database naman yan, observe mo yung GUI mo kung saan dapat i save ng maaga ang mga transactions at dun mo i-improve.

Ang application na may autosave ay na sa-save sa text file, like XML format or sa isang temporary table, periodic yun, say 5mins interval, like sa msword, then pagkasave mo sa database, i delete nya yung temporary storage file.

On the other hand, medyo delikado rin ang autosave in sensitive applications like sa financials, so timbangin mo ang options mo.

 

[QuiescentPoint]

Having a virtual Serial Port means pwede na mag communicate ang dalawang GUI App mo via the internal virutal serial port,
not the physical microcontroller,
the point of this is para matest mo muna ang code mo pag wala sa tabi mo ang microcontroller.
I use that for learning and preliminary testing of my codes nung ginagawa ko yung message protocol para sa isang serial device,
which is not available pag nasa bahay ako.
In a way parang may simulator ka.

No need to use Virtual port pag sa actual MCU.

the
MSComm1.Output "message"
command will send the data (pde string or binary) to the port, thereby to the MCU, assuming your serial port is open and proper settings are applied.

The Sender sample i gave you will do that,
i-merge mo yung sa Recieve sample para sa complete 2 way communications.

ah. ok po kuya. sensya na di ko talaga gamay vb6.. hehe. anyway, tnx po.

 

[dlegendkiller]

1) Download/install the free ODBC Driver from MySQL website (link below).

2) Use a connection string from.
http://www.connectionstrings.com/?carrier=mysql

like this
Driver={mySQL};Server=myServerAddress;Port=3306;Option=131072;Stmt=; Database=myDataBase; User=myUsername;Password=myPassword;

or

Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=myDataBase; User=myUsername;Password=myPassword;Option=3;

3)I'm assuming you know ADODB and how to create connection objects. Same way you do sa Access or SQLServer, connectionstring lang ang maiiba.

sir i am using xampp for mysql, wat if wala nang xampp ung paglalagyan ko ng program? ok lang po ba?

natest ko na po ung connection, ok na sya, so pano na po ako magquequery?

for example, may text box ako for my name, then gusto ko iretrieve mula sa database ko ung name,

txtname.text = Select name from table where name = "donald"

ganun po ba?

 

[pnxstan23]

gamit ka po candy button..

sir san po ko makakakita nun?..thanks in advanced

[email protected]

 

[ericgmejia]

sir i am using xampp for mysql, wat if wala nang xampp ung paglalagyan ko ng program? ok lang po ba?

and what if ung default password ang gamit ko which is ""?

basta may mySQL server na naka install, i configure mo lang mabuti.

 

[dlegendkiller]

adodc pala nagamit ko sir, bakit d ko ata makita ung adodb? pahelp naman po sir

nacheck ko na ung "Microsoft ADO EXT. 2.8 for DLL and Security"

so ano na po sunod?

ym ko po: [email protected]

 

[ericgmejia]

adodc pala nagamit ko sir, bakit d ko ata makita ung adodb? pahelp naman po sir

nacheck ko na ung "Microsoft ADO EXT. 2.8 for DLL and Security"

so ano na po sunod?

ym ko po: [email protected]

tignan mo nalang yung sample ko dito
http://symbianize.com/showthread.php?t=163979

change the connection string para sa mySQL,
then create or import the tables into mySQL database.
tapos ok na yan


tignan mo kung ano naka reference

 

[dlegendkiller]

d po ba pwedeng sa form load ko iconnect ung db?

 

[webian]

No need for that, natural pag di mo naclick ang SAVE e di hindi na save yun, make sure lang na short duration ang mga update/insert transactions para di masira ang database.

Bottomline, nasa desgin ng GUI at database naman yan, observe mo yung GUI mo kung saan dapat i save ng maaga ang mga transactions at dun mo i-improve.

Ang application na may autosave ay na sa-save sa text file, like XML format or sa isang temporary table, periodic yun, say 5mins interval, like sa msword, then pagkasave mo sa database, i delete nya yung temporary storage file.

On the other hand, medyo delikado rin ang autosave in sensitive applications like sa financials, so timbangin mo ang options mo.

ganun po ba salamat po sa info...