2015년 1월 26일 월요일

[액세스VBA] 레코드 갯수(record count)

Private Sub Command1_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
 
    Dim rsCount As Integer
    Dim queryNameOrSQL As String
 
    queryNameOrSQL = "select * from excel"
 
    Set db = CurrentDb
    Set rs = db.OpenRecordset(queryNameOrSQL)
    rs.MoveLast
 
    rsCount = rs.recordCount

    Text1.Value = rsCount
End Sub



excel : 테이블 이름(table name)

2015년 1월 19일 월요일

[엑셀함수]특정 문자 지우기

=SUBSTITUTE(A1,"특정","")

[엑셀VBA]마지막행 구하기

Lastrow = Sheet1.Range("A65536").End(xlUp).Row + 1





Sub LastRowInOneColumn()
'Find the last used row in a Column: column A in this example
    Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub

Sub LastColumnInOneRow()
'Find the last used column in a Row: row 1 in this example
    Dim LastCol As Integer
    With ActiveSheet
        LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
    MsgBox LastCol
End Sub

2015년 1월 15일 목요일

[MSSQL]레코드 생성일자 추가

"레코드생성일자" DATETIME NOT NULL DEFAULT 'getdate()',
"레코드수정일자" DATETIME NOT NULL DEFAULT '' ON UPDATE CURRENT_TIMESTAMP,

ALTER TABLE stock ADD "레코드생성일자2" DATETIME NOT NULL DEFAULT 'GETDATE()';

ALTER TABLE stock ADD CONSTRAINT DF_YourTable DEFAULT GETDATE() FOR YourColumn

ALTER TABLE dbo.MyTable ADD CONSTRAINT my_Con DEFAULT GETDATE() for created UPDATE MyTable SET Created = GetDate() where Created IS NULL ALTER TABLE dbo.MyTable ALTER COLUMN Created DATETIME NOT NULL

2015년 1월 10일 토요일

[번외:해외직구스마트폰]How To Buy

주의사항
1. 언락여부
2. 국내 주파수 지원
3. 한국어 지원 여부

국내 이통사 4G LTE 주파수 할당
- SKT: Band3 (1800MHz), Band5 (850MHz)
- KT: Band3 (1800MHz), Band8 (900MHz)
- LGU+: Band1 (2100MHz), Band5 (850MHz), Band7 (2600MHz)

Network: 4G: FDD-LTE 800/900/1800/2100/2600 MHz

해외쇼핑몰 검색어 : unlocked smartphone lte [사용하는 이통사 주파수] <--- KT면 900, 1800

2015년 1월 6일 화요일