VBNet - Форум - срочно...вопрос жизни и смерти

Вопрос: срочно...вопрос жизни и смерти Добавлено: 02.02.03 17:51

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

У меня есть база - calls.dbf (FoxPro). Каким образом можно подключиться к ней через VB. Пожалуйста, напишите пример создания Connection'a и Recordset'a. Я еще не сталкивался с такими базами... почитал MSDN но не один из приведенных там примеров у меня почему-то работать не стал... Нужно очень срочно...

Ответить

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

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

paul_sn

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

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

Добавлено: 02.02.03 20:05

Вот примерчик. Им я переносил записи из базы dBaselll в Access

    MDBPath = App.Path & "\acc.mdb" ' Путь к базе Access
    dBasePath = App.Path & "\dbFiles" ' Путь к базе dBase III



    ' Открытие базы dBase III используя путь к базе
    Set dbDbase = DBEngine.Workspaces(0).OpenDatabase( _
              dBasePath, False, False, "dBase III;")

    ' Открытие таблицы CHECK
    Set RsDbase = dbDbase.OpenRecordset("RCHECK", dbOpenTable)

    ' Вычисление количества записей в таблице RCHECK
    K = 0
    Do While RsDbase.EOF = False
    K = K + 1
        RsDbase.MoveNext
    Loop
    prb.Visible = True

    I = 1

Public dbDbase As Database
Public RsDbase As Recordset
Public MDBPath As String
Public dBasePath As String
Public dbMDB As Database
Public rsMDB As Recordset

Set dbMDB = OpenDatabase(MDBPath)
    Set rsMDB = dbMDB.OpenRecordset("select * from RCHECK")
    RsDbase.MoveFirst

    ' Заполнение таблицы Access данными из таблицы dBase III
    Do While RsDbase.EOF = False
        prb.Max = K
        prb.Value = I
        rsMDB.AddNew
        With RsDbase
            rsMDB!BAR_COD = RsDbase.Fields(0)
            rsMDB!KOL_VO = RsDbase.Fields(1)
            rsMDB!CENA = RsDbase.Fields(2)
            rsMDB!CENAP = RsDbase.Fields(3)
            rsMDB!SKDC = RsDbase.Fields(4)
            rsMDB!SKDR = RsDbase.Fields(5)
            rsMDB!PRODC = RsDbase.Fields(6)
            rsMDB!CNUM = RsDbase.Fields(7)
            rsMDB!PRIC = RsDbase.Fields(8)
            rsMDB!NET_TR = RsDbase.Fields(9)
            rsMDB!UNIT_NUM = RsDbase.Fields(10)
        End With

        rsMDB.Update
        RsDbase.MoveNext
        I = I + 1
    Loop

Ответить

Страница: 1 |