0
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form1
    Dim connetionString As String

    Dim connection As SqlConnection

    Dim adapter As New SqlDataAdapter

    Dim sql As String



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connetionString As String

        Dim cnn As SqlConnection

        connetionString = "Data Source=obeng\obeng;Initial Catalog=mangementsystem;integrated security=true"

        cnn = New SqlConnection(connetionString)

        Try

            cnn.Open()

            'MsgBox("Connection Open ! ")

            cnn.Close()

        Catch ex As Exception

            MsgBox("Can not open connection ! ")

        End Try
    End Sub
2
Contributors
1
Reply
6
Views
3 Years
Discussion Span
Last Post by Reverend Jim
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.