VB 에서 "데이터 업데이트" 기능을 구현하는 방법은 무엇입니까?

일반적으로 webbrowser 컨트롤을 사용하여 지정된 웹 페이지를 열고 웹 페이지의 지정된 내용을 가져온 다음 ado 컨트롤을 사용하여 데이터베이스에 데이터를 배치합니다. 나는 최신 이색구 개상 결과를 얻기 위해 비유를 했다.

개인 하위 명령 1_Click ()

서기 = webbrowser1.document.all.tags ("표"). 항목 (0). Rows.item (1). Cells.item (0) 입니다. "innertext" 차단 문제 번호입니다.

Hq = webbrowser1.document.all.tags ("테이블"). 항목 (0). Rows.item (1). Cells.item (1). Innertext' 가 빨간 공을 가로챘다.

Lq = webbrowser1.document.all.tags ("테이블"). 항목 (0). Rows.item (1). Cells.item (2) 입니다. Innertext' 가 파란 공을 가로챘다.

Adocn 입니다. Open "공급자 = Microsoft. Jet. OLEDB.4.0 데이터 소스 = "& ampApp. 경로 및 경로. "₩ aa.mdb; Persist securityinfo = false "'데이터베이스가 열립니다.

Adocn 입니다. 이색구 삽입 (발행번호, 레드볼, 블루볼) 숫자 ("&; 서기 &,' "& 본사 및'" & amplq & amp)'' 데이터 입력

Adocn.close' 가 데이터베이스를 종료합니다.

끝단 접합

개인 하위 양식 _Load ()

Webbrowser1.navigate "/play _ list _ game _ 5.html"' 지정된 웹 페이지를 엽니다.

끝단 접합