Прокрутить таблицу

OreL
Дата: 22.05.2006 13:37:56
Здравствуйте.
Подскажите пожалуйста самый быстрый способ прокрутки таблици от начала до конца, если не известно колличество строк !??

Код::

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New SqlConnection("Server=AVTOLIDIRSQL;uid=*****;pwd=****;database=*****")
        Dim da As New SqlDataAdapter("Select * From DATA_2", con)
        Dim MyCB As SqlCommandBuilder = New SqlCommandBuilder(da)
        Dim ds As New Data.DataSet()

        con.Open()

        da.Fill(ds, "DATA_2")
        ProgressBar1.Minimum = 0
        Dim myColumn As Data.DataRow
        Dim DataCol As Integer
        Dim myRow As Data.DataRow
        Dim MyData() As Byte
        Dim i As Integer
        Dim dt As DataTable
        For i = 1 To 52199


            myColumn = ds.Tables("DATA_2").Rows(i)
            DataCol = myColumn("GGS_ID")
            myRow = ds.Tables("DATA_2").Rows(i)
            MyData = myRow("GGS_GOOT")

            Dim file_name As String = "C:\TD_Image\TABLE_2\" & DataCol & ".jp2"
            Dim ws As New FileStream(file_name, FileMode.Create)
            Dim w As New BinaryWriter(ws)
            w.Write(MyData)

            w.Close()
            ws.Close()
            Debug.Print(i)
            ProgressBar1.Value = i
        Next

        MyCB = Nothing
        ds = Nothing
        da = Nothing

        con.Close()
        con = Nothing
    End Sub

Спасибо.
winsky!
Дата: 22.05.2006 15:12:42
а почему неизвестно?
ds.Tables("DATA_2").Rows.Count?
OreL
Дата: 22.05.2006 15:34:51
winsky!
а почему неизвестно?
ds.Tables("DATA_2").Rows.Count?


Не знал, спасибо.

А EOF здесь можно использовать ?
winsky!
Дата: 22.05.2006 15:42:46
EOF не можно
такого понятия в ADO.NET NET, сорри, нет
можно For Each использовать
OreL
Дата: 22.05.2006 15:54:13
winsky!
EOF не можно
такого понятия в ADO.NET NET, сорри, нет
можно For Each использовать


Есть, но только для чтения файла,
я в MSDN нашёл, по этому и думал что здесь тоже можно применить,
оказалось нельзя. !

Dim TextLine As String
' Open file.
FileOpen(1, "TESTFILE", OpenMode.Input)
' Loop until end of file.
Do While Not EOF(1) 
' Read line into variable.
   TextLine = LineInput(1)
' Display result in a message box.
   MsgBox("End of file reached at " & TextLine)
Loop
FileClose(1)
OreL
Дата: 22.05.2006 16:05:27
И ещё вопросик

Вот здесь:(красным)

con.Open()

        [color=red]da.Fill(ds, "DATA_2")[/color]
        ProgressBar1.Minimum = 0
        Dim myColumn As Data.DataRow
        Dim DataCol As Integer
        Dim myRow As Data.DataRow
        Dim MyData() As Byte
        Dim i As Integer
        Dim dt As DataTable
        For i = 1 To ds.Tables("DATA_2").Rows.Count

Жрёт память страшно.
Можно как-нибудь избежать этого ?

Спасибо.
OreL
Дата: 22.05.2006 16:06:45
da.Fill(ds, "DATA_2")
winsky!
Дата: 22.05.2006 17:01:35
OreL
winsky!
EOF не можно
такого понятия в ADO.NET NET, сорри, нет
можно For Each использовать


Есть, но только для чтения файла,
я в MSDN нашёл, по этому и думал что здесь тоже можно применить,
оказалось нельзя. !

а какое отношение ADO.NET и DataTable в частности имеет к чтению файла?!
OreL
Дата: 22.05.2006 17:07:22
winsky!
OreL
winsky!
EOF не можно
такого понятия в ADO.NET NET, сорри, нет
можно For Each использовать


Есть, но только для чтения файла,
я в MSDN нашёл, по этому и думал что здесь тоже можно применить,
оказалось нельзя. !

а какое отношение ADO.NET и DataTable в частности имеет к чтению файла?!


Думал, что построчно можно читать что угодно и чем угодно !!!
Понял, что ступил.!

А с этим можно что-нибудь сделать-- da.Fill(ds, "DATA_2") ?
Sa
Дата: 22.05.2006 17:11:55

OreL

А с этим можно что-нибудь сделать-- da.Fill(ds, "DATA_2") ?

не тянуть базу данных на клиента!
Какое количество записей в "DATA_2"?

uid = Sa

Posted via ActualForum NNTP Server 1.3