Exclusively for Visual Basic 6.0 Programmers Only!

[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.

gawa ka po mung ng inital code mo, saka natin ayusin, dont expect na members dito ang gagawa ng assignment mo para sayo.

try to write the code as you understood it.

Eto ang steps dyan.

Define an array of 10 elements
Define an array counter
Set counter to zero

On a button click event, show an input box to accept your input
assign this input to the first member of the array using counter as index ====ZArray(counter) = input from input box
Increment counter === counter = counter + 1
click the button again to accept the next input
repeat this until counter reaches 10


when you have all the 10 inputs, display mo na yung mga inputs
Print ZArray(0)
Print ZArray(1)
Print ZArray(2)
......

run ithe array thru a sorting algorithm
ipinagpapalit lang nya yung mas mababa kes mas mataas until masort lahat ng laman

then i display mo ulit yung sorted array


that should be the steps, now try mo muna i code po yan, then ayusin natin para makita mo kung saan ka nagkamali.

 

[Lean23]

tnx poh,ask ko lng poh buble sort poh ba ung tawag s program na un?

 

[ericgmejia]

tnx poh,ask ko lng poh buble sort poh ba ung tawag s program na un?

try mo to for array sorting
http://www.devx.com/vb2themax/Tip/18972

 

[Sputnik22]

pa mirror naman po sa mf

 

[Bessy0608]

@ericgmejia: otor slamat s respond.. ero nka-attach is the latest.. ero gnun p rin po khit tnggalin q ung combox at pinalitn ng buttons gnun p rin tpos balak q p sana lgyan ng scheduling ero kpg my error p aq s search, d aq mka-move.. hehe.. attachment po s iba2..

 

[ericgmejia]

@ericgmejia: otor slamat s respond.. ero nka-attach is the latest.. ero gnun p rin po khit tnggalin q ung combox at pinalitn ng buttons gnun p rin tpos balak q p sana lgyan ng scheduling ero kpg my error p aq s search, d aq mka-move.. hehe.. attachment po s iba2..

anong form yung code mo kanina? di ko makita

Ate, nag research po ba kayo sa simbahan about this?
may mga issues kasi dito

kung magpapabinyag ka ba balewala kung sino ang parents?
walang parents sa bibinyagan, ano yan singaw?
sponsor wala din, pero naglalagay ka sa printout tapos di naka record.

sa references mo, may Access Objects, may DAO, may ADO 2.0, ano ba talaga?


ganun din sa wedding. walang parents

bigyan nyo nalang ako ng process flow at gawa tayo ng mas malinis na design

 

[Bessy0608]

@ericgmejia: sori po otor, noob p lng po kc aq dian.. ung about po s reference, d q po ginlaw un bka po ung una q pong pingtanungan n gumlaw s program q.. un nga rin po dadagdgan q rin po sna ng parents at godparents ero try q po muna po ung less info.. Ga2win q rin po tlgang kumpleto po yan..

 

[snorli]

pano po sa vb6 pag may ginagamit ka activex o ocx tapos pag ioopen mo yung project kelangan i add mo muna sa components tapos close mo tapos oopen mo ulit para wala nang error?pano po yung kahit ilipat mo xa ng location hindi mo na kylangan iadd pa yung components kusa na andon?

 

[ericgmejia]

pano po sa vb6 pag may ginagamit ka activex o ocx tapos pag ioopen mo yung project kelangan i add mo muna sa components tapos close mo tapos oopen mo ulit para wala nang error?pano po yung kahit ilipat mo xa ng location hindi mo na kylangan iadd pa yung components kusa na andon?

Gawa ka installer sa Package and Deployment Wizard
para every installation kasama na ang activex mo, o kaya make sure naka install na at registered ang activex beforehand sa machine.

 

[jeniel]

Datareport is a static presentation ng data,pag napakita mo na ang report, wala na yan pakialam sa database sa likuran, you have to show the report again para makita mo ang changes.

so wala ng ibang way para maupdate yung mga data na didisplay sa report kundi close open lang?

 

[ericgmejia]

so wala ng ibang way para maupdate yung mga data na didisplay sa report kundi close open lang?

Print the report on paper. Then update the database::
do you expect na ma update yung hawak mong report?

thats what STATIC representation means.

So:
Open / Close ang report para kunin nya sa database ang latest data. simplest logic is the best solution po.

Reports are not meant to be realtime data display tools, kasi STATIC yan, unless you refresh it by reloading new data.
Very similar sa static HTML page, once na load na ang page, wala na sya pakialam maski sumabog na ang server, basta nakadisplay pa rin sakanya kung ano ang huling display nya.

I hope po you get the point on what datareport is all about.

 

[crosvill]

tnx...poh

 

[QuiescentPoint]

eto full documents about MSCOMM ActiveX component, yan ang ginagamit para sa serial programming sa vb6.

di mo yan matest sa PC kung wala kang device, so kung gusto mo ay mag install ka ng Virtual Serial port, search mo nalang sa google.
Gagawa yan ng pair ng virtual ports para makapagusap ang programs mo.

natry ko na po. nakapaginstall na po ako ng virtual serial port. from here magkakaroon na po ng communication yung microcontroller at GUI right? tnx po ng marami ulit.

yun po palang MSComm1.Output automatic na po ba nya isesend yun data sa MCU?

 

[dlegendkiller]

pano po iconnect ung VB 6 sa mysql?

 

[havoctribe]

guys meron ba kau na program ng thesis na enrollment system?

 

[ericgmejia]

natry ko na po. nakapaginstall na po ako ng virtual serial port. from here magkakaroon na po ng communication yung microcontroller at GUI right? tnx po ng marami ulit.

yun po palang MSComm1.Output automatic na po ba nya isesend yun data sa MCU?

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.

 

[ericgmejia]

pano po iconnect ung VB 6 sa mysql?

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.

 

[alundra120]

urgent question lang po ulit... yung listview ko, di agad sineselect yung item na cliniclick ko...
delayed siya ng 1 click... bakit po kaya?

Private Function AllBooks()
    With dtaBook
    .Refresh
        With .Recordset
            If .RecordCount = 0 Then
                 Call MsgBox("No Match Found.", vbOKOnly + vbInformation, "Book Information")
            Else
                .MoveFirst
                
                lvwLetter.ListItems.Clear
                
                While Not .EOF
                    Set varList = lvwLetter.ListItems.Add(, , .Fields("book_title"))
                    varList.SubItems(1) = .Fields("isbn")
                    
                    .MoveNext
                Wend
            End If
        End With
    End With
End Function

yan yung function ko para sa paglagay ng items sa form load...
diba automatic na selected ang first item tuwing form_load? bakit kaya la selected pag form load sakin? yung hide selection, false naman...

Private Sub cmdDetail_Click()
    With dtaBook.Recordset
        .MoveFirst
        Do While Not .EOF
            varISBN = .Fields("isbn").Value
            varTitle = .Fields("book_title").Value
            varDate = .Fields("publication_date").Value
            varAuthorLName = .Fields("author_last_name").Value
            varAuthorFName = .Fields("author_first_name").Value
            varCategory = .Fields("category_name").Value
            varIsGroup = .Fields("is_group").Value
            varAmount = .Fields("quantity_in_stock").Value
            
            If lvwLetter.SelectedItem.ListSubItems.Item(1) = varISBN Then
                varIsSearch = True
                Exit Do
            End If
            .MoveNext
        Loop
        If varIsSearch = True Then
            frmDetail.Show vbModal
            
            frmDetail.txtTitle = varTitle
            frmDetail.txtISBN = varISBN
            If varIsGroup = False Then
                frmDetail.txtAuthor = varAuthorLName & ", " & varAuthorFName
            Else
                frmDetail.txtAuthor = varAuthorLName & ", " & varAuthorFName & " et.al."
            End If
            frmDetail.txtCategory = varCategory
            frmDetail.txtDate = varDate
            frmDetail.txtAmount = varAmount
            
            varIsSearch = False
        End If
    End With
End Sub

yan naman yung cmd para icheck kung ano yung selected item tapos ilalagay yung mga items sa txt ng 1 pang form...

 

[ericgmejia]

urgent question lang po ulit... yung listview ko, di agad sineselect yung item na cliniclick ko...
delayed siya ng 1 click... bakit po kaya?

Private Function AllBooks()
    With dtaBook
    .Refresh
        With .Recordset
            If .RecordCount = 0 Then
                 Call MsgBox("No Match Found.", vbOKOnly + vbInformation, "Book Information")
            Else
                .MoveFirst
                
                lvwLetter.ListItems.Clear
                
                While Not .EOF
                    Set varList = lvwLetter.ListItems.Add(, , .Fields("book_title"))
                    varList.SubItems(1) = .Fields("isbn")
                    
                    .MoveNext
                Wend
            End If
        End With
    End With
End Function

yan yung function ko para sa paglagay ng items sa form load...
diba automatic na selected ang first item tuwing form_load? bakit kaya la selected pag form load sakin? yung hide selection, false naman...

Private Sub cmdDetail_Click()
    With dtaBook.Recordset
        .MoveFirst
        Do While Not .EOF
            varISBN = .Fields("isbn").Value
            varTitle = .Fields("book_title").Value
            varDate = .Fields("publication_date").Value
            varAuthorLName = .Fields("author_last_name").Value
            varAuthorFName = .Fields("author_first_name").Value
            varCategory = .Fields("category_name").Value
            varIsGroup = .Fields("is_group").Value
            varAmount = .Fields("quantity_in_stock").Value
            
            If lvwLetter.SelectedItem.ListSubItems.Item(1) = varISBN Then
                varIsSearch = True
                Exit Do
            End If
            .MoveNext
        Loop
        If varIsSearch = True Then
            frmDetail.Show vbModal
            
            frmDetail.txtTitle = varTitle
            frmDetail.txtISBN = varISBN
            If varIsGroup = False Then
                frmDetail.txtAuthor = varAuthorLName & ", " & varAuthorFName
            Else
                frmDetail.txtAuthor = varAuthorLName & ", " & varAuthorFName & " et.al."
            End If
            frmDetail.txtCategory = varCategory
            frmDetail.txtDate = varDate
            frmDetail.txtAmount = varAmount
            
            varIsSearch = False
        End If
    End With
End Sub

yan naman yung cmd para icheck kung ano yung selected item tapos ilalagay yung mga items sa txt ng 1 pang form...

Check your tab index, kung gusto mo selected agad, i set mo sa zero ang tab index ng listview.
did you call Private Function AllBooks() sa Form_Load?

Why do you need to loop through the recordset para lang hanapin ang isang record na selected?
Imagine pag may 100000 records ka at nasa dulo yung selected, antagal nun.
Just get the record that you need, no need to get all then find one record.

Just use a SELECT Query and run it sa isang Recordset
Mas maganda kung ipasa mo lang sa frmDetail yung isbn then
frmDetail will find the rest of the data sa record.
That way, self contained ang frmDetail mo,
isang data lang ang input nya, independent na sya sa ibang from

' this function retrieves a single record from a databsae using a single KEY (ISBN)
'nasa frmDetail to, just pass the isbn and it will read the rest of the data
Private Function ShowBookDetail(sISBN As String) As Boolean
   On Error GoTo ERROR_LINE
    Dim bReturn As Boolean
    Dim sSql As String
    
    'create a query para makuha ang data na gusto mo
    sSql = "SELECT * FROM BooksMaster WHERE isbn= '" & sISBN  & "'"
    'ang english netong sSQL ay "KUNIN LAHAT MULA sa BooksMaster KUNG SAAN ANG ISBN AY sISBN  "
    
    Dim sConn As New ADODB.Connection  'create a connection to the database
    sConn.Open gstrConnectionString 'open the connection; gstrConnectionString = connection string sa database, defined and assigned sa module
    
    Dim rsADO As New ADODB.Recordset 'declare/create a ADODB recordset para paglagyan ng records na galing sa database
    'kasi kukuha tayo sa database, dito natin ilalagay yung makukuha natin
        
    If sConn.State = adStateOpen Then  'check kung bukas na ang connection
        rsADO.Open sSql, sConn, adOpenForwardOnly 'kung ok ang connection, bunutin mo na yung data sa DB using the ADODB.Recordset object
        If Not rsADO.EOF Then 'if not end of file, ibig sabihin meron nakuhang data
            txtTitle.Text = rsADO("book_title")
            txtISBN .Text = rsADO("isbn")
            txtAuthor .Text = rsADO("author_last_name")
            txtCategory .Text = rsADO("category_name")
            txtAmount .Text = Format(rsADO("quantity_in_stock"), "###,##0")
bReturn= true
        End If
    Else
        Err.Raise vbObjectError + 513,"Error opening Connection!" 'ay! di nabuksan ang connection, simulate and error using Err.Raise
    End If
    bReturn = True
EXIT_FUNCTION:
    ShowBookDetail = bReturn 'true ang function pag may nakuhang record based sa ISBN
    Set rsADO = Nothing 'free up memory
    sConn.Close
    Set sConn = Nothing 'free up connection
    Exit Function 'only ONE EXIT POINT, sa isang code lang lalabas ang function na to. dito lang, anu man ang mangyari
ERROR_LINE:
    MsgBox Err.description
    bReturn = False
    Resume EXIT_FUNCTION
End Function

call it from calling form as:

If frmDetail.ShowBookDetail( lvwLetter.SelectedItem.ListSubItems.Item(1)) Then
frmDetail.Show vbmodal
End If

galing sa sample ko yan sa tuturial thread
http://symbianize.com/showthread.php?t=163979
if you compare it, konti lang pinalitan ko from the original code, yun lang SQL query at fields at textboxes
ganyan ka-modular yung code. madali i copy at ilipat, saves time sa coding.

 

[minoon]

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