Exporting selected data from a model using an aggregates to a dynamically created database to be txferred offiste for an import

i am trying to get a dataset with associated records based on an aggregate (+/- 15 tables), then create the tables in a new mysql database (this part works) I am not creating all the tables Then write the data to the new database using attach() and import()

This is where things are going wrong (i have been using lightspeed for only a few weeks)

any assistance/pointers would be greatly appreciated

i have pasted the relevant vb.net code below

Private Function GetTablename(cName As String) As String Dim retval As String If cName.StartsWith("_") Then retval = cName.Substring(1) Else retval = cName End If If retval.EndsWith("s") Then Return retval.Substring(0, retval.Length - 1) End If Return retval End Function

Private Function AddTable(cName As String) As Boolean If Not (cName.ToUpper.Contains("PORTFOLIO") Or cName.ToUpper.StartsWith("LK")) Then cName = GetTablename(cName) If mExpTables.IndexOf(cName) = -1 Then m_ExpTables.Add(cName) Return True End If End If Return False End Function

Function LookForEntities(passoc As AssociationInfo) As Boolean For Each Ass1 As AssociationInfo In passoc.ChildType.Associations If AddTable(Ass1.FieldName) Then LookForEntities(Ass1) End If Next End Function 'NOTE: ' entityinfo() and assocaitioninfo() are based on the class info (compile time) not the returned entity info (runtime) ' associations sometimes pluralise tablenames ,sometimes not,not predictable , sometimes both occur with and without "s" ' associations.childtype.associations appears to be not recursive structure , so need to maintain list of tables found m_exptables and stop hunting downwards if table already on list ' cannot get tablename from associations metadata so guess singular then plural for table create ' cannot get aggregates info either hence check in addtable() routine based on tablename to exclude

Private Sub tsExportClick(sender As Object, e As EventArgs) Handles tsExport.Click Using dbNet As IntDataUnitOfWork = Context() Dim pRet As Integer = 0 Dim cDb As String Dim Buff As New StringBuilder(dbNet.Context.ConnectionString) Dim ExpTemplate As List(Of ProductTemplate) = (From a In dbNet.ProductTemplates Where a.Id = mProductTemplateId).WithAggregate("ExpTemplate").ToList

  Dim sqltext As New List(Of String)
  Dim ptinfo As EntityInfo
  m_ExpTables = New List(Of String)

  For Each pt As ProductTemplate In ExpTemplate
    ptinfo = pt.EntityInfo()
    For Each Ass1 As AssociationInfo In ptinfo.Associations
      If AddTable(Ass1.FieldName) Then
        LookForEntities(Ass1)
      End If
    Next

  Next

  Using cmd As IDbCommand = dbNet.PrepareCommand(dbNet.Context.DataProviderObjectFactory.CreateCommand())
    cmd.CommandType = CommandType.Text
    cmd.CommandText = "Select database()"
    cDb = cmd.ExecuteScalar.ToString

    sqltext.Add("drop database ExpTemplate")
    sqltext.Add("create database ExpTemplate")
    sqltext.Add("use ExpTemplate")
    For Each sqlcomm As String In sqltext
      cmd.CommandText = sqlcomm
      Try
        pRet = cmd.ExecuteNonQuery()
      Catch ex As Exception
        'nothing
      Finally
        'nothing
      End Try
    Next
    For Each cTab As String In m_ExpTables
      cmd.CommandText = "create table " + cTab + " like " + cDb + "." + cTab
      Try
        pRet = cmd.ExecuteNonQuery()
        Buff.AppendLine("table =" + cTab) 'try tablename in singular
      Catch ex As Exception
        cmd.CommandText = "create table " + cTab + "s like " + cDb + "." + cTab + "s" 'otherwise try tablename in plural
        Try
          pRet = cmd.ExecuteNonQuery()
          Buff.AppendLine("table =" + cTab + "s")
        Catch ex1 As Exception
          'nothing
        Finally
          'nothing
        End Try
      Finally
        'Nothing
      End Try
    Next
    XtraMessageBox.Show(Buff.ToString, "Tables Created", MessageBoxButtons.OK, MessageBoxIcon.Stop)
  End Using
  Using dbNet2 As IntDataUnitOfWork = Context()
    Using cmd As IDbCommand = dbNet2.PrepareCommand(dbNet.Context.DataProviderObjectFactory.CreateCommand())
      cmd.CommandText = "use ExpTemplate"
      Try
        pRet = cmd.ExecuteNonQuery()
      Catch ex As Exception
        'nothing
      Finally
        'nothing
      End Try
    End Using
    'For Each entity As Entity In dbNet().e
    For Each pt As ProductTemplate In ExpTemplate
      dbNet2.Attach(dbNet2.Import(pt))
      If pt.ProductTemplateSections.Count <> 0 Then
        For Each rec As ProductTemplateSection In pt.ProductTemplateSections
          Try
            dbNet2.Attach(dbNet2.Import(rec))
          Catch ex As Exception
          Finally
          End Try

        Next
      End If
      dbNet2.SaveChanges()
    Next

  End Using

End Using

What is the error you are encountering when importing the entities? I presume you are seeing an exception?

Jeremy