» Excel VBA (часть 3)

unit4
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=dBASE IV;User ID=Admin;Password=;

Цитата:

"create table REPORT (LCODE int(10), CODE int(16), SECTION int(20), KOL int(12), SUM double(30), PRTSH int(12))"

Названия полей SECTION и SUM недопустимы
для int, integer, double, float не допустимо указание размера, только для Numeric, char, text и по подобных

AndVGri
Пздц, а почему SECTION и SUM то нельзя? Как тогда разработчики программы умудрились сделать импорт dbf с такими полями? Или это в vba недопустимо?

Добавлено:
Понял я почему недопустимы. Плохо...

unit4
Ограничение ADODB.Connection (SUM зарезервированное слово для функции суммирования)
можешь обойти, используя []
"create table REPORT (LCODE int, CODE integer, [SECTION] integer, KOL integer, [SUM] double, PRTSH integer)"

AndVGri
Так это не обход, [] все равно присутствует в имени столбца((

unit4
нет не присутствует, посмотри в результате, [] для нестандартных названий столбцов

AndVGri
Не могу пока посмотреть. У меня что то вылетает на

Код:
DBConn.Execute ("Insert into REPORT Values(" + rec!skln_cd + ",'',''," + CInt(OQ(i).Text) * CInt(rec!nmEi_QtOsn) + "," + OUGP(i).Text + ",'')")

unit4
Маленький совет: старайтесь использовать полную форму insert:

INSERT INTO Table1 (Column1, Column2, Column3…)
VALUES (Value1, Value2, Value3…)

rrromano
ок, спасибо)

Добавлено:
Что то я не пойму. У меня артикул имеет вид 1111/2222, а в dbf файл он записывается в виде 8.11754170300083E-02 т.е. делиться одно число на другое, хотя тип стоит varchar. Как такое может быть?

unit4
1111/2222 видимо воспринимаются как вычисление, запиши как '1111/2222'

AndVGri
Гуд, все работает) Спасибо большое, что то я сам не додумался попробовать))

unit4
Не за что особо )
Просто грабли там часто лежат.)))

Можно ли так писать?

Код:
Call DBConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='D:\trash\'; Extended Properties='DBASE 5'; codepage='OEM'")

unit4
Extended Properties='dBASE 5.0'
codepage='OEM' - убрать, ругается
А чем dBase IV не устроило?

AndVGri
codepage='OEM' мне необходим, потому что я в dbf записываю русские буквы, а у меня в нутри оказываются крякозяблик.

unit4
Microsoft.Jet.OLEDB.4.0 пишет в DOS кодировке cp866, если надо в Windows 1251, то потребуется установить другого провайдера Microsoft OLE DB Provider for Visual FoxPro 9.0

AndVGri

Цитата:

то потребуется установить другого провайдера Microsoft OLE DB Provider for Visual FoxPro 9.0

Таким образом, мне клиенту тоже необходимо устанавливать этот драйвер? Другого способа нет?

unit4
Ну, почему нет! Пишешь свой перекодировщик dbf из DOS в Windows, после выполнения работы твоего кода по созданию dbf таблицы и вперёд. Можешь что то и по гуглить. Я, правда, когда мне было нужно ничего другого не нащёл
А самое главное. Если клиент читает таблицу через Microsoft.Jet.OLEDB.4.0, то ему не всё ли равно в какой кодировке там строки?
Если он читает таблицу софтом, который понимает в dbf только Windows 1251, то ему то драйвер Visual Foxpro зачем?

AndVGri
Ох, что то непонятно ничего)) Точнее я понимаю, что чтение в итоге ложиться на плечи той проги которая читает dbf. Вот только получается, что она (эта прога) не умеет из dbf DOS конвертировать в dbf Win.

unit4
Ну, так Microsoft OLE DB Provider for Visual FoxPro 9.0 тебе в помощь. Он как раз и делает dbf с Win кодировкой.

AndVGri
так, а если заморочиться со сменой значения бита ? Получиться?

unit4

Цитата:

так, а если заморочиться со сменой значения бита ? Получиться?

И что это даст? Может всё-таки детальнее опишешь задачу в части создания dbf?

AndVGri
Да куда уж детальней. Необхоимо создать dbf файл в котором будет заказ от поставщика передаваться в КИС (ИС ПРО). Есть поле с единицами измерения, так как в КИС базовая ЕИ штуки, а заказ приходит в коробках, то для удобства хочу указывать эти самые ЕИ. ЕИ в поле указывается как "шт","бл","кор". Проблема заключается в том, что когда втягивается этот dbf в КИС, то КИС не понимает чего там в поле ЕИ указали и ругается.

Сейчас сделал через FPOLEDB.1 провайдер, но он почему то ругается, если в строке insert в поле с данными стоит кавычка одинарная.


Код:
Call DBConn.Open("Provider=VFPOLEDB.1;Data Source='D:\trash\';CursorLocation=adUseClient;BackgroundFetch=Yes;Collate=Russian ")
DBConn.Execute ("create table REPORT (LCODE varchar, CODE int, [SECTION] char(2), KOL int," + _
"[SUM] double, PRTSH char(1), EI char(3))")

i = 0
While Not rec.EOF And SIC.Length - 1

