AndVGri
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
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, 'упк')"
|
код выболняется без сбоев. Ошибка где-то в цикле вставки, точнее в формировании строки команды. Да, и в VBA и VB6 лучше использовать для соединения строк не +, а символ &
Общее пожелание - пиши по внятнее, чтобы самого себя не путать |
Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 08:34 21-10-2011 | Исправлено: AndVGri, 08:35 21-10-2011 |
|
