Flexgrid data to access

[brendanmcdonagh]

Hi, I have today completed my first ever program for a friend which displays total hours worked for each day then adds them up.

Now I want to transfer this data to store in access. I did do a sample kind of thing last week with flexgrid which worked but i didn't write code! Itshowed me how to use this procedure but I have only gotten so far with this.

So what I have so far in flexgrid is the start time, end time and total hurs which I just want to transfer to access.

After a few hours searching I need help!

Could anyone help me please? Very limited knowledge on access but fast learner!

Thanks for reading

Brendan

 
MSFlexGrid1.TextMatrix(1, 0) = Format((DTPickersunstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 0) = Format((DTPickermonstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 0) = Format((DTPickertuesstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 0) = Format((DTPickerwedsstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 0) = Format((DTPickerthursstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 0) = Format((DTPickerfristart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 0) = Format((DTPickersatstart.Value), "DD-MM-YY HH:nn")
 
MSFlexGrid1.TextMatrix(1, 1) = Format((DTPickersunend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 1) = Format((DTPickermonend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 1) = Format((DTPickertuesend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 1) = Format((DTPickerwedsend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 1) = Format((DTPickerthursend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 1) = Format((DTPickerfriend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 1) = Format((DTPickersatend.Value), "DD-MM-YY HH:nn")
 
MSFlexGrid1.TextMatrix(1, 2) = Lblsunsubtotal.Caption
MSFlexGrid1.TextMatrix(2, 2) = lblmonsubtotal.Caption
MSFlexGrid1.TextMatrix(3, 2) = lbltuessubtotal.Caption
MSFlexGrid1.TextMatrix(4, 2) = lblwedssubtotal.Caption
MSFlexGrid1.TextMatrix(5, 2) = lblthurssubtotal.Caption
MSFlexGrid1.TextMatrix(6, 2) = lblfrisubtotal.Caption
MSFlexGrid1.TextMatrix(7, 2) = lblsatsubtotal.Caption
 
 

[Dököll]

Hi, I have today completed my first ever program for a friend which displays total hours worked for each day then adds them up.

Now I want to transfer this data to store in access. I did do a sample kind of thing last week with flexgrid which worked but i didn't write code! Itshowed me how to use this procedure but I have only gotten so far with this.

So what I have so far in flexgrid is the start time, end time and total hurs which I just want to transfer to access.

After a few hours searching I need help!

Could anyone help me please? Very limited knowledge on access but fast learner!

Thanks for reading

Brendan

 
MSFlexGrid1.TextMatrix(1, 0) = Format((DTPickersunstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 0) = Format((DTPickermonstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 0) = Format((DTPickertuesstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 0) = Format((DTPickerwedsstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 0) = Format((DTPickerthursstart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 0) = Format((DTPickerfristart.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 0) = Format((DTPickersatstart.Value), "DD-MM-YY HH:nn")
 
MSFlexGrid1.TextMatrix(1, 1) = Format((DTPickersunend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(2, 1) = Format((DTPickermonend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(3, 1) = Format((DTPickertuesend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(4, 1) = Format((DTPickerwedsend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(5, 1) = Format((DTPickerthursend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(6, 1) = Format((DTPickerfriend.Value), "DD-MM-YY HH:nn")
MSFlexGrid1.TextMatrix(7, 1) = Format((DTPickersatend.Value), "DD-MM-YY HH:nn")
 
MSFlexGrid1.TextMatrix(1, 2) = Lblsunsubtotal.Caption
MSFlexGrid1.TextMatrix(2, 2) = lblmonsubtotal.Caption
MSFlexGrid1.TextMatrix(3, 2) = lbltuessubtotal.Caption
MSFlexGrid1.TextMatrix(4, 2) = lblwedssubtotal.Caption
MSFlexGrid1.TextMatrix(5, 2) = lblthurssubtotal.Caption
MSFlexGrid1.TextMatrix(6, 2) = lblfrisubtotal.Caption
MSFlexGrid1.TextMatrix(7, 2) = lblsatsubtotal.Caption

Hello Brendan!

Welcome to The Scripts...

You would have eventually found this. But here's an example that should help you add to an access database:

 
Private Sub SubmitToAccess_Click()   'this funtion will load entry to database
 
        Dim my_database As Database
        Set my_database = OpenDatabase("C:\DataMining\Data_Central.mdb")
        my_database.Execute "insert into Data_Central.Employee(UserID, EmployeeID, TodayDate, DOB,Title,Fname,Mname,Lname,Suffix, Address1,Address2,City,State,PostalCode,Country,Gender,MaritalStatus,HomePhone,MobilePhone,Fax,Email,LicenseNum,Day,Month,Year,County) Values('" & Text1(0).Text & "','" & Text1(1).Text & "' , '" & Text1(2).Text & "' , '" & Text1(3).Text & "','" & Text1(4).Text & "' , '" & Text1(5).Text & "' ,'" & Text1(6).Text & "' ,'" & Text1(7).Text & "' ,'" & Text1(8).Text & "' ,'" & Text1(9).Text & "' ,'" & Text1(10).Text & "' ,'" & Text1(11).Text & "' ,'" & Text1(12).Text & "','" & Text1(13).Text & "' ,'" & Text1(14).Text & "' ,'" & Text1(15).Text & "' ,'" & Text1(16).Text & "' ,'" & Text1(17).Text & "' ,'" & Text1(18).Text & "' ,'" & Text1(19).Text & "' ,'" & Text1(20).Text & "' ,'" & Text1(21).Text & "' ,'" & Text1(22).Text & "','" & Text1(23).Text & "','" & Text1(24).Text & "','" & Text1(25).Text & "')"
        my_database.Close
    R_Click
 
End Sub
 
 

I copied and paste from an application example built for class ages ago:

(1) UserID, EmployeeID, TodayDate and so on are fields your access database should have.

(2) & Text1(0).Text & "','" & Text1(1).Text & "' , '" & Text1(2).Text & "' , '" & Text1(3).Text & "', are fields on your VB form. So what ever Flexgrid added to your form you can send to access. In which case you'd need Label1(0), and so on instead of Text1(0)...

Please tell us if this works, and stay tuned for added support if needed.

In a bit, Brendan!

Dököll

[9815402440]

hi


try this

dim rst as new adodb.recordset
dim cnn as new adodb.connection

with cnn
.Provider = "MsDataShape"
.Properties("Data Provider") = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = "c:\Data.mdb"
.Open

end with
rst.Open "select * from table",cnn
dim i as integer
with flexGrid
for i = .fixedrows to .rows-1
rst.addnew
rst.fields("field0").value = .textmatrix(i,0)
rst.fields("field1").value = .textmatrix(i,1)
'''' and so on
next
end with
rst.update


regards
manpreet singh dhillon hoshiarpur

[brendanmcdonagh]

Thanks People,

I need To go out so ill try this afternoon,

Thanks again,

Any input on how to add fields in access would be helpful, I read somewhere it has to be converted to access 97 file???

Brendan

[brendanmcdonagh]

I'm not understanding this very well, like whats my_database? Is that a name for a control I need to add, Ireally am a novice at this and if you have the time a little slower and i'll be flying!!

I'll keep trying to save your time.

Thanks

Brendan

[brendanmcdonagh]

Solved - Thanks for initial input

Brendan