Hello,
I'm kinda new in VB 6.0. Let me explain the "problem". I work in a company that owns a supermarket chain. The payments for the aquisition of the merchandise is made at the home-office. The bills come at the supermarket locations.The software that records all the bills from the suppliers, installed in all the supermarket locations exports a dbf file wich contains the necesary information for the payments to be done. I want to write a program that enables the user to append the records from the dbf's daily into a global dbf file. Is it possible? Can anyone help me on this with a suggestion, or a link perhaps? 10x a lot
Reply With Quote
Hello,
This is the source code for the app so far. I use Microsoft Visual FoxPro OLE DB provider for the connection to be done.
Now I'm stuck on appending records from the .dbf from the supermarkets into a global dbf. To give a clear ideea of what I worked so far i'll give you the code. I wrote some comments for a clearer picture.


    'Author: Nedelea Ionutz
    'Company: SC IVET COMPROD SRL
    'Project name: Bexport/Import
    'Description: Headoffice bills payment solution
    'Location: Bucharest, Romania


    Private Sub cmdAppend_Click()
    'Triggers the common dialog box to fetch a dbf file
    With cdlgDBF
    .DialogTitle = "Cauta fisier DBF"
    .Flags = FileOpenConstants.cdlOFNPathMustExist Or FileOpenConstants.cdlOFNHideReadOnly
    .Filter = "Fisiere FoxPro (*.dbf)|*.dbf"
    .FileName = ""
    .FilterIndex = 1
    .ShowOpen
    End With
    'From now the click event of the cmdAppend button should append the records from the dbf
    'I selected with the common dialog box "cdlgDBF" to the adodc1.recordset
    'from this point on i'm lost

    End Sub
    'A command button cmdRaport that triggers a datareport to be shown
    Private Sub cmdRaport_Click()
    'Bind the datareport textboxes with the values
    With DataReport1.Sections("Section1").Controls
    .Item("txtPartener").DataField = Adodc1.Recordset("partener").Name
    .Item("txtData").DataField = Adodc1.Recordset("data").Name
    .Item("txtValCTVA").DataField = Adodc1.Recordset("ctva").Name
    End With


    Set DataReport1.DataSource = Adodc1.Recordset
    DataReport1.Show


    End Sub

    Private Sub DataGrid1_Click()
    'Afisarea inregistrarilor in textbox
    With Adodc1.Recordset
    txtMagazin.Text = !mag
    txtPartener.Text = !partener
    txtNrDocFurn.Text = !nrdocfurn
    txtValCTVA.Text = !ctva
    txtValfTva.Text = !ftva
    End With

    End Sub

    'Data sort ascending/descendig procedure triggered by the click event of the
    'column header of the datagrid
    Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    'Declare the variables
    Dim strColName As String
    Static bSortAsc As Boolean
    Static strPrevCol As String

    strColName = DataGrid1.Columns(ColIndex).DataField

    If strColName = strPrevCol Then

    If bSortAsc Then
    Adodc1.Recordset.Sort = strColName & " DESC"
    bSortAsc = False
    Else
    Adodc1.Recordset.Sort = strColName
    bSortAsc = True
    End If

    Else
    Adodc1.Recordset.Sort = strColName
    bSortAsc = True
    End If
    strPrevCol = strColName
    End Sub