데이터베이스와 상호 작용하는

VB는 주로 데이터베이스로 데이터 소스에 거주하는 로컬 또는 네트워크 (안 인터넷) 데이터를 수 있도록 강력한 관리 인터페이스의 창조를 위해 만들어졌습니다. Microsoft의 제품이기 때문에, (DBMS, 또는 데이터베이스 관리자) VB 제품을 작동하는 것을 선호 마이크로 소프트 액세스와 SQL Server와 같은,하지만 오라클 주택 등 다양한 DBMS와 함께 잘 동작합니다.

이 장에서 우리는되도록이면 액세스와 상호 작용, 버전 2000에 의존하고, 나는 독자가 기본적인 SQL 최소한 겉핥기을 가지고 있다고 가정합니다.

데이터 및 거주 데이터 관리의 원본과 연결하려면, VB는 프로그램과 소스 데이터 자체 사이의 인터페이스를위한 ADO (ActiveX 데이터 개체)를 사용합니다. ADO는 다른 것들, 두 큰 개체, 또는 연결 관리 및 기타 유틸리티에 연결하고, 데이터의 물리적 관리 레코드 사이에 제공합니다.

새 표준 EXE를 만들고, 당신은 메뉴로 이동

 



 프로젝트 / 참조 ...

 

: 다음과 같은 항목을 선택, ADO에 대한 참조를 가져오기위한 그것은 frmDatabase 양식을 이름 텍스트 상자의 Text 속성을 빈과 txtNome 및 txtCognome로 이름을 변경하는 캡션 레이블 이름 (Name 속성을 변경하려면 귀찮게하지 않음), 2 둘 다 맞습니다. 그런 다음, cmdInserisci 임명에 CommandButton을 추가하고 삽입하는 캡션 속성을 변경합니다. 이 양식은 우리가 우리가 순간에 생성됩니다 Access 데이터베이스에 항목을 만들 수 있도록 다음과 같은 이미지가 Finel 양식의 결과를 보여줍니다 : 메뉴에서 프로젝트를 저장합니다

 



 으로 프로젝트를 저장 / 파일 ...

 

: 드라이브 C에 따라 만들 어질 수있는 테스트 폴더에

 



 C : \ 테스트

 

이 폴더 안에 당신은 (VB에서 자동으로 만들어진 페이 프로젝트 파일을 찾고, 사용자가 필드 ID (카운터), 이름 (텍스트)과 성 (姓)을 입력하는 테이블을 만들 수있는 시간이 폴더 액세스 database.mdb에서 파일을 추가합니다 텍스트), 그냥 디자인보기에서 폼 코드를 입력하고 일반 섹션에서 다음 줄을 양식을 삽입하려면이 수익을 완료 :

 노골적인 옵션







 ADODB.Connection으로 희미한 CN







 ADODB.Recordset으로 희미한 RS







 문자열로 문자열 낮추기

데이터 형식 ADODB.Connection 및 ADODB.Recordset은 상기와 같은 참조를 가져오기하여 VB에 추가되었습니다.

다음 코드를 삽입하는 하위 CommandButto 액세스에 두 번 누릅니다 :

 개인 서브 cmdInserisci_Click ()



    



 다음 렌 (트림 (txtNome.Text)) = 0면



        



 MsgBox는 vbCritical, "오류 메시지가" "이름을 입력합니다"



        



 txtNome.SetFocus



        



 출구 하위



    



 최종면



    



 다음 렌 (트림 (txtCognome.Text)) = 0면



        



 MsgBox는 vbCritical, "오류" "마지막 이름을 입력합니다"



        



 txtCognome.SetFocus



        



 출구 하위



    



 최종면





    



 문자열 = "공급자 = Microsoft.Jet.OLEDB.4.0; 데이터 소스 ="



    



 설정 CN = 새로운 ADODB.Connection



    



 RS = 새로운 ADODB.Recordset을 설정





    



 문자열 cn.Open



    



 rs.Open "사용자", CN, 3, 3





    



 rs.AddNew



        



 RS는 ( "이름") = txtNome.Text



        



 RS는 ( "이름") = txtCognome.Text



    



 rs.Update





    



 CN = 아무것도 설정하지



    



 설정 RS는 = 아무것도





    



 MsgBox "는 만들어 입력하면"vbOKOnly, "확인"







 End Sub 참고

언뜻,이 코드가 가장 경험이 선수 몇 가지 우려가 발생할 수 있습니다 다음, 우리는 하위의 각 단계에 직면.

