きょうちゃんの独り言

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

msec の演算方法では
AddMilliseconds
を使用します。

// 21 ミリ秒加算
dtTimes = dtTimes.AddMilliseconds(21)

// 21 ミリ秒減算
dtTimes = dtTimes.AddMilliseconds(-21)

// 結果を表示する msecは .fff
MessageBox.Show(dtTimes .ToString("yyyy/MM/dd hh:mm:ss fff"));

配列宣言時の初期化について


'１０個の要素を０で初期化
Dim　Int_Data(9) As Integer

Int_Data(0) =0
から
Int_Data(9) =0
まで設定

'５個の要素に順番に設定して初期化する
Dim int_data() As Integer = {1, 2, 3, 4, 5}

ファイル、ディレクトリが存在するかどうかを調べる方法

System.IO.File.Exists
ファイルが存在しているか調べることができます。
ファイルが存在していればFile.ExistsがTrueを返します。

System.IO.Directory.Exists
ディレクトリがある場合はDirectory.ExistsがTrueを返します。

If System.IO.File.Exists(fileName) Then
'存在します
Else
'存在しません
End If

DataGridViewの列にチェックボックスを追加する方法は以下
DataGridView1に'CheckBox列を追加する例としては以下


Dim Check_column As New DataGridViewCheckBoxColumn
DataGridView1.Columns.Add(Check_column )

VB.NET OS Update で起動エラーが出ることがありますが
復旧インストールを実行したら回避できます。
NET Framework3.5 の問題の様なので　4.0 以上を使用している場合エラーが出ていても支障はありません

DataGridViewの編集の反映方法

DataGridView1.EndEdit()

DataGridViewは、編集が出ている状態を終わらせないと、
変更が確定されていない状態となる。
上記のEndEdit()をプログラム内で必ず呼ぶようにするようにする。

SQL分を実行する(UPDATE INSERT DELETE)

Public Function SQLExec(GetSQLStatement As String) As Boolean
SQLExec = False


Try


Dim stConnectionString As String
Dim strServer As String
strServer = "サーバ名"


If strServer = "" Then
MsgBox("接続サーバを入力してください。")
Exit Function
End If


Dim sDBSever As String
Dim sDBName As String
Dim sLoginID As String
Dim sPassWD As String

sDBSever = strServer & "\SQLEXPRESS"


sDBName = "TEST"
sLoginID = "XX"
sPassWD = "PPPPPPPP"

'接続文字列
stConnectionString = "Provider=Sqloledb;Data Source=" & sDBSever _
& ";Initial Catalog=" & sDBName _
& ";Connect Timeout=15" _
& ";user id=" & sLoginID _
& ";password=" & sPassWD _
& ""


'----------------------------------------------------
' ADODB.Connection の新しいインスタンスを生成する
'----------------------------------------------------
Dim cAdoConnection As ADODB.Connection



cAdoConnection = New ADODB.Connection

'----------------------------------------------------
' データベース接続を開く
'----------------------------------------------------
Call cAdoConnection.Open(stConnectionString)

Dim strSQL As String
'Dim LikeStr As String
'LikeStr = "%"



strSQL = GetSQLStatement



Dim cRecordset As New ADODB.Recordset






Call cRecordset.Open(strSQL, cAdoConnection, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockPessimistic)



'cRecordset.Update()


L_finally:
' レコードセットを閉じる (正しくは オブジェクトの破棄を保証する を参照)
If Not cRecordset Is Nothing Then


cRecordset = Nothing
End If


If Not cAdoConnection Is Nothing Then


cAdoConnection = Nothing
End If



SQLExec = True
Catch ex As Exception
SQLExec = False
End Try
End Function

ASP.NET VB.NET

ASP.NETアプリケーションの配布は以下手順。
1.配布用プロジェクトの作成
　配布用のプロジェクトを現在のアプリケーションに
　追加作成します。
　どんなファイルをインストール対象とするかを指定したり、
　プロパティを通じて、IISの仮想ディレクトリの設定なども
　行います。
2.配布用パッケージの作成
　ビルドすると作成されます。CD,DVDなどで配布可能です。

'ストップウオッチの宣言
Dim stopw As New System.Diagnostics.Stopwatch()


'ストップウオッチのスタート
stopw.Start()



'ストップウオッチのストップ
stopw.Stop()

'経過秒の計算
Dim TimeVal
TimeVal = stopw.ElapsedMilliseconds / 1000

ASP.NET VB.NET WEBの設定
WEBサーバ内のファイルをアクセスさせる場合はそのデイレクトリに適切なユーザー権限を付加する必要があります。
特にIISなどcドライブについては設定しないとほぼアクセスできなくなっています。