Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Копирование таблицы в базе. Добавлено: 18.06.10 13:53  

Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 
Подскажите как скопировать таблицу со всеми данными внутри базы, только присвоить ей другое имя.
К примеру база Book.mdb в ней есть таблица client и мне нужна ее копия с именем client_data, связи не какие не нужны.

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 Алексей



Вопросов: 1
Ответов: 2
  Профиль | | #1 Добавлено: 25.06.10 16:13
Это можно выполнить послав в базу команду SQL запрос: "select * into client_data from client"
конструкция "Select поле1[, поле2]... into имя_новой_таблицы from имя_копируемой_таблицы"
при желании можешь добавить конструкцию WHERE

Ответить

Номер ответа: 2
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
  Web-сайт: www.radio-device.narod.ru
 Профиль | | #2 		Добавлено: 25.06.10 23:24
Спасибо уже решил так
  1. DB.Execute("SELECT * INTO client_data FROM client")

Ответить

Номер ответа: 3
Автор ответа:
 katerina1989



Вопросов: 0
Ответов: 2
  Web-сайт: www.alemarestate.ru
 Профиль | | #3 		Добавлено: 13.08.10 15:18
а у меня не получатся(

Ответить

Номер ответа: 4
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #4 Добавлено: 13.08.10 16:33
Возможно в Access такая конструкция не поддерживается
Попробуй еще
  1. INSERT INTO client_data SELECT * FROM client

Ответить

Номер ответа: 5
Автор ответа:
 Andrey999



ICQ: 30852361 

Вопросов: 73
Ответов: 168
  Web-сайт: www.radio-device.narod.ru
 Профиль | | #5 		Добавлено: 13.08.10 21:13
Вот, 100% работает

  1. Dim dbcInput As Database
  2.  
  3.  
  4. Private Sub Command2_Click()
  5.     With CommonDialog1
  6.         .DialogTitle = "Входящая база"
  7.         .Filter = "Access base|*.mdb"
  8.         .ShowOpen
  9.         Text2 = .FileName
  10.         Set dbcInput = OpenDatabase(.FileName)
  11.     End With
  12.     End Sub
  13.  
  14. Private Sub Command3_Click()
  15.  
  16.     dbcInput.Execute "SELECT * INTO client_data FROM client"
  17.     dbcInput.Close
  18.     MsgBox "Успешно"
  19.     
  20. End Sub

Ответить

Номер ответа: 6
Автор ответа:
 papa87



Вопросов: 0
Ответов: 1
  Web-сайт: http://www.fuckingfans.ru/
 Профиль | | #6 		Добавлено: 11.06.11 01:56
Хм у меня тоже что то не выходит (

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам