VB.Net/Database ADO.net/Db2

Connection to IBM Db2

<source lang="vbnet"> Imports System Imports System.Data Imports IBM.Data.DB2 public class MainClass

  Shared Sub Main()
     Dim connString As String = "database = databaseName;"
     Dim conn As New DB2Connection(connString)
     Try
        conn.Open()
        Console.WriteLine("Connection Opened")
        Console.WriteLine("Connection Properties")
        Console.WriteLine("- ConnectionString : {0}",conn.ConnectionString)
        Console.WriteLine("- Database : {0}", conn.Database)
        Console.WriteLine("- ServerVersion : {0}",conn.ServerVersion)
        Console.WriteLine("- State : {0}", conn.State)
     Catch ex As DB2Exception
        Console.WriteLine("Error: " & ex.ToString())
     Finally
        conn.Close()
        Console.WriteLine("Connection Closed")
     End Try
  End Sub

End Class

      </source>