الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

يكف يمكنني ان اضيف حقل اخر وليس خلية ؟؟

مغلق
بدأه شبكة في 5 يناير 2003 · 17 رد · 768 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي برنامج وهذا البرنامج يقوم بأضافة بيانات الى قاعدة البيانات وليس هنا اي مشكلة ولكن .....

هذا البرنامج يقوم بأضافة البيانات الى جنبها الجنب اي واحدة تلو الاخرى مثلاً

1 2 3 4 5 6 7 8 9 10

وانا اريدها بهذا الشكل

1 2 3 4 5

6 7 8 9 10

اي ان الحقول تكود تحت السيطة من حيث العدد اي اضيفها الى 5 حقول ثم يبدء في السطر اوالصف الذي لية ويبدء من 6 ......

كيف يمكنني ذلك ؟؟؟؟؟؟

#2

يا ريت التوضيح أكثر .. يعني على الأقل من أين ستستقبل الأرقام ؟؟ هل كل رقم بحقل ؟؟ هل المطلوب فصلها او ضمها أو فصل أول 5 أرقام عن اخر 5 أرقام و إضافة كل مجموعة لوحدها ؟؟

الرجاء التوضيح ..

You can fly while you can touch the sky

#3

الارقم او النص تاتي من قاعدة البيانات ........نعم كل رقم او نص في حقل .....

هل المطلوب فصلها او ضمها أو فصل أول 5 أرقام عن اخر 5 أرقام و إضافة كل مجموعة لوحدها ؟؟

لم افهم ما تقصد ....

ولكني اريدها اذا اكتملك الحقول الخمس العلوية يبدء في الخمسة التي تليها قم التي بعدها على ححسب الارقام او النصوص .......

#4

:( الرجاء الشرح جيدا لأنك عقدت الموضوع بزيادة و بصراحة يا إما الموضوع مو مشروح بطريقة جيدة أو أنا ما بفهم ..

:mad:

You can fly while you can touch the sky

#5

ههههههههههههههههههههههههههههه

والله الظاهر ني عقدته بزيادة صحيح هههههههههه

طيب .......

الان في هذه الصفحة في صف كتوب فية الاسم و المشاركة

بمجرد الاضافة ينشأ صف اخر يكون اسم الاعضو تحت خانة الاسم ومشاركة العضو وكتاباته تحت خانة المشاركة ..... وهذا كذا مع كل عضوا ومشاركة ...... جميل ........

المشكلة عندي قريبه جداً من هذه ولكن ما هو الكود الذي يتيح لي مع كل اضافة جديدة انشاء صف جديد مع تقسيمة الاساسي ...

الان البرنامج لدي ينشأ صف واحد فقط ويستمر في هذا الصف وانا اريدة اذا وصل عدد معين في هذا الصف مثلاً خمس خليا ينشأ صف اخر تحت الاول ويبدء في انشاء الخليا الاولى ثم الثانية فالثالثة واذا انتها من الخامسة انتقل الى الصف الثالث الذي يقوم اهة ايضاً بأنشأه

ان شاء الله اني شرحت صح :'(:'(:'(:'(:'(:'(

#6

:mad: أبسط من هيك فكرة مافي ...

الله يسامحك فكرت الشي كبير و بدو 13 صفحة ..

كل المطلوب عمل عداد مع كل دورة سجل كما ذكرنا في موضوع المتجر الالكتروني عند عرض المنتجات 3 منتجات بكل صف .. المه يتم فحص العداد

ان كان يساوي 5 يتم انهاء الصف كالتالي :

  Dim count
  count=0
  response.write ""
  while not rs.EOF 
   response.write "[trrrrr]" & response.write rs("field")
   count=count+1
   response.write ""
   if (count mod 5)=o then response.write "[/trrrrr]
  rs.moveNext
wend   

 يا رب هذا هو المطلوب :)

You can fly while you can touch the sky

#7

و هذا رد أحد الأعضاء في المتجر 

 rr=rr+1


 %>



 ">   "width=150 height=100> ")  

  rr=0
response.write ""
end if%>

rs.movenext
wend
%>

You can fly while you can touch the sky

#8

الله يعطيك الف عافية

طيب وين ممكن اضع البيانات ؟؟؟

في المثالين ؟؟؟؟؟

طبعاً فية سؤال بعد هذا بس هذا يهمني اكثر

#9

:eek: سؤال غريب جدا ؟؟!!!!!!

على العموم من المؤكد اننا استخدمنا جدولا لذا ستتم الكتابة داخل الخلية كالتالي :

Dim count

count=0

response.write "<table>"

while not rs.EOF 

response.write "<TR><TD>" 

response.write "Hello " & vbCrLF &  response.write rs("field")

count=count+1

response.write "</TD>"

if (count mod 5)=o then response.write "</TR>

rs.moveNext

wend

هل وضح المثال ؟؟ أم المزيد ؟؟ (f)

You can fly while you can touch the sky

#10

بالمزيد .............

اذا عرفت السبب الذي سأقوم بأيضاحة سيذهب عنك العجب بعيداً:rolleyes:

#11

ما هو السبب؟:)

#12

:D طيب يا ريت نفرح بالسبب اللي تشوقنا لمعرفته ;)

اسدلوا الستار عن الخبر ..:)

