Πρώτα Βήματα - Web Development

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

agmarios — Thu, 01 Jun 2006 16:45:31 GMT

πράγματι ανοίγω νέα connection αλλά φροντίζω με ευλάβια να τα κλείνω αμέσως μόλις κάνουν τη δουλειά τους. Άλλωστε όπως είπες κι εσύ το καθένα εκτελεί μόνο ένα query και αν είναι να κάνω μόνος μου τη διαχείριση των commands πάνω σε ένα μοναδικό connection χάθηκα.

Το site είναι σε δοκιμαστική φάση οπότε ο φόρτος δεν δικαιολογεί να μην φτάνουν τα connections. Άρα το πρόβλημα είναι οι εγγραφές στη βάση.

Όσο για το accessdatasource απλά πιστεύω ότι η mama-microsoft έκανε καλά τη δουλειά της και κλείνει το connection

Μάριος

υ.γ. Ευχαριστώ όλους όσους αφιέρωσαν το χρόνο τους για το θέμα. Μπορεί να μην έχω λύση αλλά με έχετε βοηθήσει να εμβαθύνω αρκετά.

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

anjelinio — Thu, 01 Jun 2006 03:29:00 GMT

Νομίζω οτι τα:

Dim ooledbConn As oledbConnection = New oledbConnection(sConnStr())

σου ανοίγουν πολλά connections ταυτόχρονα και σου lock-άρουν την Access. Αν μπορείς, δοκίμασε να γράψεις κάπου μια function η οποία να σου επιστρέφει ένα μοναδικό connection, ή ένα απο ένα "pool" 2-3 connections. Επίσης, καλό θα ήταν να γράψεις άλλη μία η οποία θα εκτελεί τα SqlCommands soy, φροντίζοντας να κάνει κάποιο locking στη χρήση του μοναδικού ή pooled connection ( γιατί μπορείς να εκτελείς μόνο ένα query τη φορά σε ένα connection, οπότε χρειάζεσαι locking αν ακολουθήσεις αυτό το δρόμο )

Τώρα, όσον αφορά τα drag'n'drop access data sources ... δεν έχεις λύση απ'όσο ξέρω. Αν όμως όλα τα άλλα calls περνάνε απο pooled ή μοναδικό connection, ίσως τη γλυτώσεις και μειώσεις δραστικά τα locks στο mdb file ...

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

agmarios — Thu, 01 Jun 2006 02:32:56 GMT

προφανώς δεν μπορώ (λόγω χώρου) να δείξω όλες τις σελίδες αλλά 2 αντιπροσοπευτικά παραδείγματα

1) content management: view all events

2. content management: edit event

<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="ExportTechnologies" Namespace="ExportTechnologies.WebControls.RTE" Assembly="ExportTechnologies.WebControls.RTE" %>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="windows-1253" AutoEventWireup="true" validateRequest="false" %>


<script language="vb" runat="server">
dim textRow as datarow
Sub initialize(sender as Object, e as EventArgs)
  nid.text=iif(isdbnull(textRow("id") ),"",textRow("id"))
  startdate.text = iif(isdbnull(textRow("startdate") ),"",textRow("startdate"))
  enddate.text = iif(isdbnull(textRow("enddate")),"",textRow("enddate"))
  locationGR.text = iif(isdbnull(textRow("locationGR")),"",textRow("locationGR"))
  descriptionGR.text = iif(isdbnull(textRow("descriptionGR")),"",textRow("descriptionGR"))
  titleGR.text = iif(isdbnull(textRow("titleGR")),"",textRow("titleGR"))
  abstractGR.text = iif(isdbnull(textRow("abstractGR")),"",textRow("abstractGR"))
end sub

Sub Page_Load(sender as Object, e as EventArgs)
if not page.ispostback then
  textRow = readDataRowWithQueryAndParameter("eventsIdAll", request.querystring("id"), "nId")
  initialize(sender,e)
end if
end sub

Sub On_Click(ByVal source As Object, ByVal e As EventArgs)
    Try
        access1.Update()
    Catch except As Exception

    End Try
End Sub
</script>

<form runat="server">
<table>

<tr>
      <strong colspan="2">Αρχική Ημερομηνία:</strong> </td>
    </tr>
<tr>
  </td colspan="2" id="startdate" Columns="50" runat="server">
</tr>
<tr>
      <strong colspan="2">Τελική Ημερομηνία:</strong> </td>
    </tr>
<tr>
  </td colspan="2" id="enddate" Columns="50" runat="server">
</tr>
<tr>
  <strong colspan="2">Τοποθεσία στα Ελληνικά:</td>
</tr>
<tr>
      </td colspan="2" id="locationGR" Columns="50" runat="server">
    </tr>
<tr>
  <strong colspan="2">Τίτλος στα Ελληνικά:</td>
