عرض الصور من MS access

سلا م عليكم ورحمة الله كيف الحال

اخي العزيز سوف اضع لك كود عرض الصور وكيف تختار الصورة هذا طريقة راجعة لك

يعني تسوي لها عرض لاسم الصورة او للصورة ياخذها المستخدم عبر id الصورة في قاعدة البيانات

ولكن الكود الذي سوف اعطيك اياه هو يعتمد ان يكون اسم الصورة في حقل والصورة تكون في ملف معين

واتمنا ان تستفيد منه

<%@ Import Namespace=system.data %>
<%@ Import Namespace=system.data.oledb%>
<%@ Import Namespace=System.Web.UI.WebControls %>

<script runat="server">


Sub Page_Load(Src As Object, E As EventArgs)

dim constar as string = ("provider=microsoft.jet.oledb.4.0; data source= " & server.MapPath("اسم القاعدة البينات .mdb") & ";")

dim con as new oledbconnection(constar)

dim ds as new oledbcommand("select * from الجدول الذي تريد عرضة   " , con)


try

con.open()




اسم الربيتر.DataSource = ds.ExecuteReader

اسم الربيتر.databind()

con.close()
Catch ex As Exception
con.close()

        End Try



End Sub


 هذا  هو كود اظهار الصورة في حال وجودها  وفي حال عدم وجود صورة  لا تعرضها 
public Sub imgshow(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) 
Dim img As System.Web.UI.WebControls.Image = CType(e.Item.FindControl("img"), System.Web.UI.WebControls.Image)

if trim(CType(e.Item.FindControl("checkimag"), System.Web.UI.WebControls.textbox).text)="" then

img.Visible = False
End If




End Sub


</script>




<html >
<head>


</head>

<body >


<form id = f1 runat="server">
<div id="Layer2">


<asp:Repeater ID="اسم الربيتر " runat="server" OnItemCreated=imgshow >
<itemtemplate>
<div>

 هذا هو الرابط الذي ياخذ اسم الصورة ورقم الايدي التابع لها  
ولكن من الضروري ان تسوي صفحة حمل هذا الاسم 
Copy.aspx او اي اسم اخر
تحددة انت 
<a href="Copy.aspx?fieldc=news&id=<%#Container.DataItem("id")%>"><%#Container.DataItem("اسم حقل الصورة او العنوان")%> 

وهذا هو الكود الذي يعرض لك الصورة  ان وجدت  و
<asp:Image ImageUrl='<%# "اسم المجلد الذي فية الصور" & Container.DataItem("اسم الحقل الذي فية الصور في قاعدة البيانات") %>' runat="server" ID="img" />

<asp:TextBox ID="checkimag" Text='<%# Container.DataItem("photo") %>' runat="server" ></asp:TextBox>
</itemtemplate>
</asp:Repeater>





</form>
</div>
</body>
</html>

طبعا في صفحة Copy.aspx تنسخ نفس الصفحة ولكن تغير جملة ال sql

لكي تاخذ منها رقم الايدي

وتنسخ

<%@ Import Namespace=system.data %>
<%@ Import Namespace=system.data.oledb%>
<%@ Import Namespace=System.Web.UI.WebControls %>

<script runat="server">
dim id as astring
dim fieldc as astring

Sub Page_Load(Src As Object, E As EventArgs)

dim constar as string = ("provider=microsoft.jet.oledb.4.0; data source= " & server.MapPath("اسم القاعدة البينات .mdb") & ";")

dim con as new oledbconnection(constar)

dim ds as new oledbcommand("select * from fieldc  where id =" & id , con)


try

con.open()




اسم الربيتر.DataSource = ds.ExecuteReader

اسم الربيتر.databind()

con.close()
Catch ex As Exception
con.close()

        End Try



End Sub


 هذا  هو كود اظهار الصورة في حال وجودها  وفي حال عدم وجود صورة  لا تعرضها 
public Sub imgshow(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) 
Dim img As System.Web.UI.WebControls.Image = CType(e.Item.FindControl("img"), System.Web.UI.WebControls.Image)

if trim(CType(e.Item.FindControl("checkimag"), System.Web.UI.WebControls.textbox).text)="" then

img.Visible = False
End If




End Sub


</script>




<html >
<head>


</head>

<body >


<form id = f1 runat="server">
<div id="Layer2">


<asp:Repeater ID="اسم الربيتر " runat="server" OnItemCreated=imgshow >
<itemtemplate>
<div>

 هذا هو الرابط الذي ياخذ اسم الصورة ورقم الايدي التابع لها  
<%#Container.DataItem("اسم حقل الصورة او العنوان")%> 

وهذا هو الكود الذي يعرض لك الصورة  ان وجدت  و
<asp:Image ImageUrl='<%# "اسم المجلد الذي فية الصور" & Container.DataItem("اسم الحقل الذي فية الصور في قاعدة البيانات") %>' runat="server" ID="img" />

<asp:TextBox ID="checkimag" Text='<%# Container.DataItem("photo") %>' runat="server" ></asp:TextBox>
</itemtemplate>
</asp:Repeater>





</form>
</div>
</body>
</html>

هذا والله اعلم

هذا من تجربة وارجوا ان تسفيد

تم تعديل هذه المشاركة بواسطة متعلم طازج في 5 يناير 2006 في 19:11

عرض الصور من MS access

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