VBNet - Форум - Access + VBA.

Вопрос: Access + VBA. Добавлено: 09.11.02 19:54

Автор вопроса: CRyo

Задача следующая.

Имеется исходная таблица вида:

| № п/п | Дата | Значение |

Необходимо произвести выбор первых 30 значений (с 1 по 30), затем со 2 по 31, с 3 по 33 и т.д. до конца таблицы.

Результат же должен быть записан в одну таблицу такого вида:

|№ выборки |Значение 1 |Значение 2 |... |Значение 30 |

Знаний катострофически :-( не хватает. Может, кто-нить сможет помочь. Ну или подскажите в каком направлении "рыть".

Заранее благодарен.

Ответить

Ответы Всего ответов: 1

Номер ответа: 1
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | | #1

Добавлено: 10.11.02 12:21

Код формы:

Option Explicit
Dim I As Integer
Dim Ia As Integer
Dim strSQL As String
Dim K As Integer
Dim Result(30) As String

Private Sub Command1_Click()

    For Ia = 1 To 10

        K = Ia
        For I = 1 To 30
            strSQL = "select * from DANNIE where DANNIE.ZAPIS=" & K
            Call Rst(strSQL)
            Result(I) = Rs.Fields(2)
            Rs.Close
            K = K + 1
         Next
            strSQL = "RESULTAT"
            Call Rst(strSQL)

            Rs.AddNew
            Rs.Fields(0) = Ia
            For I = 1 To 30
                With Rs
                    Rs.Fields("ZNACHENIE" & I) = Result(I)
                End With
            Next
            Rs.Update
    Next

End Sub

Код модуля:

Option Explicit
Public strSQL As String
Public Conn As String
Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Sub Rst(strSQL As String)
   Conn = "User ID=Admin;Password=ata Source=" & App.Path & _
    "\db1.mdb;Provider=Microsoft.Jet.OLEDB.3.51"
   With Rs
      If .State = adStateOpen Then
         .Close
      End If
      .Source = ""
      .LockType = adLockOptimistic
      .CursorType = adOpenStatic
      .ActiveConnection = Conn
      .Open strSQL

   End With
End Sub

Для верности пошлю тебе весь проект с базой данных на мыло. Если будут вопросы, пиши.

Удачи

Ответить

Страница: 1 |