Leo
Wed Jun 02 07:13:39 CDT 2004
Hi,
Obviously the connection has problems, that's why it can't open it, and in
your "finally" part it can't close it either, since it wasn't opened.
I think you can isolate the problem by just creating the connection, open
and close it. The same will happen then.
If the connection does work sometimes, then there isn't anything wrong with
your application, or MDAC. Rather you may be experiencing a network problem,
or a SQL problem.
use try and catch while opening the connection, and check the error
description and source that it will return.
Leo
"DraguVaso" <pietercoucke@hotmail.com> wrote in message
news:O4AnFR%23REHA.1448@TK2MSFTNGP11.phx.gbl...
> Ok, I modified my source-code a little bit so I can se where it goes
wrong:
>
> This is my function:
>
> Private Sub ShowClientInfo(ByVal strIndice As String)
> If strIndice.Length <= 0 Then
> txtInfo.Text = "No Identification"
> Exit Sub
> End If
>
> Dim strSql As String
> strSql = "SELECT TOP 1 (tdprNFoy + tdprNCCD) AS DossierNr,
> (tcliLSigl1 + ' ' + tcliLNomPren1) AS Cl1, " & _
> "(tcliLSigl2 + ' ' + tcliLNomPren2) AS Cl2, tdcaNCartphy, Auto,
> Choice " & _
> "FROM tblCalls LEFT JOIN tblDossiers ON tblCalls.DossierID =
> tblDossiers.DossierID " & _
> "WHERE (Indice = '" & strIndice & "') " & _
> "ORDER BY CallID DESC"
>
> MessageBox.Show("a1")
> Dim dtrSql As SqlDataReader
> Dim conSql As SqlConnection
> conSql = New SqlConnection(strConn)
> Dim cmdSql As SqlCommand
> MessageBox.Show("a2" & conSql.ConnectionString)
> Try
> MessageBox.Show("a3")
> conSql.Open()
> MessageBox.Show("a4")
> cmdSql = New SqlCommand(strSql, conSql)
> MessageBox.Show("b")
> dtrSql = cmdSql.ExecuteReader(CommandBehavior.SingleRow)
> MessageBox.Show("c")
> dtrSql.Read()
> MessageBox.Show("d")
> If dtrSql.HasRows Then
> MessageBox.Show("e")
> strDossierNr = dtrSql.Item("DossierNr").ToString
> MessageBox.Show("f")
> txtInfo.Text = "DOSSIER: " & strDossierNr & cstDelimit & _
> "CARD: " & dtrSql.Item("tdcaNCartphy").ToString &
cstDelimit
> & _
> dtrSql.Item("Choice").ToString & cstDelimit & vbCrLf & _
> dtrSql.Item("Cl1").ToString & ", " &
> dtrSql.Item("Cl2").ToString
> MessageBox.Show("g")
> If chkAuto.Checked Then
> 'Auto-handeling doen
> Select Case dtrSql.Item("Auto").ToString
> Case "SAVE"
> Dim clsVBS As New clsVBScripts
> clsVBS.SAVE(strDossierNr)
> clsVBS = Nothing
>
> Case "CONT"
> Dim clsVBS As New clsVBScripts
> clsVBS.CONT(strDossierNr)
> clsVBS = Nothing
>
> End Select
> End If
> Else
> MessageBox.Show("Failed to Load Call Data", "Call Data
> Failure", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
> End If
>
> Catch ex As Exception
> ErrorMessage(Me, ex, "Failed to Load Call Data", "Call Data
> Failure")
> Finally
> MessageBox.Show("k")
> dtrSql.Close()
> MessageBox.Show("k1")
> cmdSql.Dispose()
> MessageBox.Show("k2")
> If conSql.State = ConnectionState.Open Then
> MessageBox.Show("l")
> conSql.Close()
> End If
> MessageBox.Show("m")
> dtrSql = Nothing
> cmdSql = Nothing
> conSql = Nothing
> MessageBox.Show("n")
> End Try
>
> End Sub
>
>
> I get this messageboxes: a1, a2, a3, than the error, k
> So the error seems to happen on the "conSql.Open()"-statement.
> Really weird is also that it only shows the "k" of the finally, and not
the
> k1, k2, l, m and n... :-(
>
> And much weirder: I managed to get it working one time again, but the next
> time it didn't work anymore :-( So it works kind of randomly: 2 times it
> worked, +- 15 times it didn't work... :-( Couldn't it be because something
> on the SQL Server?
>
> please help :-(
>
> Pieter
>
>
> "DraguVaso" <pietercoucke@hotmail.com> wrote in message
> news:Of78XH9REHA.1396@TK2MSFTNGP12.phx.gbl...
> > Ok: some 'funny' results:
> >
> > I installed JET 4.0 SP7: It worked once (ONCE!!), and afterwarths I got
> the
> > same error... :-(
> >
> > Than I installed JET 4.0 SP8 and MDAC 2.8: It still doesn't work, but
the
> > Error-message is different now:
> > Object reference not set to an instance of an object. at
> > System.Data.SqlClient.ConnectionPool.GetConnection(Boolean&
> isInTransaction)
> > at
> >
>
System.Data.SqlClient.SqlConnectionPoolManager.GetPooledConnection(SqlConnec
> > tionString options, Boolean& isInTransaction)
> > at System.Data.SqlClient.SqlConnection.Open()
> >
> >
> > I'm still not able to find out what causes the problem and how to find a
> > resolution :-( Any help would really be appreciated!! The weird thing is
> > that it only happens on one pc (NT SP6a), on the others I tested it (a
> 2000
> > and a NT SP6A) it works fine...
> >
> > Thanks in advance,
> >
> > Pieter
> >
> >
> >
> > "DraguVaso" <pietercoucke@hotmail.com> wrote in message
> > news:%23R5BWv6REHA.3476@tk2msftngp13.phx.gbl...
> > > Hi,
> > >
> > > I'm having this error in a VB.NET-application at the moment that I
> attempt
> > > to read data from an SQL Server:
> > >
> > >
> > > The .Net Data SQL Provider (System.Data.SqlClient) requires Microsoft
> Data
> > > Access Components(MDAC) version 2.6 or later. at
> > > System.Data.SqlClient.ConnectionPool.GetConnection(Boolean&
> > isInTransaction)
> > > at
> > >
> >
>
System.Data.SqlClient.SqlConnectionPoolManager.GetPooledConnection(SqlConnec
> > > tionString options, Boolean& isInTransaction)
> > > at System.Data.SqlClient.SqlConnection.Open()
> > > Failed to Load Call Data Call Data Failure
> > >
> > >
> > > However the MDAC 2.7 is installed! And when I look into the registry
it
> is
> > > indicated as installed too:
> > > HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DataAccess\FullInstallVer =
> > > "2.71.9040.2"
> > >
> > > The .NET Framework is installed (1.1), and it is on a Windows NT (Sp
6a)
> > pc.
> > >
> > > Does anybody know about thisp roblem? And some solution? Could it be
> > because
> > > of some restictions (although I do have full Admin rights on the pc).
> > >
> > > I'ts really urgent and bothering me (I have to do a demo in 20
minutes,
> > > hehe).
> > >
> > > Thanks a lot in advance, any help, hints etc will be really
appreciated!
> > >
> > > Pieter
> > >
> > >
> >
> >
>
>