VB 가 ACCESS 데이터베이스에서 레코드를 조회, 추가, 삭제 및 수정하는 코드는 무엇입니까?

프로그램 수정 버튼 \ x0d \ private subc medit _ click () \ x0d \ SQL = "select * from stop time statistics where 텍스트 &) 및 ycqk =' "& ampCombo 1. 텍스트 & 및 id =' "& ampDataGrid 1 열 (2). CellText(DataGrid 1. 북마크) & amp" \x0d\rs. Open SQL, DM, adOpenDynamic, adLockOptimistic \x0d\rs. Field(" id ")= text 7 입니다. 텍스트 \x0d\rs. Fields ("ycqk") = 콤보1. 텍스트 \x0d\ RS. Fields ("date1") = text1. 텍스트 \x0d\rs. Fields("time 1") = Text2. 텍스트 \x0d\rs. Fields("date2") = Text3 입니다. Text \ x0d \ rs.fields ("time2") = text4.text \ x0d \ rs.update \ x0d \ rs.close StrFCode = DataGrid 1. 열 (0). CellText(DataGrid 1. 북마크) \ x0d \ str code = datagrid 1. 열 (2). CellText(DataGrid 1. 북마크) \x0d\ Strccode = datagrid 1. 열 (1). Celltext (datagrid 1. 북마크) \ x0d \ SQL = "select * from stop statistics where date ='"&str fcode & 그리고 id =' "& ampstrSCode & amp 및 ycqk ='" & ampstrccode & amp \ x0d \ rs.open SQL, DM, adopen dynamic Rs.update \ x0d \ rs.close \ x0d \ endsub \ x0d \' 프로그램의 추가 버튼 \Private 하위 명령1 Sql = "select * from stop time statistics order by id" \ x0d \ rs.open SQL, DM, adopen dynamic, ad lock optimic Fields("date") = Date \x0d\rs 입니다. Field(" id ")= text 7 입니다. 텍스트-1\ x0d \ RS. Fields ("ycqk") = 콤보1. 텍스트 \x0d\ RS. Fields ("date1") = text1. 텍스트 \x0d\rs. Fields("time 1") = Text2. 텍스트 \x0d\rs. Fields("date2") = Text3 입니다. 텍스트 \x0d\ RS. Fields("time2") = Text4 입니다. 텍스트 \x0d\rs. \x0d\rs 를 업데이트합니다. Adodc 1 끄기 \ x0d \ \ x0d \ adodc 1 을 사용합니다. Connectionstring = "공급자 = Microsoft. Jet. OLEDB.4.0 데이터 소스 = "& ampApp. 경로 및 경로. "\ db1.MDB; Persist security info = false "\ x0d \ adodc1.record source =" select * from stop-time state 텍스트 &) 및 ycqk =' "& ampCombo 1. 텍스트 & id 별 정렬 "\x0d\Adodc 1. 새로 고침 \x0d\DataGrid 1. 새로 고침 \x0d\End With \x0d\End Sub