Dear friend ,iam working on a project in which i have to make a database on 14 columns and then a program in vb to add the new data,delet and find. i have created database and a flexgrid in vb.but the problem is that icant be able to connect the data base with flexgrid.

i request you to please guide me how can i connect the database with flexgrid in the form.and how to code add ,delet and find buttons.

Recommended Answers

All 4 Replies

what are you used to connect? adodb?oledb?adodc control?
also post your code..show some effort first..how far u doing this..

iam want to connect with ADODC,database name is db1.mdb
This is a code of that form .

Private Sub CmdAddEntry_Click()
  'add a new entry to our table.
    With Data1.Recordset
        .AddNew
        !KhataNumber = txtKhataNumber
        !SellerName = txtSellerName
        !TruckNumber = txtTruckNumber
        !Quantity = txtQuantity
        !Gross = txtGross
        !Commision = txtCommision
        !Rent = txtRent
        !Labour = txtLabour
        !ReturnExpense = txtReturnExpense
        !ChamanKharcha = txtChamanKharcha
        !StoreExpense = txtStoreExpense
        !DakPhone = txtDakPhone
        !Manisha = txtManisha
        !TotalExpense = txtTotalExpense
        !Net = txtNet
        .Update
        .Requery
    End With
    Data1.Refresh

    'clear the text fields once the new record is added
   txtKhataNumber = ""
    txtSellerName = ""
    txtTruckNumber = ""
     txtQuantity = ""
      txtGross = ""
       txtCommision = ""
        txtRent = ""
         txtLabour = ""
          txtReturnExpense = ""
           txtChamanKharcha = ""
            txtStoreExpense = ""
             txtDakPhone = ""
              txtManisha = ""
               txtTotalExpense = ""
                txtNet = ""
                 
                 
            
    

End Sub

Private Sub cmdRemoveEntry_Click()
'delete an entry from the database
    With Data1.Recordset
        .Move (MSFlexGrid1.Row - 1) ' we minus one because row zero is the header row
        .Delete
    End With
    Data1.Refresh
    
    'set the focus back to the first add field
    txtKhataNumber.SetFocus

End Sub

Private Sub Form_Load()
'the format string just lets you define a format for how
    'your flexgrid will appear
    MSFlexGrid1.FormatString = "KhataNumber         |" & _
        "SellerName                                 | Net"
    
    'make sure the search path to the db is always in the right spot
    Data1.DatabaseName = App.Path & "\db1.mdb"
    
    'set up the recordsource for the datasource and flexgrid control
    'in this case, it's just a raw SQL query, simple simple.
    Data1.RecordSource = "select * from db1 order by KhataNumber"

End Sub

Private Sub txtDakPhone_Change()

End Sub

Private Sub txtGross_Change()

End Sub

Private Sub txtLabour_Change()

End Sub

Private Sub txtManisha_Change()

End Sub

Private Sub txtSellerName_Change()

End Sub

Private Sub txtTotalExpense_Change()

End Sub

Private Sub txtTruckNumber_Change()

End Sub

here is an update,ihave corrected the database path now when i try to run this form it gives me an error ,*invalid outside procedure*.
here is a code..

À

Private Sub CmdAddEntry_Click()
  'add a new entry to our table.
    With Data1.Recordset
        .AddNew
        !KhataNumber = txtKhataNumber
        !SellerName = txtSellerName
        !TruckNumber = txtTruckNumber
        !Quantity = txtQuantity
        !Gross = txtGross
        !Commision = txtCommision
        !Rent = txtRent
        !Labour = txtLabour
        !ReturnExpense = txtReturnExpense
        !ChamanKharcha = txtChamanKharcha
        !StoreExpense = txtStoreExpense
        !DakPhone = txtDakPhone
        !Manisha = txtManisha
        !TotalExpense = txtTotalExpense
        !Net = txtNet
        .Update
        .Requery
    End With
    Data1.Refresh

    'clear the text fields once the new record is added
   txtKhataNumber = ""
    txtSellerName = ""
    txtTruckNumber = ""
     txtQuantity = ""
      txtGross = ""
       txtCommision = ""
        txtRent = ""
         txtLabour = ""
          txtReturnExpense = ""
           txtChamanKharcha = ""
            txtStoreExpense = ""
             txtDakPhone = ""
              txtManisha = ""
               txtTotalExpense = ""
                txtNet = ""
                 
                 
            
    

End Sub

Private Sub cmdRemoveEntry_Click()
'delete an entry from the database
    With Data1.Recordset
        .Move (MSFlexGrid1.Row - 1) ' we minus one because row zero is the header row
        .Delete
    End With
    Data1.Refresh
    
    'set the focus back to the first add field
    txtKhataNumber.SetFocus

End Sub

Private Sub Form_Load()
'the format string just lets you define a format for how
    'your flexgrid will appear
    MSFlexGrid1.FormatString = "KhataNumber         |" & _
        "SellerName                                 | Net"
    
    'make sure the search path to the db is always in the right spot
    Data1.DatabaseName = App.Path & "\db1.mdb"
    
    'set up the recordsource for the datasource and flexgrid control
    'in this case, it's just a raw SQL query, simple simple.
    Data1.RecordSource = "select * from DailyExpense order by KhataNumber"

End Sub

Try thye following to load data into the msflexgrid control -

Set MSFlexGrid1.Datasource = Data1.Recordsource
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.