</tr>
<tr>
      </td colspan="2" id="titleGR" Columns="50" runat="server">
    </tr>
<tr>
<strong>Περίληψη στα Ελληνικά: </td>
</tr>
<td>
<ExportTechnologies:RichTextEditor width="400" height="200" id="abstractGR" runat="server" RTEResourcesUrl="/RTE_Resources/" HideEditWebPage="true" HideAbout="true" HideBackgroundColor="true" HideInsertDate="true"/>
</tr>
<tr>
<strong>Περιγραφή στα Ελληνικά:</strong> </td>
</tr>
<td>
<ExportTechnologies:RichTextEditor width="400" height="200" id="descriptionGR" runat="server" RTEResourcesUrl="/RTE_Resources/" HideEditWebPage="true" HideAbout="true" HideBackgroundColor="true" HideInsertDate="true"/>
</tr>

<tr>
  </td id="nid" Visible="false" runat="server">
</tr>
<td> <asp:Button ID="insertButton" runat="server" OnClick="On_Click" Text="Ενημέρωση"/>
    </td ID="resetButton" runat="server" OnClick="initialize" Text="Καθαρισμός">
</tr>
</table>
<asp:accessdatasource id="access1"
       runat="server"
       datasourcemode="DataReader"
          datafile="~/fpdb/spincrete.mdb"
    updatecommand="Update events SET startdate=?,enddate=?,locationGR=?,descriptionGR=?,
        titleGR=?,abstractGR=? WHERE id=?">
    <updateparameters>
    <asp:ControlParameter Name="startdate" ControlId="startdate" type="DateTime" />
    <asp:ControlParameter Name="enddate" ControlId="enddate" type="DateTime" />
    <asp:ControlParameter Name="locationGR" ControlId="locationGR" type="string" size="50"/>
    <asp:ControlParameter Name="descriptionGR" ControlId="descriptionGR" PropertyName="text" type="string" size="65000"/>
    <asp:ControlParameter Name="titleGR" ControlId="titleGR" type="string" size="50"/>
    <asp:ControlParameter Name="abstractGR" ControlId="abstractGR" PropertyName="text" type="string" size="65000"/>
    <asp:ControlParameter Name="newid" ControlId="nid" />

    </updateparameters>
   </asp:accessdatasource>
</form>

3) Εμφάνιση στον χρήστη:

<P dir=ltr style="MARGIN-RIGHT: 0px"><%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ MasterType virtualpath="spin.master" %>
<%@ Page Language="VB" ContentType="text/html" MasterPageFile="spin.master" Title="spincrete" ResponseEncoding="windows-1253" AutoEventWireup="True" %>
<%@ Register TagPrefix="top" TagName="topbar" Src="top.ascx" %>

<script runat="server">
Sub Page_Load(sender as Object, e as EventArgs)
if not page.ispostback then
dim seldate as date = CDate(request.queryString("seldate"))
Dim ooledbConn As oledbConnection = New oledbConnection(sConnStr())
dim selectCMD As New oledbCommand("event_qu", ooledbConn)
dim myPar as new oledbParameter("@seldate" ,oledbType.date)
myPar.value = seldate
selectCMD.CommandType = CommandType.StoredProcedure
selectCMD.Parameters.Add(myPar)
ooledbConn.Open()
Dim myDAtaReader As OleDbDataReader = selectCMD.ExecuteReader()
eventrep.datasource = myDAtaReader
eventrep.databind
myDAtaReader.close
ooledbConn.close()
end if
end sub

</script>

<asp:Repeater id="eventrep" runat="server" >
<headertemplate>
<table border="0">
</headertemplate>
<itemtemplate>
<strong colspan="2"><%# DataBinder.Eval(Container.DataItem, "titleGR")%></tr>
<td> </tr>
<strong colspan="2">Ημερομηνία: </tr>
<td width="40"> <strong>Από:</strong> <%# DataBinder.Eval(Container.DataItem, "startdate")%></tr>
<td width="40"> <strong>Εώς:</strong> <%# DataBinder.Eval(Container.DataItem, "enddate")%></tr>
<strong colspan="2">Τοποθεσία:</tr>
<td > <td ><%# DataBinder.Eval(Container.DataItem, "locationGR") %></tr>
<strong colspan="2">Περιγραφή:</tr>
<td > <td><%# DataBinder.Eval(Container.DataItem, "descriptionGR") %></tr>
<asp:label colspan="2" Visible="false" runat="server" id="eventId" Text='<%# DataBinder.Eval(Container.DataItem, "id") %>'/>
<asp:accessdatasource
        id="AccessDataSource1"
        runat="server"
        datasourcemode="DataReader"
        datafile="~/fpdb/spincrete.mdb"
        selectcommand= "SELECT linkTitleGR,urlGR FROM link_events WHERE <A href="mailto:eventId=@eId">eventId=@eId</A>"
       >
  <selectparameters>
      <asp:controlparameter name="eId" type="int32" controlId="eventId" />
       </selectparameters>
     </asp:accessdatasource>
      <asp:Repeater id="linkRepeater" runat="server" datasourceid="AccessDataSource1">
   <strong border="0" colspan="2">Σύνδεσμοι:</headertemplate>
   <itemtemplate>

   <td width="35"> <a style="color:#008CE6; font-size:16px; text-decoration:none; font-family: Times New Roman, Times, serif; font-weight:bold;" href="<%# DataBinder.Eval(Container.DataItem, ">urlGR") %>"><%# DataBinder.Eval(Container.DataItem, "linkTitleGR") %></tr>
   </itemtemplate>
   </footertemplate>
   </asp:repeater>