You can fly while you can touch the sky

#13

طيب زور معي هذا الموقع

http://www.magicmushroom.org.uk/forum/port...tionid=5&area=4

في هذه البرابطة ثلاثة حقول

1- Cool Links

2- Delphi Related

3- Other Stuff

ومهما زاد صاحب الموقع في الاقسام فأنة سيتخذ الوضع الافقي اي انه لان بنشأ سطر جديد لاقسام جديدة ...

وهذا هو الملف الخاص بهذه الصفحة

والان كيف اضمن كل هذا الكود بما تفضلت علي من كود التكرار

 
<% 
'Links System
'Subs:
'DisplayLinkNavigation     	Displays the Categories upper the actual category
'DisplayCats			Displays the cats under the actual category and the related forum
'DisplayLinks			Displays the Links in the actual category
%>
<%    
dim intPageCount
'dim catid
dim title

CatID = Request.QueryString("catid")

Public Sub DisplayLinkNavigation %>

[/trrrrr]
<% 
End Sub 'DisplayLinkNavigation %>

<% 
Public Sub DisplayCats

	CatID = Request.QueryString("catid")
	Set objCat = CreateObject("ADODB.Recordset")
	Set objCat.ActiveConnection = my_Conn
	objCat.LockType = 2
	If Len(CatID) > 0 Then 
		' this is a subcat: display its data.
		objCat.Open("SELECT Title, Forum_ID, IMG, Links, CatDesc FROM " & strTablePrefix & "Site_Cats WHERE CatID=" & CatID & "AND Links = 1 order by CatID") 

		if not objCat.eof then catDESC = objCat("CatDesc")%>


				[/trrrrr]
				[trrrrr]



								[/trrrrr]


				[/trrrrr]
	<%	' check if we have a forums entry
				If objCat("Forum_ID") <> "" Then
				'display the related Forum
	%>				[trrrrr]




		<%
								strSQL = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_DESCRIPTION, " & strTablePrefix & "FORUM.F_SUBJECT FROM " & strTablePrefix & "FORUM WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & objCat("FORUM_ID")
								set rsForum =  my_Conn.Execute (strSql)

								if rsForum.eof or rsForum.bof then
									Response.Write """"""
								Else%>
" & objCat("Title") & ""
	  if not strDisplayCatStats = "0" then
	  response.write ""
	  end if
	  if not strDisplayCatDesc = "0" then
	  response.write ""
	  end if
	  If mLev >= 3 Then %>


<% End If
response.write "

"
if i mod strNumCols = 0 then
response.write "[/trrrrr]"
end if
i = i+1
objCat.MoveNext
LOOP
do until i mod strNumCols = 0
response.write ""
i=i+1
LOOP
response.write "[/trrrrr]"
'response.write ""
end if
End Sub 'DisplayCats

%>
<%
Public Sub Displaylinks

If Request.QueryString("catid") = "" then
CatID = 0
CatTitle = SiteName
Else
CatID = Request.QueryString("catid")
CatTitle = Request.QueryString("cattitle")
End If


nPageNum = Request.QueryString("PageNum")
If nPageNum = "" Then
nPageNum = 1
End If

