السلام عليكم و رحمة الله
أقوم بعمل function update meta data
(مرفق الكود )
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim user As MembershipUser = Membership.GetUser()
Dim myConnection As SqlConnection
Dim myTransaction As SqlTransaction = Nothing
Dim reader As SqlDataReader
' Dim loid As Integer = Request.QueryString("LOID")
Dim cmd As String = "SELECT * FROM MetaData WHERE Identifier =3"
Try
myConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("DBConnectionString1").ToString())
myConnection.Open()
myTransaction = myConnection.BeginTransaction()
Dim myCommand As SqlCommand = New SqlCommand(cmd, myConnection, myTransaction)
reader = myCommand.ExecuteReader()
reader.Read()
TitleBox.Text = reader.GetString(1)
CreatorBox.Text = reader.GetString(2)
LanguageList.Text = reader.GetString(3)
FormatList.Text = reader.GetString(4)
ContributorBox.Text = reader.GetString(6)
DescriptionBox.Text = reader.GetString(7)
CoverageBox.Text = reader.GetString(8)
PublisherBox.Text = reader.GetString(9)
RelationBox.Text = reader.GetString(10)
RightsBox.Text = reader.GetString(11)
SourceBox.Text = reader.GetString(12)
SubjectBox.Text = reader.GetString(13)
TypesList.Text = reader.GetString(14)
reader.Close()
myCommand.ExecuteNonQuery()
reader.Close()
myTransaction.Commit()
Finally
myConnection.Dispose()
End Try
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim user As MembershipUser = Membership.GetUser()
Dim myConnection As SqlConnection
Dim myTransaction As SqlTransaction = Nothing
Dim reader As SqlDataReader
myConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("DBConnectionString1").ToString())
Dim myCommand As SqlCommand = New SqlCommand
myConnection.Open()
myCommand.Connection = myConnection
myCommand.CommandText = "update MetaData set Title=""&TitleBox.Text&"" where Identifier=3"
With myCommand.Parameters.Clear()
With myCommand.Parameters
.Clear()
With myCommand.Parameters
.Clear()
.AddWithValue("Title", "edit")
End With
End With
myCommand.ExecuteNonQuery()
myConnection.Close()
myCommand.Dispose()
myCommand = Nothing
End Subالمشكلة لدي انه حين اضغط تعديل لا يتحرك الزر و لا يحصل شي !
و كما تلاحظون الشرط الحالي where identifier = 3
لانه لديuser id
و هومعرف ك unique identifier
و مازلت ابحث عن طريقة لاسترجاعة , لكن ما يهمني الان هو ان يعمل الابديت يشكل جيد
رجااااء لا تبخلوا علي بالمساعدة فقد قضيت اياما على هذه الفنكشن و لم اوفق حتى الان
