Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: Из Excelя в Access
     
    
Добавлено: 04.12.05 11:29
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
     Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361
 Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
      
       
  
Помогите!!!
 
    
Из файла Экселя я передаю данные в базу Аксесс, в Экселе 4 столбца все данные передаются без проблем но надо еще чтобы в базе Аксеса заполнялось еще одно поле (5-е) в каждой строчке значением нужной мне переменной.
Вот код:
For row = 2 To max_row
& "'"
        statement = "INSERT INTO Books VALUES ("
        For col = 1 To 5
           If col > 1 Then statement = statement & ","
            new_value = Trim$(excel_sheet.Cells(row, col).Value)
                statement = statement & _
                    "'" & _
                    new_value & _
                    "'"
            
        Next col
        statement = statement & ")"
        conn.Execute statement, , adCmdText
   
    Next row
То есть, в Экселе есть значения только в 4-х полях 5-е пустое, а в Аксесс в процессе переноса данных в каждую строку последнего (5-го столбца) добавлять еще значение какой-то переменной
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 6
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа: GSerg
 GSerg


Вопросов: 0
Ответов: 1876 
      
 Профиль |  | #1
       
Добавлено:  04.12.05 16:31
       
    
       
  
А чем конкатенация значения некоторой переменной принципиально отличается от конкатенации свойств .Value?
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #2
      
Добавлено:  04.12.05 17:04
       
    
       
  
Переменная String. Объединяется все прекрасно если я добавляю 
 
    
new_value = Trim$(excel_sheet.Cells(row, col).Value) + "эта переменная" он к каждой заполненной строке добовляет мою переменную, а мне нужно только в 5-м поле.
Короче, 5-я сторока это имя файла из которого берем информацию (а файлов много).
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа: HACKER
 HACKER








 
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
      
 Профиль |  | #3
       
Добавлено:  04.12.05 18:32
       
    
       
  
if col = 5 then new_value = Trim$(excel_sheet.Cells(row, col).Value) 
 
    
?
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа: AndreyMp
 AndreyMp

ICQ: 237822510 
Вопросов: 28
Ответов: 1182
      
 Профиль |  | #4
       
Добавлено:  05.12.05 12:52
       
    
       
  
Гы.. 
     ) Студенты правда достали. Если я правильно перевел то "Если у тебя 5-й столбец то пошел твой валуе на твой ексел.файл.книга"
) Студенты правда достали. Если я правильно перевел то "Если у тебя 5-й столбец то пошел твой валуе на твой ексел.файл.книга"
		
	  
			 
	
		 
    
       
    
Номер ответа: 5 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #5
      
Добавлено:  05.12.05 14:54
       
    
       
  
Если такой спец, то читай внимательно, 5 изначально пустой  
     )
)
		
	  
			 
	
		 
    
       
    
Номер ответа: 6 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #6
      
Добавлено:  05.12.05 14:56
       
    
       
  
Да и еще, не умничий. Я отправляю не из Аксес в Эксель, а на оборот.