SMH/Module (6) 썸네일형 리스트형 PB_DLL File Exists Check IF FileExists("C:\병원업무\공통DLL\kppodb.dll") Then run("regsvr32 /s C:\병원업무\공통DLL\kppodb.dll") End If IF FileExists("C:\병원업무\공통DLL\kppoupdate.dll") Then run("regsvr32 /s C:\병원업무\공통DLL\kppoupdate.dll") End If PB_File log make /* 파일 출력 */ //string ls_string, ls_fname //integer outfile, loops //long l, ll_len // //ls_fname = "d:\log.txt" // //outfile = fileopen(ls_fname, LineMode!, Write!, LockWrite!, Append!) // //ll_len = len(ls_rqst) //filewrite(outfile, ls_rqst) // //ll_len = len(ls_rspn) //filewrite(outfile, ls_rspn) // //fileclose(outfile) VB_주민번호체크(내국인+외국인) ' str : 주민번호 입력(13자리) Function chk_Jumin(str As String) As Boolean Dim i_Sum As Integer Dim i_Odd As Integer Dim i_Arr(13) As Integer Dim s_Jumin1 As String Dim s_Jumin2 As String Dim s_YY As String Dim s_MM As String Dim s_DD As String Dim i_N As Integer Dim Genda As String Dim i As Integer s_Jumin1 = Mid(str, 1, 6) s_Jumin2 = Mid(str, 7, 7) s_YY = Mid(s_Jumin1, 1, 2) s_MM = Mid(s_Jumin1, 3, 2).. VB_file write Private Sub Form_Load() Dim A1 As String Dim A2 As String Dim A3 As String Dim A4 As String Dim FileNumber As Integer Dim TheFileName As String FileNumber = FreeFile TheFileName = "TEST1.txt" A1 = "TEST" A2 = "00000000" A3 = "김춘식" A4 = "20060203" Open TheFileName For Output As #FileNumber ' 기존파일열때 내용이 삭제됨 'Open TheFileName For Append As #FileNumber '기존파일 끝에 내용을 쓸때 Print #FileNumber, A1 + A2 + A3.. VB_farpoint Initailize Private Sub SS_Clear() Dim I, J As Integer Dim strT1, strT2 As String SS1.Row = 1: SS1.Row2 = SS1.MaxRows SS1.Col = 1: SS1.Col2 = SS1.MaxCols For I = 0 To I < SS1.Row2 For J = 0 To J < SS1.Col2 SS1.Row2 = I SS1.Col2 = J SS1.Text = "" Next J Next I SS1.BlockMode = True SS1.Text = "" SS1.BlockMode = False End Sub VB_DB Connection(MSSQL/MYSQL/DB2/ORACLE) Option Explicit Public adocn As New ADODB.Connection Public adocn2 As New ADODB.Connection Public adocn3 As New ADODB.Connection Public adocn4 As New ADODB.Connection Public adors As New ADODB.Recordset Public adoPara As New ADODB.Parameter Public AdoCmd As New ADODB.Command Public Result As Integer Public nMPointer As Integer Public rowindicator As Long Public strMsg As String Public strSQL As .. 이전 1 다음