Страница: 1 | 
		
		 
			   
			 
			 
			 
			 Страница: 1 | 
 
			
 
  
		
     
  
    
Вопрос: Копирование данных
     
    
Добавлено: 25.08.04 19:28
     
      
  
				
			  
					 
			
				 
    
		
       
    
Автор вопроса:  
     Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361
 Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
      
       
  
Народ ну помогите!!!!!!! Как скопировать данные из одной базы в другую. Точнее, у меня дома база book.mdb с кучей таблиц и на работе, вот надо и скопировать все записи из одной базы в другую. (связанных отношениями таблиц НЕТ)
 
    
				
		
		
					 
			
				 
  
		
     
  
    
Ответы
     
    
Всего ответов: 7
     
      
  
		
	  
			 
	
		 
    
       
    
Номер ответа: 1 
      
Автор ответа: Иван
 Иван







Администратор
ICQ: 147688925 
Вопросов: 24
Ответов: 708
      
 Web-сайт:  
 Профиль |  | #1
      
Добавлено:  25.08.04 19:56
       
    
       
  
Ну дык ты на VB хочешь программу написать для этого? Я чего-то не понял вопроса... синхронизивовать базы?
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 2 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #2
      
Добавлено:  25.08.04 20:05
       
    
       
  
Мне надо чтобы эти базы стали обсолютно одинаковыми (по данным).
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 3 
      
Автор ответа: rx
 rx





ICQ: 310731115 
Вопросов: 10
Ответов: 45
      
 Web-сайт:  
 Профиль |  | #3
      
Добавлено:  25.08.04 20:41
       
    
       
  
Откриваеш таблицу в однои Базе данних (через ДАТА), и ту же таблицу в другои Базе данних (Тоже через дата).....
 
    
В однои таблице добовляеш новии записи, и пишеш там инфу с второи бази....
ВСЁ !!!!!
Data1.Connect = "Access"
Data1.DatabaseName = "C:\base.mdb"
Data1.RecordSource = "!!!TVOJA_TABLICA!!!"
Data2.Connect = "Access"
Data2.DatabaseName = "C:\base1.mdb"
Data2.RecordSource = "!!!TVOJA_TABLICA!!!"
Text1.DataSource = Data1
Text1.DataField = "TVOJO_POLJE"
Text2.DataSource = Data2
Text2.DataField = "TVOJO_POLJE"
Nadojelo pisat'
Koroche potom: 
data2.recordset.movefirst
'a eto v cikl WHILE poka ne EOF
Data1.RecordSet.AddNew
Data1.recordset.movelast
text1=text2
data2.recordset.movenext
'cikl end  
dovolno mazahistnij metod, no....
		
	  
			 
	
		 
    
       
    
Номер ответа: 4 
      
Автор ответа: cresta
 cresta


Вопросов: 117
Ответов: 1538
      
 Профиль |  | #4
       
Добавлено:  25.08.04 23:01
       
    
       
  
Чёто я не допёр, а просто скопировать целиком, не как базу, а как файл нельзя что-ли???
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 5 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #5
      
Добавлено:  26.08.04 00:09
       
    
       
  
Объясняю еще, одну базу заполняю на работе, другую дома, следовательно дома нет тех записей, что на работе и наоборот.
 
    
		
	  
			 
	
		 
    
       
    
Номер ответа: 6 
      
Автор ответа: cresta
 cresta


Вопросов: 117
Ответов: 1538
      
 Профиль |  | #6
       
Добавлено:  26.08.04 01:08
       
    
       
  
Как-то странно вопрос формулируешь  
     
1.Берешь домашнюю базу и на работе считываешь из неё последовательно все записи
2.Для каждой домашней записи через FindFirst/FindNext ищешь её аналог  в рабочей базе.
3.Если аналог найден - берёшь следующую домашнюю запись и проверяешь её. Если аналога нет - добавляешь эту запись в рабочею базу и ищешь аналог для следующей домашней записи.
Какие проблемы? Что не получается: считать запись? Или найти запись в базе? Или дописать запись в базу?
		
	  
			 
	
		 
    
       
    
Номер ответа: 7 
      
Автор ответа: Andrey999
 Andrey999


ICQ: 30852361 
Вопросов: 73
Ответов: 168
      
 Web-сайт:  
 Профиль |  | #7
      
Добавлено:  26.08.04 10:17
       
    
       
  
А кодом помочь не можешь???