Платные хостинги     Раскрутка сайта     Книги по программированию

FoxPro(Ado) + VB = problem

- Есть проблема при работе с FoxPro через ADO.Хочу выполнить запрос такого вида:Код select table1.*, table2.A, table2.B from table1, table2 where table1.id = table2.id into table "D:\Develop\Visual Basic\database\table3.dbf"highlightSyntax('sqlExZTJi','sql');Если делаю это в самом FoxPro, то все ок. А вот если этот же запрос через Бейсик то не пашет :'(вот код на VB:Код Private Sub Command1_Click()' tbMany, tbName1, tbName2 - это обычные edit'ы' frmMain.path содержит путь до директории с таблицами Foxpro' Если пытаться вывести результат запроса, в edit например, то все ок.Dim i As Integer Dim col As Integer Dim strs As String Dim sql As String Dim strs1 As StringDim cmd As StringDim cn As ADODB.ConnectionDim rs As ADODB.Recordsetcol = Int(Val(tbMany)) If col = 0 Then    tmp = MsgBox("Неверное количество столбцов", vbCritical + vbOKOnly)    Exit SubEnd Ifstrs1 = InputBox("Введите имя столбца из первой таблицы для связи со второй", "Выбор столбца для связи")' Начинаем строить строку sql запросаsql = "select " + tbName1 + ".*"For i = 1 To col    strs = InputBox("Введите " + str(i) + " имя столбца:", "Выбор колонок во второй таблице")    sql = sql + ", " + tbName2 + "." + strsNextsql = sql + " from " + tbName1 + ", " + tbName2 + " where " + tbName1 + "." + strs1 + " = " + tbName2 + "." + strs1 + " into table " + Chr(34) + frmMain.path + "\table3.dbf" + Chr(34) ' Начинаем подключение к таблицам БДcmd = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft FoxPro VFP Driver (*.dbf)};UID=;SourceDB=" + frmMain.path + ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"Set cn = New ADODB.ConnectionWith cn    .ConnectionString = cmd    .OpenEnd WithSet rs = New ADODB.RecordsetWith rs    .Open sql, cn, adOpenDynamic, adLockBatchOptimistic'MsgBox(rs("id")) ' Так работает, то есть подключение к таблице естьrs.MoveNext ' Это вообще надо? если весь запрос должен помещаться в другую таблицу?            .CloseEnd WithSet rs = Nothingcn.CloseSet cn = NothingEnd SubhighlightSyntax('vbYzYWU2','vb');Прога вроде как выполняет запрос, то есть ждет некоторое время, но новой таблицы не появляется :'(В чем глюк? И как лечить?

- Это подключение к рекордсету, а не к таблице.

-

- Формат записи нужно исправить на следующий:Код sql = sql + " from " + tbName1 + ", " + tbName2 + " where " + tbName1 + "." + strs1 + " = " + tbName2 + "." + strs1 + " into table " + "'table3'"highlightSyntax('vbYmE3Zm','vb');И, как мне кажется на вскидку, нужно доработать строку подключения.У меня сейчас нет возможности все это проверить, за что и извеняюсь.

- Naghual а смысл? оно так не жеает работать.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD