Friends please help me yaar I m in problem

On Dec 8, 2:55 pm, Faisal <[EMAIL PROTECTED]> wrote:
> 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