다음은 간단한 VB 애플릿 예이지만 여기에는 VB6.0, ADO, Access라는 키워드가 포함되어 있습니다.
환경: Visual Basic 6.0 Enterprise Edition(간소화된 버전이 아님, 그렇지 않으면 필요한 제어 기능이 부족함)
데이터베이스: Access 데이터베이스, 데이터베이스는 xs.mbd, 내장 테이블은 xj입니다.
결과: VB는 ADO를 사용하여 액세스 데이터베이스에 연결하고 xj 테이블의 모든 데이터를 쿼리한 다음 쿼리 결과를 루프의 창에 출력합니다.
암호:
Private Sub Form_Click()Dim db As New ADODB.Connection, RS As New ADODB.Recordset 'ADO 연결 개체 및 레코드 세트 Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;데이터 소스 =" & App.Path & "/xs.mdb" '데이터베이스 연결 db.Open '데이터베이스 열기 strSQL = "select * from xj" 'SQL 문자열 RS.Open strSQL, db, 3, 1' 쿼리 결과를 출력하는 동안 RS.RS! RS.MoveNext '기록을 아래로 이동 LoopRS.Close' 기록 세트 닫기 Set RS = NothingEnd Sub 창에 출력 결과를 인쇄합니다.
이상이 이 글의 전체 내용입니다. 모두 마음에 드셨으면 좋겠습니다.