DBConn.Execute ("Insert into REPORT (LCODE,[SECTION],KOL,[SUM],EI) " + _
"Values(" + _
rec!skln_cd + _
",01," + _
OQ(i).Text + "," + _
OUGP(i).Text + _
",'кор')" _
)

OUGP(i).Text

i = i + 1

rec.MoveNext

unit4

Цитата:

но он почему то ругается, если в строке insert в поле с данными стоит кавычка одинарная.

Неправда

Код:
Option Explicit
Dim DBConn

Set DBConn = CreateObject("ADODB.Connection")

DBConn.Open "Provider=VFPOLEDB.1;Data Source='c:\temp\';CursorLocation=adUseClient;BackgroundFetch=Yes;Collate=Russian"
DBConn.Execute "create table REPORT (LCODE varchar, CODE int, [SECTION] char(2), KOL int, [SUM] double, PRTSH char(1), EI char(3))"

DBConn.Execute "Insert Into Report (LCODE, [SECTION], KOL, [SUM], EI)" & _
             "Values('код1', 'шт', 123, 234.5, 'кор')"
DBConn.Execute "Insert Into Report (LCODE, [SECTION], KOL, [SUM], EI)" & _
             "Values('код2', 'бл', 34, 641.17, 'упк')"

AndVGri
Спасибо, учту ваше пожелание. Буду пробовать.

unit4
Как вариант (только изменил для поля LCODE тип с varchar на char(254)

Код:
Option Explicit

Const adUseClient = 3
Const adOpenStatic = 3
Const adCmdTable = 2
Const adLockOptimistic = 3
Dim DBConn, DBRSet

Set DBConn = CreateObject("ADODB.Connection")

DBConn.Open "Provider=VFPOLEDB.1;Data Source='c:\temp\';Collate=Russian"
DBConn.Execute "Create Table REPORT (LCODE char(254), CODE int, [SECTION] char(2), KOL int, [SUM] double, PRTSH char(1), EI char(3))"

Set DBRSet = CreateObject("ADODB.Recordset")
DBRSet.CursorLocation = adUseClient
DBRSet.Open "REPORT", DBConn, adOpenStatic, adLockOptimistic, adCmdTable

DBRSet.AddNew
DBRSet("LCODE") = "код1"
DBRSet("SECTION") = "шт"
DBRSet("KOL") = 123
DBRSet("SUM") = 234.56
DBRSet("EI") = "кор"
DBRSet.Update

AndVGri
Я когда пытаюсь открыть созданный файл excel'ем, то у меня там такая ерунда, совсем не то, что было когда через Jet создавал или dbf надо самим foxPro открывать?

Кстати почему то у меня всего одна позиция записывается, хотя вроде цикл сделал


Код:
Const adUseClient = 3
Const adOpenStatic = 3
Const adCmdTable = 2
Const adLockOptimistic = 3
Dim DBConn, DBRSet

Set DBConn = CreateObject("ADODB.Connection")

DBConn.Open "Provider=VFPOLEDB.1;Data Source='D:\trash\';Collate=Russian"
DBConn.Execute "Create Table REPORT (LCODE char(254), CODE int, [SECTION] char(2), KOL int, [SUM] double, PRTSH char(1), EI char(3))"

Set DBRSet = CreateObject("ADODB.Recordset")
DBRSet.CursorLocation = adUseClient
DBRSet.Open "REPORT", DBConn, adOpenStatic, adLockOptimistic, adCmdTable
i = 0
DBRSet.AddNew
While Not rec.EOF And SIC.Length - 1

DBRSet("LCODE") = rec!skln_cd
DBRSet("SECTION") = "01"
DBRSet("KOL") = OQ(i).Text
DBRSet("SUM") = OUGP(i).Text
DBRSet("EI") = "кор"

i = i + 1
rec.MoveNext

Wend
DBRSet.Update

unit4
Да ну... вызовы DBRSet.AddNew, DBRSet.Update должны быть в теле цикла. Добавляем и обновляем же запись.
Excel и Access работают через Provider=Microsoft.Jet.OLEDB.4.0, который пишет кодировку DOS, поэтому они и отображают кракозяблы.
Насколько я понял, программа, которая будет использовать dbf требует кодировку Win 1251 или всё же нужно для Excel, Access? Вопрос так и не прояснён.

AndVGri
Вы знаете, я сам до конца не в курсе, какая кодировка нужна. На Excel, Access - пофиг.
Я могу приложить файл, который мне прислала служба поддержки, я у них спросил, какая кодировка то нужна, они сказали смотреть в файл О_о. Может вы знаете как посмотреть кодировку dbf?))


Добавлено:
Я думаю надо попробовать три кодировки ANSI, OEM и Win. Насколько я понял, Jet пишет ANSI/OEM в зависимости от того как там в реестре стоит ключик.

Вопрос к гуру.

Есть файл-таблица Excel. В нём в ячейках находится текст. Текст не простой, а гиперссылка. Задача такова: скачать контент всех гиперссылок в папку, где находится искомый файл-таблица, после чего поменять все гиперссылки на локальный путь. То есть сделать онлайн-форму документа офлайн-формой.

Такое же повторить и для других листов.

Цитата:

Вопрос к гуру.

Цитата:

ткните в ветку, где пасутся такие помощники

Если гуру считают себя пасущимися здесь, то, конечно, помогите "не гуру".