VB에서 ADO 메서드를 사용하여 데이터 테이블 쿼리

VB에서 ADO 메서드를 사용하여 데이터 테이블의 데이터 조각을 쿼리하는 방법

사용하기 쉬운 컨트롤.

전제조건은 adodc 컨트롤이 데이터베이스에 정상적으로 연결되어 있어야 한다는 것

DataGrid 컨트롤은 adodc 컨트롤에 바인딩되어 있습니다

비공개 하위 명령1_Click()

'데이터베이스에 연결

Adodc1.ConnectionString = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 소스=" & App.Path & "Database.mdb"

'쿼리

Adodc1.RecordSource = "" & Text1.Text & "' 같은 이름과 '" & Text2.Text & "'" 전공이 있는 표에서 *를 선택하세요

Adodc1.Refresh

끝 서브

VB는 ADO 컨트롤을 사용하여 코드를 통해 데이터베이스에 연결하는 방법

첫 번째 견적 ADO: 프로젝트--참조-MS ActiveX 데이터 개체 선택

코드:

Dim Access_Con 연결로

Set Access_Con = 새 연결

Access_Con.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source=" & App_Path & "FHLdata.mdb;"

Access_Con.Open

Dim rs As Recordset

Set rs = 새 레코드세트

rs.Open "사용자 관리에서 * 선택", Access_Con

''''쿼리 결과는 rs에 있으며 rs를 데이터그리드에 바인딩하여 데이터 등을 볼 수 있습니다.

ADO 컨트롤을 사용하여 VB의 Access 데이터베이스에 연결

새 프로젝트를 생성할 때 데이터 프로젝트를 선택하세요. 이때 데이터베이스 프로그래밍에 필요한 컨트롤이 VB6 통합 디버깅 환경의 왼쪽에 있는 도구 상자에 로드되었습니다.

그런 다음 FORM1 양식에 ADODC 컨트롤과 DATAGRID 컨트롤을 추가하고 DATAGRID1의 DATASOURCE 속성에 대해 ADODC1을 선택하고 ADODC1 컨트롤 속성 페이지를 열어 연결 문자열을 사용하고 생성을 선택한 다음 공급자 옵션에서 MICROSOFT jet 4.0 OLE DB Provider를 선택합니다. 을 누른 다음 데이터베이스에 연결 등을 누릅니다. ADODC1 컨트롤 속성 페이지의 연결 문자열을 사용하는 빈 텍스트 창에 긴 문자열이 있습니다. 이 문자열은 프로그래밍을 위해 프로그램 코드에 복사될 수 있습니다. ADODC1 컨트롤 속성 페이지의 데이터 소스에는 SQL 쿼리 언어를 작성할 수 있는 명령 텍스트(SQL) 작성 창이 있습니다. 이 창의 SQL 문은 프로그래밍을 위해 프로그램 코드에 복사될 수 있습니다.

SQL 쿼리 언어의 주요 구조는 다음과 같습니다.

쿼리 조건문이 있는 테이블 이름에서 쿼리 필드 선택 [정렬문 또는 그룹화문]

쿼리 필드는 (스페인어) 쉼표로 구분하거나 * 기호로 바꿔야 합니다. 위 쿼리의 정렬 문을 사용하는 것이 가장 좋습니다.

SQL 쿼리 언어는 프로그램이 실행 중일 때 오류가 있는지 알려주므로 해당 내용을 변경하면 됩니다. 저는 보통 위의 연결을 먼저 누르고, SQL 디버깅을 위해 "SELECT * FROM TableName"을 사용하는데, 의 CLICK 이벤트에서 복사해야 할 연결 문자열과 SQL 쿼리 언어를 버튼홀을 사용하여 복사합니다. 버튼 컨트롤을 나중에 사용하기 위해 저장하세요. 그런 다음 ADODC1 구멍 조각을 삭제하고 ADODC1 컨트롤을 추가한 다음 다른 콘텐츠를 추가합니다.

다음은 코드 예시입니다:

비공개 하위 양식_Load()

Text1 = ""

Adodc1 사용

Adodc1.ConnectionString = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 원본=E:db1.mdb;지속 보안 정보=False"

Adodc1.RecordSource = "b1 주문에서 이름을 선택하세요"

Adodc1.Refresh

DataGrid1.Refresh

끝

끝 서브

비공개 서브텍스트1_Change()

Adodc1.ConnectionString = "공급자=Microsoft.Jet.OLEDB.4.0;데이터 원본=E:db1.mdb;지속 보안 정보=False"

Adodc1.RecordSource = "b1에서 이름 선택, 여기서 이름 >='" & Text1 & "' 이름순"

Adodc1.Refresh'가 쿼리를 업데이트합니다

DataGrid1.Refresh

끝 서브

위 내용은 VB에서 ADO 메서드를 사용하여 데이터 테이블 쿼리의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!