프로그램 개발/VB6.0
VB6.0 세자리 콤마(,) 로 구분하기
Format 함수를 이용하면 간단히 해결 가능 1234dim data as stringdata = "1500000"Format(data, "###,0")'1,500,000 이런식으로 출력된다!cs
프로그램 개발
프로그램 개발/VB6.0
FarPoint Spread 틀 고정 하기
1234567'FapPoint Spread 틀 고정'엑셀에서 사용하는 틀고정 기능과 동일한 기능 수행with fpSpread1 .RowsFrozen = 3 '가로틀고정 .ColsFrozen = 2 '세로틀고정end with cs 간단하게 해결!
프로그램 개발/DB(MSSQL)
프로시저로 RecordSet 넘기기
무심코 습관적으로 넘어가기 쉬운 SET NOCOUNT ON/OFF RecordSet을 리턴하는 프로시저를 만들었다. CREATE PROCEDURE dbo.getNewNumber BEGIN DECLARE @NEW_NUM INT SET @NEW_NUM = 1 SELECT @NEW_NUM END Visual Basic에서 다음과 같이 받는다. Dim rs as new ADODB.RecordSet Dim strSql as String Dim res as Long strSql = "EXEC dbo.getNewNumber" rs.open strSql, conn res = rs(0) rs.close 하지만 절대 리턴값을 받지 못할 것이다. 왜냐하면 SET NOCOUNT ON이 빠져있기 때문이다. CREATE PROC..
프로그램 개발/Jquery
크롬 개발자도구(chrome console)에서 jquery 사용하기
var jq = document.createElement('script'); jq.src = "https://ajax.googleapis.com/ajax/libs/jquery/1/jquery.min.js"; document.getElementsByTagName('head')[0].appendChild(jq); // ... give time for script to load, then type. jQuery.noConflict(); 이 코드를 추가해주면 사용가능해진다!
프로그램 개발/VB6.0
For문에 continue
VB6.0은 FOR문 안에 CONTINUE 문을 넣을수가 없어서 조건 해당시 다음 FOR문으로 넘어갈 수가 없다. 때문에 어쩔수없이 GOTO문 이용해서 NEXT로 바로 가도록 설정해줘야 한다. 123456For I = 1 To N If SomeCondition Then GoTo NextIteration NextIteration: Next Ics
프로그램 개발/VB6.0
Spread 안에 Combobox 추가하기
1234567891011121314151617181920 'spread 이름 , 쿼리문 , row , col , 콤보박스에 넣을 데이터Private Sub SpreadComboSetting(Sp As Control, Str As String, iRow As Long, iCol As Long, Data As String) Dim Rs2 As New ADODB.RecordsetRs2.Open Str, Cn, adOpenStatic, adLockReadOnly Sp.TypeComboBoxClear iCol, iRow If Not Rs2.EOF Then With fpSpread1 Do While Not Rs2.EOF .Row = iRow '해당하는 col 부분에 콤보박스 추가해준다. + 연산자 이용 .Col =..
프로그램 개발/VB6.0
EnterKey 눌렀을 때 활성화된 row값 받아와서 뿌려주기
1234567891011121314fpSpread1.Row = fpSpread1.ActiveRow '활성화된 row값 받아오기fpSpread1.Col = 1 'Form5 작업단위 바꿔주고 , 코드값 변경Form5.InsaCodeTextBox.Text = fpSpread1.Text InsaCode = fpSpread1.Text fpSpread1.Col = 2Form5.InsaNameTextBox.Text = fpSpread1.Text InsaName = fpSpread1.Text Unload MeColored by Color Scriptercs
프로그램 개발/VB6.0
fpspread 콤보박스 값 넣고 선택하기
1234567891011121314151617181920212223242526 Str = "SELECT * from dbo.workgrmst" Rsc.Open Str, Cn, adOpenStatic, adLockReadOnly If Not Rsc.EOF Then Do Until Rsc.EOF j = j + 1 '해당하는 콤보박스에 값을 추가해 주고 .TypeComboBoxIndex = j .TypeComboBoxString = Rsc!WorkGrCode & ":" & Rsc!WorkGrName '콤보박스에서 해당하는 이름이 같으면 해당 셀로 선택해준다. If Rsc!WorkGrName = Rs!WorkGrName Then '!!!선택!!!!! .TypeComboBoxCurSel = j End If Rsc..
