あることが調べたくてここまで書いてしまった^^;
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim strConnectionString As String = "User ID=sa;Password=sa;Initial Catalog=Hoge;Data Source=(local)\SQLExpress"
Dim objConn As New SqlConnection(strConnectionString)
Dim strSQL As String = ""
Dim objCmd As Object
Dim slqReader As SqlDataReader
Try
objConn.Open()
'Data Insert STA
strSQL = "TRUNCATE TABLE AAA"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
For i = 1 To 2
If i = 1 Then
strSQL = "INSERT INTO AAA (AAA,CREDATE) VALUES (" & i & ", CURRENT_TIMESTAMP)"
Else
strSQL = "INSERT INTO AAA (AAA) VALUES (" & i & ")"
End If
objCmd = New SqlCommand(strSQL, objConn)
objCmd.ExecuteNonQuery()
Next
'Data Insert END
'Data Select STA
strSQL = "SELECT AAA,CREDATE FROM AAA"
objCmd = New SqlCommand(strSQL, objConn)
slqReader = objCmd.ExecuteReader()
While slqReader.Read()
If IsDBNull(slqReader!CREDATE) Then
'Nullの場合
MsgBox(slqReader!AAA & "のCREDATEはNullです。")
Else
'Nullではない場合
MsgBox(slqReader!AAA & "のCREDATEは'" & slqReader!CREDATE & "'です。")
End If
MessageBox.Show(slqReader!CREDATE.ToString.Length)
'Console.WriteLine(String.Format("{0}, {1}", reader(0), reader(1)))
End While
'Data Select END
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
objConn.Close()
objConn.Dispose()
'objCmd = Nothing
'objConn = Nothing
End Try
MessageBox.Show("END")
End Sub
変数に Nothing をセットしてもリソースは解放できません