pb7.0을 시작하고 보이지 않는 사용자 개체 "uo_customer"를 생성하고 새 "개체"를 생성한 다음 "사용자 정의 클래스"를 선택합니다.
입력하고 "확인"을 클릭하세요.
새로 생성된 사용자 개체에 다음 프로그램을 작성합니다.
1. 인스턴스 변수를 "인스턴스 변수"로 선언합니다. com에서 지원하지 않는 유형은 보호 유형으로 선언하십시오. 보호됨:
데이터스토어
2. 세 가지 새로운 멤버 함수를 만듭니다.
int uf_connect()//데이터베이스에 연결하고 데이터 저장소 객체를 생성하는 데 사용됩니다.
암호:
sqlca.dbms="odbc"
sqlca.database="webdw"
sqlca.autocommit=false
sqlca.dbparm="connectstring=''dsn=webdw;uid=dba;pwd=sql''"
sqlca를 사용하여 연결;
ds_datastore =데이터 저장소 생성
sqlca.sqlcode=0이면
1을 반환
또 다른
반환 -1
end if
void uf_disconnect()//데이터베이스 연결을 끊고 데이터 저장소 객체를 해제하는 데 사용됩니다.
isvalid(ds_datastore)인 경우 ds_datastore를 삭제합니다.
sqlca를 사용하여 연결을 끊습니다.
resultset uf_retrieve()//고객 정보 읽기
결과 집합 lrs_customers
ds_datastore.dataobject="d_customer"
ds_datastore.retrieve()
ds_datastore.generateresultset(lrs_customers)//결과 세트 생성
return lrs_customers//결과 세트를 반환합니다. 마지막으로 변경된 개체를 "uo_customers"로 저장합니다.
COM 구성 요소 프로젝트를 만들고 새 "프로젝트"를 만든 다음 "Com/mts 구성 요소 마법사"를 선택하고 확인합니다.
프로젝트의 이름 "p_recordset_com"을 정의합니다.
다음으로 사용자 개체 "uo_customer"를 선택하여 com을 생성합니다.
COM 구성 요소를 생성한 후 인터페이스 속성을 설정합니다. 여기서 기본값을 사용할 수 있습니다.
그런 다음 구성 요소의 프로그램 ID를 "pb70.uocustomer"로 직접 정의합니다.
그런 다음 com 구성 요소의 dll 파일 이름을 선택하고 "새로 만들기"를 클릭하여 "구성 요소 서버 appid"를 생성합니다.
또한 "유형 라이브러리 ID"를 생성합니다. 마지막으로 pb 리소스 파일 이름과 등록 방법을 선택하면 시스템이 사용자 설정에 대한 일반 정보를 제공한 다음 "할 일 목록"을 생성하도록 선택합니다.
이로써 "p_test_com"이라는 COM 구성 요소를 생성하는 프로젝트가 완료됩니다.
프로젝트를 컴파일하고 구성 요소를 등록합니다. 생성된 프로젝트를 열고 해당 pbl 파일과 사용자 개체를 선택한 후 컴파일합니다.
다음으로 이 pb com을 호출하는 asp 웹 페이지를 만듭니다.
<head><title>pb com</title></head>
<본문>
<%
고객=server.createobject("pb70.uo_customers") 설정
iflag=customers.uf_connect()
rs=customers.uf_retrieve()를 설정합니다.
'www.downcodes.com
%>
<테이블>
<%rs.movefirst
rs.eof가 아닌 동안 수행
%>
<tr>
<td><%=rs("lname")%></td>
<td><%=rs("주소")%></td>
<td><%=rs("city")%></td>
</tr>
<%rs.movenext
고리
RS.닫기
고객.uf_disconnect()
%>
</table>
</body>
asp 파일로 저장하세요.
마지막으로 브라우저에서 asp 파일을 찾아볼 수 있습니다.
참고: pb7.0과 pb8.0은 기본적으로 동일합니다.