프로그래밍 방식으로 테이블에 레코드 추가

Question

특정 테이블의 일부 레코드를 새 테이블 에 추가하려고합니다.이 테이블의 "Table1"과 같은 새 테이블에 값을 추가 할 수 없습니다. 데이터가 테이블에 추가되지 않는 이유는 무엇일까요?

Answer 1

코드에서 알 수 있듯이 데이터베이스의 한 테이블에서 동일한 데이터베이스의 다른 테이블로 레코드를 추가하는 것입니다. 이 작업을 수행하기 위해 Recordset 개체를 사용할 필요가 없습니다. INSERT INTO 쿼리를 통해 원하는 것을 성취 할 수 있습니다. 사용자 \ test.accdb를 \ : 나는 현재 데이터베이스가 C에서 같은 일이라는 가정 아래 DB 객체 CurrentDb를 사용

Dim strSQL as String 
Dim db as DAO.Database 

Set db = CurrentDb 

strSQL = "INSERT INTO Table1 (UPI, COMPANY) " & _ 
     "SELECT INPUT_TBL.ID, INPUT_TBL.COMPANY FROM INPUT_TBL" 

db.Execute strSQL, dbFailOnError 

Set db = Nothing 

참고. 그런 경우가 아니라면, 당신은 두 가지 중 하나를 수행해야합니다 : 당신은 당신이이 코드를 실행하는 데이터베이스에 연결된 테이블로 이러한 테이블을 모두 추가 할 수 있습니다

1. 을, 당신은 단지를 사용할 수 있습니다 위와 같은 코드. 외부 데이터베이스에서 현재 데이터베이스로 테이블을 추가하는 방법에 대한 지침은 http://office.microsoft.com/en-us/access-help/import-or-link-to-data-in-another-access-database-HA001227658.aspx#BM3 및 기타 인터넷상의 많은 장소에서 사용할 수 있습니다.

2. 당신이 어떤 이유로 데이터베이스에 테이블을 연결 추가 할 수없는 경우, 당신은 될 것 이전 SQL 문자열에 조항을 추가 할 수 있습니다 :이 코드는 사용자가 데이터를 선택할 수 있도록 할

   Dim strSQL as String 
   Dim db as DAO.Database 
   Dim dbname as String 
   
   Set db = CurrentDb 
   
   dbname = "C:\Users\test.accdb" 
   
   strSQL = "INSERT INTO Table1 (UPI, COMPANY) IN """ & dbname & """ " & _ 
        "SELECT INPUT_TBL.ID, INPUT_TBL.COMPANY FROM INPUT_TBL IN """ & dbname & """" 
   
   db.Execute strSQL, dbFailOnError 
   
   Set db = Nothing 
   

   Table1의 외부 데이터베이스에 저장하고 동일한 외부 데이터베이스의 INPUT_TBL에 추가하십시오.