شرح كيفية ارسال بريد الاكترونى ( داخل الموقع ) بين الاعضاء

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

gg()

End Sub

Public Sub gg()

Try

من هنا نكتب كود الخاص باضافة البيانات داخل جدول حقنا بداخل قاعدة بيانات

Catch ex As SqlException

' Response.Write(" ")

Response.Write(ex.Message)

وفى حالة وجد اى خطا تظهر لنا رسالة الخطا

conn2.Close()

End Try

End Sub

Dim ddff As New Random

هنا بنعرف متغير على انه نسخة جديدة من الثابت راندوم والهدف مت ذللك اننا نريد ان نحفظ ارقام عشوائية مع كل سجل يحفظ بقاعدة بيانات لكى هذا الرقم العشوائى انه ينفعنا فى whare

Dim random_no As String = ddff.Next(399393)

Dim cmd As New SqlCommand

cmd.Connection = conn2

ومن هنا نحن نقول ضع امام كل حقل ؛ بيانات اتت من اداة تيكت بوكس وبتدخل قيمتها فى ببرامتر

بمثال بسيط

un=@1=Textbox

Dim dd As String = " insert into user_regester(un,pw,copw,RN)values(@1,@2,@3,@4)

cmd.CommandText = dd

cmd.Parameters.Clear()

cmd.Parameters.AddWithValue("@1", TextBox1.Text)

cmd.Parameters.AddWithValue("@2", TextBox2.Text)

cmd.Parameters.AddWithValue("@3", TextBox3.Text)

cmd.Parameters.AddWithValue("@4", "random_no")

conn2.Open()

cmd.ExecuteNonQuery()

Response.Redirect("Default.aspx")

conn2.Close()

Catch ex As SqlException

' Response.Write(" ")

Response.Write(ex.Message)

conn2.Close()

End Try