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>