処理
開始
開始
Sub 処理_開始()
'開始処理
Application.StatusBar = "開始"
Application.Cursor = xlWait Application.DisplayAlerts = False Application.ScreenUpdating = False Application.CutCopyMode = False End Sub
'開始処理
Application.StatusBar = "開始"
Application.Cursor = xlWait Application.DisplayAlerts = False Application.ScreenUpdating = False Application.CutCopyMode = False End Sub
終了
終了
Sub 処理_終了()
'終了処理
Application.CutCopyMode = False
Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Cursor = xlDefault Application.StatusBar = False
End Sub
'終了処理
Application.CutCopyMode = False
Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Cursor = xlDefault Application.StatusBar = False
End Sub
エラーメッセージ
エラーメッセージ
Sub 処理_エラーメッセージ()
'エラーメッセージ表示
On Error Resume Next MsgBox 100 / 0 If Err.Number <> 0 Then MsgBox Err.Description & "(" & Err.Number & ")", vbCritical End If On Error GoTo 0
End Sub
'エラーメッセージ表示
On Error Resume Next MsgBox 100 / 0 If Err.Number <> 0 Then MsgBox Err.Description & "(" & Err.Number & ")", vbCritical End If On Error GoTo 0
End Sub
エラー処理
エラー処理
Sub 処理_エラー処理()
On Error Resume Next Err.Clear If Err.Number <> 0 Then MsgBox "エラー" Exit Sub End If On Error GoTo 0 End Sub
On Error Resume Next Err.Clear If Err.Number <> 0 Then MsgBox "エラー" Exit Sub End If On Error GoTo 0 End Sub
接続実行切断
接続実行切断
'「Microsoft ActiveX Data Objects X.X Library」を有効にする。
'Windows認証で接続する場合Public Const PROVIDER As String = "SQLOLEDB"Public DATA_SOURCE As String 'サーバ名Public DATABASE As String 'データベース名
'SQL Server認証で接続する場合Public Const USER_ID As String = "UID=user" 'ユーザIDPublic Const PASSWORD As String = "password" 'ユーザパスワード
Public cn As New ADODB.ConnectionPublic rs As New ADODB.Recordset
Public strSQL As String
Sub データベース_接続実行切断()
'■ サーバー情報設定 DATA_SOURCE = "PC1665\SQLEXPRESS" DATABASE = "KZSDB_xxxxx" '-------------------------------- ' データベース接続 '-------------------------------- 'Windows認証で接続する場合 cn.ConnectionString = "Provider=" & PROVIDER _ & ";Data Source=" & DATA_SOURCE _ & ";Initial Catalog=" & DATABASE _ & ";Trusted_Connection=Yes" cn.Open
' 'SQL Server認証で接続する場合' cn.ConnectionString = "Provider=" & PROVIDER _' & ";Data Source=" & DATA_SOURCE _' & ";Initial Catalog=" & DATABASE _' & ";UID=" & USER_ID _' & ";PWD=" & PASSWORD' cn.Open
strSQL = "SELECT MAX([SIKIBETSUNO]) FROM TBL_JJYUKI" Debug.Print strSQL '-------------------------------- ' SQLの実行 '-------------------------------- If Not rs Is Nothing Then Set rs = Nothing End If rs.Open strSQL, cn
If rs.RecordCount > 0 Then Debug.Print "⇒SIKIBETSUNO=" & rs![SIKIBETSUNO] Else Debug.Print "⇒s.RecordCount=" & rs.RecordCount End If
'-------------------------------- ' データベース切断 '-------------------------------- If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If
End Sub
'Windows認証で接続する場合Public Const PROVIDER As String = "SQLOLEDB"Public DATA_SOURCE As String 'サーバ名Public DATABASE As String 'データベース名
'SQL Server認証で接続する場合Public Const USER_ID As String = "UID=user" 'ユーザIDPublic Const PASSWORD As String = "password" 'ユーザパスワード
Public cn As New ADODB.ConnectionPublic rs As New ADODB.Recordset
Public strSQL As String
Sub データベース_接続実行切断()
'■ サーバー情報設定 DATA_SOURCE = "PC1665\SQLEXPRESS" DATABASE = "KZSDB_xxxxx" '-------------------------------- ' データベース接続 '-------------------------------- 'Windows認証で接続する場合 cn.ConnectionString = "Provider=" & PROVIDER _ & ";Data Source=" & DATA_SOURCE _ & ";Initial Catalog=" & DATABASE _ & ";Trusted_Connection=Yes" cn.Open
' 'SQL Server認証で接続する場合' cn.ConnectionString = "Provider=" & PROVIDER _' & ";Data Source=" & DATA_SOURCE _' & ";Initial Catalog=" & DATABASE _' & ";UID=" & USER_ID _' & ";PWD=" & PASSWORD' cn.Open
strSQL = "SELECT MAX([SIKIBETSUNO]) FROM TBL_JJYUKI" Debug.Print strSQL '-------------------------------- ' SQLの実行 '-------------------------------- If Not rs Is Nothing Then Set rs = Nothing End If rs.Open strSQL, cn
If rs.RecordCount > 0 Then Debug.Print "⇒SIKIBETSUNO=" & rs![SIKIBETSUNO] Else Debug.Print "⇒s.RecordCount=" & rs.RecordCount End If
'-------------------------------- ' データベース切断 '-------------------------------- If Not rs Is Nothing Then If rs.State = adStateOpen Then rs.Close Set rs = Nothing End If If Not cn Is Nothing Then If cn.State = adStateOpen Then cn.Close Set cn = Nothing End If
End Sub