Geekzone: technology news, blogs, forums
Guest
Welcome Guest.
You haven't logged in yet. If you don't have an account you can register now.




5 posts

Wannabe Geek


Topic # 11235 10-Jan-2007 21:41
Send private message

hello..

i am using dreamweaver mx to create a web based database driven using ms access.
i have created a search form to search for the required data entered by the user which they wish to search. currently access has 12468 records. so when in my web site i insert example 12164 for the tag num, the search takes a very long time and in the end the page just hang. if i wana search customer details using their customer name only there is no problem but if search by tag num which is number the problem appears. please help. i am stuck...

[Moderator edit (tonyhughes): Moved to offtopic forum - this has zero to do with LAN Conig & Routers]

Create new topic
362 posts

Ultimate Geek

Trusted

  Reply # 57540 10-Jan-2007 23:10
Send private message

Sounds like you need a database which is designed to handle more records



5 posts

Wannabe Geek


  Reply # 57586 11-Jan-2007 14:08
Send private message

Helo..

well i dont think so i can use a different database..because the whole department here use that database. what am i developing here is that the user uses the system which fully runs on Ms Access. i am developing a website database driven site for the staff to search their records more efficiently from anywhere rather than having the exact access system on their pc because it stands alone. so i am helping them to make it easier from them to view the previous records. so there is no way of changing the database here. so how do i solve it now?


 
 
 
 


Try Wrike: fast, easy, and efficient project collaboration software
BDFL - Memuneh
60310 posts

Uber Geek
+1 received by user: 11354

Administrator
Trusted
Geekzone
Lifetime subscriber

Reply # 57600 11-Jan-2007 14:44
Send private message

I don't think you need a new database. I used MS Access to serve up to 100,000 pages a day and somehow I don't think you will reach this volume on a single department application.

I do think however you will need some more professional guidance, seeing the questions you asked before. Perhaps your company could arrange for some training and some consultancy to help you develop this application?








5 posts

Wannabe Geek


  Reply # 57601 11-Jan-2007 14:48
Send private message

thank you for your reply..

the department that i am in now is has one IT Support person whom equally doesnt know what to do. would you please help me here?

is the any field properties i need to change in access or any coding to add in dreamweaver. please help..

BDFL - Memuneh
60310 posts

Uber Geek
+1 received by user: 11354

Administrator
Trusted
Geekzone
Lifetime subscriber

Reply # 57604 11-Jan-2007 14:51
Send private message

You might want to check that there is an index for this field. Also make sure the query returns only the minimum necessary for your task. If your query retrieve too many fields (columns) then the entire process will slow down.

Other than these suggestions then this would require a more detailed view of the database, etc and I suggest you find a consultant that is closer to you.








5 posts

Wannabe Geek


  Reply # 57612 11-Jan-2007 15:07
Send private message

thanks your reply..

actually i am still a student sent by my institution to do my practicum in this company. and i dont think i can get a consultant now. but would u please help me have a look at this coding.. thank you

<%
Dim count__sfaid
count__sfaid = "%"
If (Request.QueryString("sfaid") <> "") Then
count__sfaid = Request.QueryString("sfaid")
End If
%>
<%
Dim count
Dim count_numRows

Set count = Server.CreateObject("ADODB.Recordset")
count.ActiveConnection = MM_countTel_STRING
count.Source = "SELECT SFA_ID FROM Proses WHERE SFA_ID LIKE '" + Replace(count__sfaid, "'", "''") + "'"
count.CursorType = 0
count.CursorLocation = 2
count.LockType = 1
count.Open()

count_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "%"
If (Request.QueryString("sfaid") <> "") Then
Recordset1__MMColParam = Request.QueryString("sfaid")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conTel_STRING
Recordset1.Source = "SELECT Tag_No, Customer_Name, SFA_ID, AE_Name, Tarikh_OM1, CSM_Personal, Tarikh_CSM1, Order_No, Status, Remarks, Jumlah_Aktiviti, Jenis_Order, Segmen, Product, Tarikh_Jangka, CSM_Num FROM Proses WHERE SFA_ID = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 2
Recordset1.CursorLocation = 3
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 1
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim count_total
Dim count_first
Dim count_last