PageSize = 10
'Create a recordset with the top level categories in it.
Set objContent = CreateObject("ADODB.Recordset")
Set objContent.ActiveConnection = my_Conn
If mLev = 4 Then
SQL = "SELECT * FROM " & strTablePrefix & "Site_Links WHERE CatID = " & CatID & " AND LinkType = 4 ORDER BY Added DESC;"
Else
SQL = "SELECT * FROM " & strTablePrefix & "Site_Links WHERE CatID = " & CatID & " AND LinkType = 4 AND Validated = 1 ORDER BY Name, Hits DESC;"
End If
objContent.CursorLocation = 3 'adUseClient
objContent.CursorType = 3 'adOpenStatic
objContent.Activeconnection = my_conn
objContent.open sql
objContent.PageSize = PageSize
objContent.CacheSize = objContent.PageSize
intPageCount = objContent.PageCount

if objContent.EOF = false then
nLastPage=intPageCount
objContent.AbsolutePage = nPageNum

if cint(strLinkAddPermission) <= mlev then
%>

[/trrrrr]

<%
end if

if intPageCount > 1 then %>
الصفحة <%=nPageNum%> من <%=intPageCount %>
<% Call Paging(intPageCount, CatID) %>
[/trrrrr]

<% else %>
<% end if
for counter = 1 to ObjContent.PageSize
if not ObjContent.EOF then
If objContent("Votes") <> "0" then
Rate = round(objContent("Score")/objContent("Votes"))
star = 0
Rating = ""
DO UNTIL star = Rate
Rating = Rating & "& strImageURL &"
star = star +1
Loop
Else
Rating = "لم بتم التقييم"
End If

LinkStatus = objContent("Badlink")
Select Case LinkStatus
Case 0
LinkStatus = "يعمل"
Case Else
LinkStatus = "تالف"
End Select
' begin display of a link
linkDesc = objContent("LinkDesc")%>

<%end if %>
<%

objContent.MoveNext

end if

next

else
' no records found
end if

if intPageCount > 1 then %>
الصفحة <%=nPageNum%> من <%= intPageCount %>
<% Call Paging(intPageCount, CatID) %> 
[/trrrrr]

<%
else
%>
 
<%
end if

if cint(strLinkAddPermission) <= mlev then
%>

[/trrrrr]

<%
end if
End Sub ' Displaylinks

Public Sub Paging(intPageCount, CatID)
if intPageCount > 1 then
if Request.QueryString("PageNum") = "" then
sPageNumber = 1
else
sPageNumber = Request.QueryString("PageNum")
end if
' response.write sPagenumber & "
"
if Request.QueryString("method") = "" then
sMethod = "postsdesc"
else
sMethod = Request.QueryString("method")
end if
' response.write sMethod & "
"
sScriptName = Request.ServerVariables("script_name")
' response.write sScriptName & "
"
Response.Write("" & " " & widenum(counter) & "[url="""]" & counter & "[/url]"
Response.Write sNum
else
Response.Write("" & " " & widenum(counter) & "" & counter & "")
end if
if counter mod strPageNumberSize = 0 then
Response.Write("[/trrrrr][trrrrr]")
end if
next
Response.Write("[/trrrrr]")
end if
End Sub 'Displaylinks

%>
#14

طيب هذا ما وضحته بالكود !!! ما المشكلة ؟؟

يا ريت التوضيح في الرد .. اعتقد أن ردك لا يوحي بوجود مشكلة او زوالها ..

يا ريت جميع الأعضاء تلتزم بايضاح المشكلة و كتابة تم الوصول للحل

حتى لا نستمر في حلقة مفرغة و إلا سنضطر لاغلاق اي موضوع مرة أخرى

You can fly while you can touch the sky

#15
اقتباس
والان كيف اضمن كل هذا الكود بما تفضلت علي من كود التكرار ???

حبيبي محمد خليل أبو صلاح اسف لضعفي في ايصال السؤال بشكل واضح

:o:o:o:o

#16

أيضا غير واضح ؟؟؟؟؟؟؟؟؟

الرجاء طرح السؤال هنا من جديد بلغة عربية فصحة .. لا محتاجة الحكاية ضعف و لا قوة في اللغة العربية ..

You can fly while you can touch the sky

#17

الكود الذي ارفق مع ردي السابق هو الذي يقوم بأحضار الاقسام التي ذكرتها في العنوان المرفق ايضاً ....

انت ادرجت كود يفيد تكرار كود الـ html وذلك لتوزيع البيانات القادمة من قاعدة البيانات بشكل منسق على شكل مجموعات كل مجموعة في صف ....

كيف ادرج الكود الذي ذكرت داخل الكود الاصلي لأحصل على التقسيم المطلوب

؟؟؟

#18

الموضوع أغلق بسبب سوء الطرح .............. انتهى

You can fly while you can touch the sky

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…