M
Marc Robitaille
Hello,
In my Global.asax, I have my connection string
Application("strDSNSQL") = "SERVER=(local); UID=LOGIVELO_USER;
PWD=!ItsAll4Me; DATABASE=Logivelo1"
I have thise code in an ASPX page
Dim DecisionCompagnie As Compagnie
Dim dtDecisionCompagnie As DataTable
DecisionCompagnie = New Compagnie()
dtDecisionCompagnie =
DecisionCompagnie.GetLastDecision(Session("compagnie"), Session("Periode"),
Application("strDSNSQL"))
If dtDecisionCompagnie.Rows.Count > 0 Then
txtNomCompagnie.Text = dtDecisionCompagnie.Rows(0).Item(4)
txtNomGroupe.Text = dtDecisionCompagnie.Rows(0).Item(2)
txtPeriode.Text = Session("Periode")
txtEmissionAction.Text = dtDecisionCompagnie.Rows(0).Item(6)
txtEmpruntLongTerme.Text = dtDecisionCompagnie.Rows(0).Item(7)
txtRemboursement.Text = dtDecisionCompagnie.Rows(0).Item(9)
....
This is the function that I call in my Compagnie Class
Public Function GetLastDecision(ByVal pstrId As String, ByVal pintNoPeriode
As Integer, ByVal pstrDSN As String) As DataTable
Dim strCommande As String = ""
Try
strCommande = "SELECT * FROM DecisionCompagnie WHERE NoCompagnie = " &
pstrId & " AND NoPeriode = " & pintNoPeriode
Dim daDataAdapter As New SqlDataAdapter(strCommande, pstrDSN)
Dim dsDataSet As New DataSet()
daDataAdapter.Fill(dsDataSet, "DecisionCompagnie")
Dim dtDataTable As DataTable = dsDataSet.Tables(0)
GetLastDecision = dtDataTable
dtDataTable = Nothing
daDataAdapter = Nothing
Catch...
When I try this code 10 times, 8 times it is ok and 2 times I have a
TimeOut. I have SQLServer 2000 on my computer and I am alone on the
network. I want to understand what I do wrong
Thank you
Marc
In my Global.asax, I have my connection string
Application("strDSNSQL") = "SERVER=(local); UID=LOGIVELO_USER;
PWD=!ItsAll4Me; DATABASE=Logivelo1"
I have thise code in an ASPX page
Dim DecisionCompagnie As Compagnie
Dim dtDecisionCompagnie As DataTable
DecisionCompagnie = New Compagnie()
dtDecisionCompagnie =
DecisionCompagnie.GetLastDecision(Session("compagnie"), Session("Periode"),
Application("strDSNSQL"))
If dtDecisionCompagnie.Rows.Count > 0 Then
txtNomCompagnie.Text = dtDecisionCompagnie.Rows(0).Item(4)
txtNomGroupe.Text = dtDecisionCompagnie.Rows(0).Item(2)
txtPeriode.Text = Session("Periode")
txtEmissionAction.Text = dtDecisionCompagnie.Rows(0).Item(6)
txtEmpruntLongTerme.Text = dtDecisionCompagnie.Rows(0).Item(7)
txtRemboursement.Text = dtDecisionCompagnie.Rows(0).Item(9)
....
This is the function that I call in my Compagnie Class
Public Function GetLastDecision(ByVal pstrId As String, ByVal pintNoPeriode
As Integer, ByVal pstrDSN As String) As DataTable
Dim strCommande As String = ""
Try
strCommande = "SELECT * FROM DecisionCompagnie WHERE NoCompagnie = " &
pstrId & " AND NoPeriode = " & pintNoPeriode
Dim daDataAdapter As New SqlDataAdapter(strCommande, pstrDSN)
Dim dsDataSet As New DataSet()
daDataAdapter.Fill(dsDataSet, "DecisionCompagnie")
Dim dtDataTable As DataTable = dsDataSet.Tables(0)
GetLastDecision = dtDataTable
dtDataTable = Nothing
daDataAdapter = Nothing
Catch...
When I try this code 10 times, 8 times it is ok and 2 times I have a
TimeOut. I have SQLServer 2000 on my computer and I am alone on the
network. I want to understand what I do wrong
Thank you
Marc