Очень интересная проблема в Compact Framework - PullRequest
Новая
       13

Очень интересная проблема в Compact Framework

0 голосов
/ 30 октября 2009

У меня проблема с производительностью при вставке данных в sqlce. Я читаю строку и делаю вставки в Мои таблицы. В таблицу LU_MAM я вставляю 1000 записей за 8 секунд. После таблиц Mam я делаю некоторые вставки, но моя самая большая таблица CR_MUS. Когда я хочу вставить запись в CR_MUS, это занимает слишком много времени. CR_MUS имеет 2000 записей, а вставка занимает 35 секунд. В чем может быть причина? Я использую ту же логику в своих функциях вставки. У вас есть идеи? Я использую VS 2008 sp1. 

Dim reader As StringReader
reader = New StringReader(data)

cn = New SqlCeConnection(General.ConnString)
cn.Open()

If myTransfer.ClearTables(cn, cmd) = True Then
    progress = 0
     '------------------------------------------
cmd = New SqlServerCe.SqlCeCommand
Dim rs As SqlCeResultSet
cmd.Connection = cn
cmd.CommandType = CommandType.TableDirect
Dim rec As SqlCeUpdatableRecord

' name of table 

While reader.Peek > -1
    If strerr_col = "" Then

        satir = reader.ReadLine()
        ayrac = Split(satir, "|")

        If ayrac(0).ToString() = "LC" Then
            prgsbar.Maximum = Convert.ToInt32(ayrac(1))

        ElseIf ayrac(0).ToString = "PPAR" Then
            .
            If ayrac(2).ToString <> General.PMVer Then
                ShowWaitCursor(False)
                txtDurum.Text = "Wrong Version"

                Exit Sub
            End If
            If p_POCKET_PARAMETERS = True Then
                cmd.CommandText = "POCKET_PARAMETERS"
                txtDurum.Text = "POCKET_PARAMETERS"
                rs = cmd.ExecuteResultSet(ResultSetOptions.Updatable)
                rec = rs.CreateRecord()
                p_POCKET_PARAMETERS = False
            End If
            strerr_col = myVERI_AL.POCKET_PARAMETERS_I(ayrac, cmd, rs, rec)
            prgsbar.Value += 1

        ElseIf ayrac(0).ToString() = "MAM" Then
            If p_LU_MAM = True Then
                txtDurum.Text = "LU_MAM "
                cmd.CommandText = "LU_MAM"
                rs = cmd.ExecuteResultSet(ResultSetOptions.Updatable)
                rec = rs.CreateRecord()
                p_LU_MAM = False
            End If
            strerr_col = myVERI_AL.LU_MAM_I(ayrac, cmd, rs, rec)
             prgsbar.Value += 1
                  ElseIf ayrac(0).ToString = "KMUS" Then
            If p_CR_MUS = True Then
                cmd.CommandText = "CR_MUS"
                txtDurum.Text = "CR_MUS"
                rs = cmd.ExecuteResultSet(ResultSetOptions.Updatable)
                rec = rs.CreateRecord()
                p_TR_KAMPANYA_MALZEME = False
            End If
            strerr_col = myVERI_AL.CR_MUS_I(ayrac, cmd, rs, rec)
            prgsbar.Value += 1

end while

Открытая функция CR_KAMPANYA_MUSTERI_I (ByVal f_Line () как строка, ByRef myComm как SqlCeCommand, ByRef rs как SqlCeResultSet, ByRef rec как SqlCeUpdatableRecord) как строка 

    Try
        rec.SetValue(0, If(f_Line(1) = String.Empty, DirectCast(DBNull.Value, Object), f_Line(1)))
        rec.SetValue(1, If(f_Line(2) = String.Empty, DirectCast(DBNull.Value, Object), f_Line(2)))
        rec.SetValue(2, If(f_Line(3) = String.Empty, DirectCast(DBNull.Value, Object), f_Line(3)))
        rec.SetValue(3, If(f_Line(5) = String.Empty, DirectCast(DBNull.Value, Object), f_Line(5)))
        rec.SetValue(4, If(f_Line(6) = String.Empty, DirectCast(DBNull.Value, Object), f_Line(6)))
        rs.Insert(rec)
    Catch ex As Exception
        strerr_col = ex.Message
    End Try
    Return strerr_col

End Function

1 Ответ

0 голосов
/ 30 октября 2009

хорошо, я обнаружил проблему. Я ошибаюсь в CR_MUS. Я каждый раз обожаю cr_mus, потому что я не делаю p_CR_MUS = false. И также увеличение значения индикатора выполнения очень сильно снижает производительность. Так что теперь у меня нет проблем.

...