이번 포스팅은 지난 발주관리#3에서 만들어둔 수정 버튼에 프로시저를 만들어 연결하겠습니다. 역시 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 수정 버튼을 눌렀을때 실행될 프로시저 입니다. 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Sub 매입처_수정() '복수셀 선택시 종료 If Selection.Count > 1 Then MsgBox "수정할 하나의 셀만 선택해 주세요!", vbCritical, "오류" Exit Sub End If 'A:C열이 아니거나 1:3행일경우 종료 If Intersect(Columns("A:C"), Selection) Is Nothing Or Not Intersect(Rows("1:..
예전에 필요해서 찾아봤던 내용인데 테이블 비우는 명령어 입니다. TRUNCATE TABLE [테이블명] 테이블의 모든 내용을 삭제하며, IDENTITY를 초기화 해줍니다 테이블 내용을 삭제하는 명령어는 DELETE 명령어도 있습니다. DELETE FROM [테이블명] DELETE의 경우에는 IDENTITY의 초기화는 시켜주지 않습니다. 예를들어 1,2,3이라는 일련번호가 있는 테이블을 삭제했을경우 DELETE로 삭제한후 새로운 데이터를 입력하면 일련번호가 4부터 시작을 합니다. (일련번호 자동증가 설정을 했을경우) TRUNCATE로 삭제했을때는 일련번호가 1번부터 다시 시작합니다.
이번 포스팅은 지난 발주관리#3에서 만들어둔 버튼에 프로시저를 만들어 연결하겠습니다. 지난 포스팅에서 만들었던 유저관리폼과 함께 사용하게 됩니다. 우선 추가버튼에 연결할 프로시저를 만듭니다. 1 2 3 4 5 6 7 8 9 10 11 '매입처등록폼 불러오기 Public Sub show_매입처등록폼() With 매입처등록폼 .StartUpPosition = 0 .Left = 400 .Top = 200 .Show '매입처등록폼 불러오기 End With End Sub Colored by Color Scripter cs 추가버튼에 매크로 연결을 해주세요. 이제 매입처등록폼에 내용을 채워줘야 합니다. 좌측 프로젝트창에서 폼>매입처등록폼을 우클릭 한뒤 코드보기를 눌러주세요. 매입처등록폼에 아래의 코드를 입력해 줍니..
번호는 일련번호이며 ID 사양을 "예"로 선택해주면 1번부터 1씩 증가하는 일련번호가 자동으로 생성됩니다. 매입처명은 단순하게 매입처 이름. 구분은 차후 출력 설정 및 정렬을 위한 구분자 입니다. 번호는 int 매입처명과 구분은 nvarchar로 설정해주세요. nvarchar뒤어 (50)은 문자형의 길이를 나타냅니다. 즉, 50자의 문자형 데이터가 됩니다. 데이터 형식에서 문자형은 nvarchar을 사용하는데 저는 유니코드(중국어, 일본어등 외국어)를 사용하기 위해서 nvarchar을 사용합니다. 일반적으로는 varchar을 사용하셔도 무방합니다. 번호열은 기본키로 설정해 주세요. 일련번호는 기본키로 설정을 해줘야 중복 없이 데이터가 저장됩니다.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Option Explicit Dim Cn As ADODB.Connection Dim rs As ADODB.Recordset Dim SQL As String Sub DataBase연결() On Error Resume Next Dim a, b, c, d As String a = "DB IP 어드레스" 'IP 어드레스 b = "DB 이름" 'DB c = "ID" 'ID d = "password" 'PW Set Cn = New ADODB.Connection Set rs = New ADODB.Recordset Cn.Open "Provider = SQLOLEDB;Data Source=" & a & ";Initial Catalog= " ..
