LLBLGen 3.0
selfserv
I am trying to populate a sales database in an sql server named "TEXTBOX1" with the data from a user selected ACCESS database.
In the code below the user selected to populate "CLOV7Sales". I created the LLBLGen code using a database named "StoreSales".
Each store has it's own sales database, so I will have about 9 more databases such as EA10Sales, EA15Sales.
When I execute the following code the "StoreSales" database gets populated. What am I missing?
'set then connection string based on selections
StoreSalesDAL.DaoClasses.CommonDaoBase.ActualConnectionString = "data source=" & ComboBox1.Text & ";initial catalog=" & ComboBox2.Text & ";integrated security=SSPI;persist security info=False;packet size=4096"
StoreSalesACCESS.DaoClasses.CommonDaoBase.ActualConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Label3.Text & ""
Try
'load the CustByClassByDay table
Dim CCDc As New StoreSalesDAL.CollectionClasses.CustByClassByDayCollection
totrecords = CCDc.GetDbCount()
If totrecords = 0 Then
Dim CCDac As New StoreSalesACCESS.CollectionClasses.CustByClassByDayCollection
CCDac.GetMulti(Nothing)
If CCDac.Count > 0 Then
For i = 0 To CCDac.Count - 1
Dim CCD As New StoreSalesDAL.EntityClasses.CustByClassByDayEntity
CCD.StoreID = CCDac.Item(i).StoreID
CCD.Register = CCDac.Item(i).Register
CCD.SlsClass = CCDac.Item(i).SlsClass
CCD.SlsDate = CCDac.Item(i).SlsDate
CCD.CC1 = CCDac.Item(i).CC1
CCD.CC2 = CCDac.Item(i).CC2
CCD.CC3 = CCDac.Item(i).CC3
CCD.NumCust = CCDac.Item(i).NumCust
CCD.Save()
Next
End If
End If
...
...
...
This is the result of setting the actualconnectionstring for the StoreSalesDAL
"data source=TESTBOX1;initial catalog=CLOV7Sales;integrated security=SSPI;persist security info=False;packet size=4096"
This is the result of setting the actualconnectionstring for the StoreSalesACCESS
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ggphoDATA\CLOV7Sales.MDB"