Hi dudes I have one project in hand and completely struck in that hope
any geniuses can help ;-)
In this project my application connects to HMS.mdb through SQL server
(I don't know hoe but it does on my pals computer) but when I try to
do it on my pc it says "Error connecting database :Named PIPES".
Then i changed it and pushed my Server name there now it connects but
it needs to be converted in mdf format
So question is how is this i.e HMS.mdb is working on my friends pc but
not mine.
Also my application uses some SQL Query Commands for database
processing.
Hope anyone can help
Thanx in advance.
Suspicious Code:

    Public Sub Connect_SQL()
        gConSer = New SqlClient.SqlConnection
        gConSer.ConnectionString = "Data Source=" & gServer &
";Persist Security Info=True;User ID=sa;password=sa;Initial Catalog="
& gSysDB & ";Connect Timeout=40"
        Try
            gConSer.Open()
            gConSer.Close()
        Catch ex As SqlClient.SqlException
            MsgBox(Err.Description & Chr(13), vbInformation +
MsgBoxStyle.Exclamation, "Error in connecting to SQL Server")
            MsgBox("Program will now terminate. Please CALL SYSTEM
SUPPORT!", MsgBoxStyle.Information, "Call System Support")
            End
        End Try
    End Sub

Check THIS ALSO:-

    Public Sub Connect_SQL()
        gConSer = New SqlClient.SqlConnection
        gConSer.ConnectionString = "Data Source=" & gServer &
";Persist Security Info=True;User ID=sa;password=sa;Initial Catalog="
& gSysDB & ";Connect Timeout=40"
        Try
            gConSer.Open()
            gConSer.Close()
        Catch ex As SqlClient.SqlException
            MsgBox(Err.Description & Chr(13), vbInformation +
MsgBoxStyle.Exclamation, "Error in connecting to SQL Server")
            MsgBox("Program will now terminate. Please CALL SYSTEM
SUPPORT!", MsgBoxStyle.Information, "Call System Support")
            End
        End Try
    End Sub


Reply via email to