23-12-18, 01:14 AM
(آخر تعديل لهذه المشاركة : 23-12-18, 01:19 AM {2} بواسطة atefkhalf2004.)
حضرتك كيف
عقب ملء الاعمدة بالنجمة مثلا
كيف يتم تخزينها
If Conn.State = ConnectionState.Open Then Conn.Close()
Dim SavInto6 As New OleDb.OleDbCommand
SavInto6.Connection = Conn
SavInto6.CommandType = CommandType.Text
SavInto6.CommandText = "update student set r11='*' where r11 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set r12='*' where r12 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set rg1=0 where rg1 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set rtak1='*' where rtak1 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
عقب ملء الاعمدة بالنجمة مثلا
كيف يتم تخزينها
If Conn.State = ConnectionState.Open Then Conn.Close()
Dim SavInto6 As New OleDb.OleDbCommand
SavInto6.Connection = Conn
SavInto6.CommandType = CommandType.Text
SavInto6.CommandText = "update student set r11='*' where r11 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set r12='*' where r12 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set rg1=0 where rg1 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()
SavInto6.CommandText = "update student set rtak1='*' where rtak1 is null "
Conn.Open()
SavInto6.ExecuteNonQuery()
Conn.Close()