: 이름과 성 필드가 조건이 충족되지 않고 일상의 연속을 허용하지 않으려면 하위를 종료하려면 하위 표현식 출구를 이용하여 정확하게 작성하는 제어

 다음 렌 (트림 (txtNome.Text)) = 0면



    



 MsgBox는 vbCritical, "오류 메시지가" "이름을 입력합니다"



    



 txtNome.SetFocus



    



 출구 하위







 최종면







 다음 렌 (트림 (txtCognome.Text)) = 0면



    



 MsgBox는 vbCritical, "오류" "마지막 이름을 입력합니다"



    



 txtCognome.SetFocus



    



 출구 하위







 최종면

데이터베이스 연결 문자열을 완수 조건을 생성하고 문자열 변수에 저장하려면 다음 단계를 따르십시오

 문자열 = "공급자 = Microsoft.Jet.OLEDB.4.0; 데이터 소스 ="







 : 조항 설정 변수와 연결 및 레코드 집합 개체의 새로운 인스턴스로 CN의 RS 설정으로

 





 설정 CN = 새로운 ADODB.Connection







 RS = 새로운 ADODB.Recordset을 설정



 



 내가, 내가 슬라이더와 적절한 사용하고 연결의 이름을 작업하고자하는 테이블의 이름을 전달, 데이터베이스 연결 및 쓰기 모드 Open 메서드에서 레코드를 열려면 :

 





 문자열 cn.Open







 rs.Open "사용자", CN, 3, 3



 



 테이블에 새 레코드를 추가하고 업데이 트하려면 AddNew 및 업데이트 방법을 사용하면, 다음 테이블의 레코드 필드에 단계와 해당 데이터를 포함하는 변수를 향상 :

 





 rs.AddNew



    



 RS는 ( "이름") = txtNome.Text



    



 RS는 ( "이름") = txtCognome.Text







 rs.Update



 



 나는 연결 및 레코드 집합에서 변수를 포함하는 메모리 버퍼, 특별 VB의 아무것도의 값을 설정 닦으 :

 





 CN = 아무것도 설정하지







 설정 RS는 = 아무것도



 



 마지막으로, 거래가 완료, 확인 메시지를 실행합니다 :

 
 



 MsgBox "는 만들어 입력하면"vbOKOnly, "확인"

 
 



 지금은 우리 데이터베이스에서 데이터를 읽는 방법을 보자.

 



 그것은 새 메뉴 양식을 추가합니다

 
 



 프로젝트 삽입 / 양식

 
 



 당신이 선택하고 확인 양식.

 



 그것은 이름 frmLettura 양식을 확인하고 전체 형태로 대규모로 lblDati라는 레이블을 추가

 
 



 그것은 어디 형식 자체에 더블 클릭으로 양식의 Form_Load 이벤트 ()을 액세스 및 일반 섹션에 다음 코드를 맞는 :

 





 노골적인 옵션







 ADODB.Connection으로 희미한 CN







 ADODB.Recordset으로 희미한 RS







 문자열로 문자열 낮추기



 



 Form_Load () 대신에 다음 코드를 삽입합니다 :

 





 개인 서브 Form_Load ()



    



 문자열 = "공급자 = Microsoft.Jet.OLEDB.4.0; 데이터 소스 ="



    



 설정 CN = 새로운 ADODB.Connection



    



 RS = 새로운 ADODB.Recordset을 설정





    



 문자열 cn.Open



    



 rs.Open은, CN, 1 "사용자 *을 선택한 다음"





    



 그렇다면 rs.EOF



        



 lblDati.Caption = "데이터 없음"



    



 다른



        



 동안 rs.EOF = ​​FALSE



            



 lblDati.Caption lblDati.Caption _ =



                            



 rs.MoveNext



        



 웬드족



    



 최종면





    



 CN = 아무것도 설정하지



    



 설정 RS는 = 아무것도







 End Sub 참고



 



 그냥 제출 코드의 대부분은 예를 들어 포함와는 매우 다르지 않다 : 데이터베이스 연결 문자열은 동일합니다, 당신은, 연결 및 레코드 집합을 설정하고 열고 결국납니다해야합니다.

 



 의 데이터를 읽기에 초점을 보자 :

 





 그렇다면 rs.EOF



    



 lblDati.Caption = "데이터 없음"







 다른



    



 동안 rs.EOF = ​​FALSE



        



 lblDati.Caption lblDati.Caption _ =



                        



 rs.MoveNext



    



 웬드족







 최종면



 



 다음과 다음 로직은 다음과 같습니다 : 더 테이블의 데이터, 또는 독서 테이블 레코드 (EOF - 파일의 끝)의 끝에 오면이 없다면 데이터를 찾을 수 없어되었다는 메시지를 실행하고, 그렇지 않으면 제가 루프를 만들어가 동영상 금형 라벨에있는 모든 레코드는 SQL 문자열의 꺼냈다

 
 



 사용자의 *를 선택

 
 



 독서에 대한 레코드를 설정하는 통과시켰습니다.

 
 



 <<이전 레슨

 
 



 색인 도움말

 
 





 

다음 수업>>