1. Welcome to PHCorner Forums. Take a moment to Sign up and gain unlimited access and extra privileges that guests are not entitled to, such as:

    All that and more! Registration is quick, simple and absolutely free. Join our community today!

Help Visual basic 6.0 + ms access

Discussion in 'Coding, Programming' started by sweetkeiyz, Aug 21, 2016.

  1. sweetkeiyz

    sweetkeiyz Enthusiast Established

    Pa hingi ng magandang program gamit visual basic 6.0 + database MS access :)
    Thank you
     
  2. henjie

    henjie Forum Expert Established

  3. simple pro ko ya sa 1st year,, gawin molng guide para sa mga design mo,,
     

    Attached Files:

    You must or Register to view Attachment.
    sweetkeiyz likes this.
  4. sweetkeiyz

    sweetkeiyz Enthusiast Established

    thank you for this bro
     
  5. np,,
    ask klng,,, baka makatulong ako,,
     
  6. sweetkeiyz

    sweetkeiyz Enthusiast Established

    how about yung merun ng seacrh button bro ?
     
  7. Private Sub Command1_Click()
    Adodc2.RecordSource = " select * from Tablenae where Fieldaname = " & Text1.Text & ""
    If Adodc2.Recordset.EOF = True Then
    MsgBox "Record not found"
    Else
    DataGrid1.datasource = Adodc2.recordsource
    DataGrid1.Refresh
    End If
    End Sub

    sa datagrid yan tol,, alam mo namn cguro pano mag connect
     
  8. sweetkeiyz

    sweetkeiyz Enthusiast Established

    oo alam ko peru yung search box na mean ko ay yung dun lalabas kung saan ka nag input ng name gender age birthday ganun xD
     
  9. Private Sub cmdCancel_Click()

    txtSerialNo.Text = ""
    txtName.Text = ""
    txtSurname.Text = ""
    txtSex.Text = ""
    txtAddress.Text = ""
    txtCity.Text = ""
    txtZipCode.Text = ""
    txtContactNo.Text = ""
    txtOccupation.Text = ""
    txtFamilyMembers.Text = ""
    txtAppliedOn.Text = ""
    txtNoCylinder.Text = ""
    txtTypeConnection.Text = ""

    End Sub

    Private Sub cmdSearch_Click()

    txtSerialNo.Enabled = True
    txtName.Enabled = True
    txtSurname.Enabled = True
    txtSex.Enabled = True
    txtAddress.Enabled = True
    txtCity.Enabled = True
    txtZipCode.Enabled = True
    txtContactNo.Enabled = True
    txtOccupation.Enabled = True
    txtFamilyMembers.Enabled = True
    txtAppliedOn.Enabled = True
    txtNoCylinder.Enabled = True
    txtTypeConnection.Enabled = True

    If txtSerialNo.Text = "" Then
    MsgBox " Please enter Serial No to search "
    Exit Sub

    Else
    With Adodc1
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\GASAGENCYdb.mdb"
    .RecordSource = "Select * from CustomerDetails Where SerialNo = " & txtSerialNo.Text
    .Refresh
    End With

    If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then
    MsgBox " No Record Found "
    txtSerialNo.Text = ""
    Exit Sub

    Else

    txtName.Text = Adodc1.Recordset.Fields(1)
    txtSurname.Text = Adodc1.Recordset.Fields(2)
    txtSex.Text = Adodc1.Recordset.Fields(3)
    txtAddress.Text = Adodc1.Recordset.Fields(4)
    txtCity.Text = Adodc1.Recordset.Fields(5)
    txtZipCode.Text = Adodc1.Recordset.Fields(6)
    txtContactNo.Text = Adodc1.Recordset.Fields(7)
    txtOccupation.Text = Adodc1.Recordset.Fields(8)
    txtFamilyMembers.Text = Adodc1.Recordset.Fields(9)
    txtAppliedOn.Text = Adodc1.Recordset.Fields(10)
    txtNoCylinder.Text = Adodc1.Recordset.Fields(11)
    txtTypeConnection.Text = Adodc1.Recordset.Fields(12)

    End If
    End If

    End Sub


    ok na..
     
    sweetkeiyz likes this.
  10. hanap ka bro sa planetsourcecode.com dami jan choices
     
  11. sweetkeiyz

    sweetkeiyz Enthusiast Established

    ayaw tol eh .. debug
     
Tags / Keywords: