04-07-13, 02:16 PM
أخي محمد فعلا خطرت ببالي هذه الفكرة من قبل وقمت بتجربتها إلا أنه لايقوم بتخزين قيمة حقل الشعبة بداخل جدول الشعبsections
فيما يلي الكود الذي استخدمته والملف المرفق
فيما يلي الكود الذي استخدمته والملف المرفق
كود :
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] connstr [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]String[/color][/SIZE][/COLOR][/SIZE][SIZE=2] = ConfigurationManager.ConnectionStrings([/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"ConnectionString"[/color][/SIZE][/COLOR][/SIZE][SIZE=2]).ConnectionString[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Protected[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/color][/SIZE][/COLOR][/SIZE][SIZE=2] Button1_Click([/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/color][/SIZE][/COLOR][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Object[/color][/SIZE][/COLOR][/SIZE][SIZE=2], [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]ByVal[/color][/SIZE][/COLOR][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Handles[/color][/SIZE][/COLOR][/SIZE][SIZE=2] Button1.Click[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] cn [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]New[/color][/SIZE][/COLOR][/SIZE][SIZE=2] SqlConnection(connstr)[/SIZE]
[SIZE=2] cn.Open()
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] cname [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]String[/color][/SIZE][/COLOR][/SIZE][SIZE=2] = t1.Text[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] secname [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]String[/color][/SIZE][/COLOR][/SIZE][SIZE=2] = t2.Text[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#008000][SIZE=2][COLOR=#008000]'-----------------------------------------------------------[/color][/SIZE][/COLOR][/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] myTrans = cn.BeginTransaction()[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Dim[/color][/SIZE][/COLOR][/SIZE][SIZE=2] myCommand [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]New[/color][/SIZE][/COLOR][/SIZE][SIZE=2] SqlCommand()[/SIZE]
[SIZE=2] myCommand.Connection = cn
myCommand.Transaction = myTrans
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Try[/color][/SIZE][/COLOR][/SIZE]
[SIZE=2] myCommand.CommandText =
[/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"insert into t1 (classname) values( '"[/color][/SIZE][/COLOR][/SIZE][SIZE=2] + cname + [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"')"[/color][/SIZE][/COLOR][/SIZE]
[SIZE=2] myCommand.ExecuteNonQuery()
myCommand.CommandText = (
[/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"INSERT INTO sections (classno) select top(1) classno from t1 order by classno desc "[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2] myCommand.ExecuteNonQuery()
myCommand.CommandText = (
[/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"update sections set section =('"[/color][/SIZE][/COLOR][/SIZE][SIZE=2] + secname + [/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"')where secid =(Select max(secid) from sections"[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2] myTrans.Commit()
Response.Write(
[/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"Both records are written to database."[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Catch[/color][/SIZE][/COLOR][/SIZE][SIZE=2] ep [/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]As[/color][/SIZE][/COLOR][/SIZE][SIZE=2] Exception[/SIZE]
[SIZE=2] myTrans.Rollback()
Response.Write(
[/SIZE][SIZE=2][color=#a31515][SIZE=2][COLOR=#a31515]"Neither record was written to database."[/color][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Finally[/color][/SIZE][/COLOR][/SIZE]
[SIZE=2] cn.Close()
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]End[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Try[/color][/SIZE][/COLOR][/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]End[/color][/SIZE][/COLOR][/SIZE][SIZE=2][color=#0000ff][SIZE=2][COLOR=#0000ff]Sub[/color][/SIZE][/COLOR][/SIZE]