' set the record count
count_total = count.RecordCount

' set the number of rows displayed on this page
If (count_numRows < 0) Then
count_numRows = count_total
Elseif (count_numRows = 0) Then
count_numRows = 1
End If

' set the first and last displayed record
count_first = 1
count_last = count_first + count_numRows - 1

' if we have the correct record count, check the other stats
If (count_total <> -1) Then
If (count_first > count_total) Then
count_first = count_total
End If
If (count_last > count_total) Then
count_last = count_total
End If
If (count_numRows > count_total) Then
count_numRows = count_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (count_total = -1) Then

' count the total records by iterating through the recordset
count_total=0
While (Not count.EOF)
count_total = count_total + 1
count.MoveNext
Wend

' reset the cursor to the beginning
If (count.CursorType > 0) Then
count.MoveFirst
Else
count.Requery
End If

' set the number of rows displayed on this page
If (count_numRows < 0 Or count_numRows > count_total) Then
count_numRows = count_total
End If

' set the first and last displayed record
count_first = 1
count_last = count_first + count_numRows - 1

If (count_first > count_total) Then
count_first = count_total
End If
If (count_last > count_total) Then
count_last = count_total
End If

End If
%>
<%
Dim MM_paramName
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs = Recordset1
MM_rsCount = Recordset1_total
MM_size = Recordset1_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
Recordset1_first = MM_offset + 1
Recordset1_last = MM_offset + MM_size

If (MM_rsCount <> -1) Then
If (Recordset1_first > MM_rsCount) Then
Recordset1_first = MM_rsCount
End If
If (Recordset1_last > MM_rsCount) Then
Recordset1_last = MM_rsCount
End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
MM_nextItem = "&" & MM_item & "="
If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then
MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "") Then
MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>

Create new topic



Twitter »

Follow us to receive Twitter updates when new discussions are posted in our forums:



Follow us to receive Twitter updates when news items and blogs are posted in our frontpage:



Follow us to receive Twitter updates when tech item prices are listed in our price comparison site:





News »

IBM leads Call for Code to use cloud, data, AI, blockchain for natural disaster relief
Posted 25-May-2018 14:12


New FUJIFILM X-T100 aims to do better job than smartphones
Posted 24-May-2018 20:17


Stuff takes 100% ownership of Stuff Fibre
Posted 24-May-2018 19:41


Exhibition to showcase digital artwork from across the globe
Posted 23-May-2018 16:44


Auckland tops list of most vulnerable cities in a zombie apocalypse
Posted 23-May-2018 12:52


ASB first bank in New Zealand to step out with Garmin Pay
Posted 23-May-2018 00:10


Umbrellar becomes Microsoft Cloud Solution Provider
Posted 22-May-2018 15:43


Three New Zealand projects shortlisted in IDC Asia Pacific Smart Cities Awards
Posted 22-May-2018 15:14


UpStarters - the New Zealand tech and innovation story
Posted 21-May-2018 09:55


Lightbox updates platform with new streaming options
Posted 17-May-2018 13:09


Norton Core router launches with high-performance, IoT security in New Zealand
Posted 16-May-2018 02:00


D-Link ANZ launches new 4G LTE Dual SIM M2M VPN Router
Posted 15-May-2018 19:30


New Panasonic LUMIX FT7 ideal for outdoor: waterproof, dustproof
Posted 15-May-2018 19:17


Ryanair Goes All-In on AWS
Posted 15-May-2018 19:14


Te Papa and EQC Minecraft Mod shakes up earthquake education
Posted 15-May-2018 19:12



Geekzone Live »

Try automatic live updates from Geekzone directly in your browser, without refreshing the page, with Geekzone Live now.



Are you subscribed to our RSS feed? You can download the latest headlines and summaries from our stories directly to your computer or smartphone by using a feed reader.

Alternatively, you can receive a daily email with Geekzone updates.