VB - 액세스 DB에 연결

발행물

시트에있는 버튼을 클릭하면 Access에 DB를 복사하려는 Excel 테이블이 있습니다. 이 테이블이 포함 된 Xls.

지금은 테이블의 연결과 생성을 테스트하고 있습니다. 내 코드는 다음과 같습니다.

 Sub cnxBDD () string = "Provider = Microsoft.Jet.OLEDB.4.0; 데이터 원본 = C : \ Users \ Nant \ Desktop \ MABDD.mdb; 보안 정보 유지 = False"DB = 새 ADODB 설정. Connection Set recSet = 새 ADODB.Recordset BDD.Open CSQL Me.Update로 ADODB.Connection으로 Sun DB 새로 고침 Sun에서 recSet으로 ADODB.Recordset으로 Sun CSQL을 문자열로 BDD.Execute "CREATE TABLE test (name varchar (60), FirstName varchar (60), 메일 varchar (60), 별명 varchar (60), DateAjout 날짜 not null) "End Sub

발생한 오류는 다음과 같습니다.

이 : "ADO : 컴파일 오류 : 정의되지 않은 사용자 정의 형식"및 "새 ADODB.Connection"

해결책

참조 Microsoft ActiveX Data Objects xx Library 프로젝트를 추가해야합니다.

VB 편집기 => 도구 => 참조 ... 메뉴의 메뉴에서 틱이 해당합니다.

그런 다음 개체를 만들기 전에 개체를 선언해야합니다.

 DB를 ADODB.Connection로 설정 Sun Sun Sun에서 recSet을 ADODB.Recordset CSQL을 String으로 설정 DB = 새 ADODB.Connection Set recSet = 새 ADODB.Recordset '연결 문자열 str = "공급자 = Microsoft.Jet.OLEDB.4.0; 데이터 원본 = C : \ Users \ Nant \ Desktop \ MABDD.mdb; 보안 정보 유지 = False " '연결 문자열 BDD.Open을 만들었습니다. 우리는 CSQL 쿼리를 작성했습니다'우리는 데이터베이스에 쿼리를 전달합니다. recSet.Open CSQL, DB,, , adCmdText 'BDD에서 연결 및 릴리스 개체를 닫습니다. 닫기 recSet.Close = 아무 것도 설정하지 않음 DB = 아무 것도 설정하지 않음 recSet

그것은 작동해야합니다!

또한 Access 데이터베이스에 VB 연결에 대한 팁을 확인하십시오.

//ccm.net/faq/6079-connecting-vb-to-database