</tr>
</tr colspan="2" class="separator">
<td> </tr>
</itemtemplate>
</footertemplate>
</asp:Repeater>
<P dir=ltr style="MARGIN-RIGHT: 0px">

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

anjelinio — Wed, 31 May 2006 21:57:59 GMT

Δεν έγραψες όμως τελικά ποιόν provider χρησιμοποιείς και πώς.

Αν θες μια συμβουλή, οποτεδήποτε "στα παλιά τα χρόνια" κληθήκαμε να γράψουμε οτιδήποτε πάνω απο Access, φροντίζαμε όλα τα queries να εκτελούνται σε λιγότερα απο 3-4 connections, υλοποιώντας Singletons για το data access. Νομίζω οτι κάπου εκεί είναι και το πραγματικό όριο της δύστυχης Access :D

Αν θές, δείξε και λίγο κώδικα, καλά τα περιγραφικά, αλλά μόνο το source τα λέει όλα :)

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

Άγγελος Ξυπολιάς — Wed, 31 May 2006 21:52:14 GMT

Aν θέλεις μπορείς να χρησιμοποιήσεις την υπηρεσία δωρεάν φιλοξενίας για developers που παρέχουμε στην Xelixis.Net

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

agmarios — Wed, 31 May 2006 20:28:58 GMT

δεν έχει κι άδικο μπορεί συνολικά o datareader να είναι πιο γρήγορος αλλα μάλλον ζορίζει τη βασούλα μου. Πάντως με τους datareaders έχω λιγότερα κλειδώματα (ίσως από άλλους παράγοντες)

Πάντως και στις 2 περιπτώσεις το πρόβλημα παραμένει δυστυχώς το ίδιο, η βάση κλειδώνει.

Ευχαριστώ πάντως για τη βοήθεια

Απ: asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

anjelinio — Wed, 31 May 2006 19:54:21 GMT

Ποιόν provider χρησιμοποιείς;

Το ότι άλλαξες τα DataSets με DataReaders ... δε νομίζω οτι θα σε βοηθήσει. Αντιθέτως μάλιστα, ίσως σε "ρίξει" κιόλας, γιατί τα DataSets είναι disconnected. Απαξ και διαβάστηκε, τέρμα η εμπλοκή της βάσης απο 'κεί και πέρα. To UI σου κάνει render και η βάση είναι ήδη ελεύθερη να κάνει κάτι άλλο. Αντίθετα, ο DataReader μένει ανοιχτός και μιλάει στη βάση κατα τη διάρκεια του UI rendering. Μεταθέτει τον φόρτο απο την εφαρμογή ( τα DataSets σου τρώνε μνήμη ), στη βάση, πράγμα μάλλον κακό αν έχεις μια Access απο πίσω ...

asp.net v2 & ms-access 2000 με κλασσικό πρόβλημα κλειδωμάτων και άσχετο provider

agmarios — Wed, 31 May 2006 18:52:38 GMT

Όπως λέει και ο τίτλος έχω ένα φτιάξει ένα web site με asp.net v2 και το έχω συνδέσει με μια access (κακώς το ξέρω αλλά ότι πληρώνεις παίρνεις, άλλωστε ο όγκος των δεδομένων δεν δικαιολογεί κάτι παραπάνω).

Ο υπέροχος provider για λόγους ασφαλείας που μόνο αυτός ξέρει δήλωσε ότι δεν υποστηρίζει τον συνδυασμό .net & access αν θες .net πάρε sql server, αν θες access γράψε απλό asp

Επειδή όμως υποστηρίζει FP ext. έβαλα κι εγώ την βάση μου στο /fpdb και όλα σχεδόν μέλι-γάλα αφού αρκετές φορές κλειδώνεται η βάση και ο πελάτης γκρινιάζει.

Έχω ξεσκιστεί να ελαφραίνω τη βάση, πέταξα έξω τα datasets και έβαλα datareaders (ακόμη και τα gridViews φορτώνουν με datareaders), κάνω caching, ξαναγράφω τα queries κλπ

Φταίει ο provider ή πρέπει απλά να ζήσω με τα προβλήματα της access?