Select Case 문자열 Case Insert '등록 If MsgBox("등록하시겠습니까?", MsgBoxStyle.OkCancel, "등록") = MsgBoxResult.Cancel Then Exit Sub End If Case Search '조회 If MsgBox("조회하시겠습니까?", MsgBoxStyle.OkCancel, "조회") = MsgBoxResult.Cancel Then Exit Sub End If Case Update '수정 If MsgBox("수정하시겠습니까?", MsgBoxStyle.OkCancel, "수정") = MsgBoxResult.Cancel Then Exit Sub End If Case Delete '삭제 If MsgBox("삭제하시겠습니까?", MsgBoxStyle.O..

If CRUD = "I" Then Try Dim BamCommand As New OracleCommand(SQLCommandText, BamDataBase) Dim Excuted As Integer = BamCommand.ExecuteNonQuery() If Excuted = 1 Then WriteToStatusBar("정상적으로 등록되었습니다", MdiParent) End If Catch E As Exception OracleErrorMessage(E) End Try Else Dim BamCommand As New OracleCommand(SQLCommandText, BamDataBase) Try Dim myReader As OracleDataReader myReader = BamCommand.Exec..

KeyDown 이벤트를 만들어 봅시다 Private Sub KeyDown(ByVal sender As System.Object, ByVal e As System. Windows.Forms.KeyEventArgs) Handles .KeyDown '비주얼 베이직입니다. End Sub 버튼이 눌러졌을 때 어떤것이 뜨는지 확인 하려면 MessageBox.Show(e.keyCode) MessageBox.Show(e.shift) 찍어보시면 숫자로 뜨게 됩니다. 다음은 Ctrl + C 를 눌렀을때 발생하게 됩니다. If e.keyCode = 67 And e.shift = 2 Then MessageBox.Show("Ctrl + C") End If아래는 2005 이전에서 사용했던거 같습니다. 2005 이전버전이 없기에 ..

Oracle Hints 모음 Oracle Optimizer Hints /*+ ALL_ROWS */ explicitly chooses the cost-based approach to optimize a statement block with a goal of best throughput (that is, minimum total resource consumption) 가장 좋은 단위 처리량의 목표로 문 블록을 최적화하기 위해 cost-based 접근 방법을 선택합니다. (즉, 전체적인 최소의 자원 소비) /*+ CHOOSE */ causes the optimizer to choose between the rule-based approach and the cost-based approach for a SQL ..

우연찮은 기회에 Crystal Report를 사용하게 되었다. 처음 사용하는 거라서 완전 삽질 할거라는 예상과 달리 사용하긴 상당히 편했다. 조금 아쉬운거라면 Crystal Report를 사용하는 사람들이 적어 질문을 하기도, 검색해서 자료 찾아보기가 여간 힘들지 않은게 아니다. 드디어 Crystal Report페이지를 만들고 출력할 수 있는 Form을 만들어 이제 빌드해서 배포하는 것만 남았었다. 그런데 일은 여기서 시작되었다. 프로젝트를 빌드하고 배포하려고 내컴퓨터에 설치하고 돌리는데 이상없이 잘 되었다 그런데 !!!!!!!!!! 다른 사람에게 설치하였더니 실행시키자마자 Exception 발생 ..... 위에 말했던 것처럼 사용할땐 무지 편하다. 하지만 배포할 땐 모르는 사람은 한참 삽질하게 만드는 ..

private void ToolStripMenuItem_Click(object sender, EventArgs e) { if (GetForm("Incident") == false) { Incident incidentForm = new Incident(); incidentForm.MdiParent = this; incidentForm.Show(); } } public Boolean GetForm(String SearchForm) { foreach (Form frmChildForm in this.MdiChildren) { if (frmChildForm.Name == SearchForm) { frmChildForm.Activate(); return true; break; } } return false; }

Dim mstrRecvData As String Dim 호스트ip As String = 서버아이피 Dim 호스트port As String = 서버포트 Dim 로그인Prompt As String = "login:" '로그인시 아이디를 입력할 시기를 알기 위해 아이디를 입력해야할 프롬프트 명을 입력 Dim 로그인ID As String = 아이디 Dim 비밀번호Prompt As String = "Password:" '로그인시 패스워드를 입력할 시기를 알기 위해 아이디를 입력해야할 프롬프트 명을 입력 Dim 비밀번호 As String = 패스워드 Dim strPrompt As String = 첫화면의 프롬프트(폴더명) Dim DBIO생성위치 As String = 프로그램(.SH)가 위치한 경로 Dim GENSH..

NotifyCnt = 0 ' 송신내용 Dim sndstr As New TypedString(6344) ' 수신내용 Dim rcvstr As New TypedCArray(6344) ' 접속서버 환경설정 Utils.tuxputenv("WSNADDR=//서버아이피" + 서버포트번호) ' TPINIT Dim tpinfo As New TypedTPINIT() Dim ac As AppContext = AppContext.tpinit(tpinfo) ac.tpsetunsol(New UnsolicitedMessageHandler(AddressOf MyUMHandler)) sndstr.PutString(0, SendStr, SendStr.Length) Try ac.tpcall("BNCSIN", sndstr, rcvstr,..