المشاركات : 75
المواضيع 35
الإنتساب : Apr 2015
السمعة :
1
الشكر: 1
تم شكره 6 مرات في 6 مشاركات
03-06-15, 05:38 AM
(آخر تعديل لهذه المشاركة : 03-06-15, 05:56 AM {2} بواسطة hatem555.)
مشكلة بعد اضافة سطو في الداتا جريد فيو
انا عامل داتابيز علي اكسس 2002
وعملت داتا جريد فيو يعرق اللي في الداتا بيز
وعملت اكواد الاتصال
واكواد اضافة سطر جديد
المشكلة بقي ان
بعد اضافة سطر جديد
السطر مش بيظهر في الداتا جريد فيو
غير لما اقفل البرنامج واشغله تاني
انا مستعمل الكود ده
كود :
sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')"
Conn.Open()
sqcomand.ExecuteNonQuery()
Conn.Close()
انا محتاج كود تحديث الداتا جريد فيو بدون ريستارت البرنامج
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة :
43
الشكر: 3583
تم شكره 2753 مرات في 170 مشاركات
سلام
عشان الاضافه الجديده تظهر لازم تقوم بتعبئة الداتاجريدفيو من جديد بعد الاضافه على طول
موفقين
المشاركات : 75
المواضيع 35
الإنتساب : Apr 2015
السمعة :
1
الشكر: 1
تم شكره 6 مرات في 6 مشاركات
(03-06-15, 06:11 AM)الطالب كتب : سلام
عشان الاضافه الجديده تظهر لازم تقوم بتعبئة الداتاجريدفيو من جديد بعد الاضافه على طول
موفقين
يعني اكتب الكود ده
datagridview.clear()
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "t")
Conn.Close()
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة :
43
الشكر: 3583
تم شكره 2753 مرات في 170 مشاركات
سلام
ما تحاج غير الاسطر دهمن بعد الاضافة على طول
كود :
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "t")
DataGridView1.DataSource = DataSet1.Tables("t")
موفقين
المشاركات : 75
المواضيع 35
الإنتساب : Apr 2015
السمعة :
1
الشكر: 1
تم شكره 6 مرات في 6 مشاركات
لسه مش اتحدث برده
الكود داكل اهوة
لاوز اقفل وافتح عشان الاضافة تظهى
PHP كود :
Dim sqcomand As New OleDb.OleDbCommand sqcomand.Connection = Conn sqcomand.CommandType = CommandType.Text Label1.Text = 1 sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')" ' If (Conn.State = ConnectionState.Open) Then Conn.Close() Conn.Open()
sqcomand.ExecuteNonQuery() Conn.Close() '======================================== Timer1.Enabled = False Timer2.Enabled = False MsgBox("تم حفظ البيانات بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تم الحفظ")
والكود الجديد اهوه
sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')"
' If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
'=========================
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "t")
'============================
sqcomand.ExecuteNonQuery()
Conn.Close()
'=======================================
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "t"
DataGridView1.Refresh()
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة :
43
الشكر: 3583
تم شكره 2753 مرات في 170 مشاركات
سلام
انا قلت بعد الاضافه مش في وسطيه
يعني بعد ما تعمل close
بص الكود عامل ازاي
كود :
Dim sqcomand As New OleDbCommand
sqcomand.CommandText = "Insert Into [t] ([a],[b],[c],[total],[datee],[timee]) values (@param1, @param2, @param3, @param4, @param5, @param6)"
sqcomand.Parameters.AddWithValue("@param1", TextBox1.Text.Trim)
sqcomand.Parameters.AddWithValue("@param2", TextBox2.Text.Trim)
sqcomand.Parameters.AddWithValue("@param3", TextBox3.Text.Trim)
sqcomand.Parameters.AddWithValue("@param4", Val(total.Text))
sqcomand.Parameters.AddWithValue("@param5", dt)
sqcomand.Parameters.AddWithValue("@param6", TimeOfDay)
If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
sqcomand.ExecuteNonQuery()
Conn.Close()
sqcomand.Dispose()
'=========================
Call datagridviewfill()
'============================
End Sub
Sub datagridviewfill()
Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM [t]", Conn)
DataAdapter1.Fill(DataSet1, "t")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "t"
DataAdapter1.Dispose()
End Sub
موفقين
المشاركات : 75
المواضيع 35
الإنتساب : Apr 2015
السمعة :
1
الشكر: 1
تم شكره 6 مرات في 6 مشاركات
(03-06-15, 07:00 AM)الطالب كتب : سلام
انا قلت بعد الاضافه مش في وسطيه
يعني بعد ما تعمل close
بص الكود عامل ازاي
كود :
Dim sqcomand As New OleDbCommand
sqcomand.CommandText = "Insert Into [t] ([a],[b],[c],[total],[datee],[timee]) values (@param1, @param2, @param3, @param4, @param5, @param6)"
sqcomand.Parameters.AddWithValue("@param1", TextBox1.Text.Trim)
sqcomand.Parameters.AddWithValue("@param2", TextBox2.Text.Trim)
sqcomand.Parameters.AddWithValue("@param3", TextBox3.Text.Trim)
sqcomand.Parameters.AddWithValue("@param4", Val(total.Text))
sqcomand.Parameters.AddWithValue("@param5", dt)
sqcomand.Parameters.AddWithValue("@param6", TimeOfDay)
If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
sqcomand.ExecuteNonQuery()
Conn.Close()
sqcomand.Dispose()
'=========================
Call datagridviewfill()
'============================
End Sub
Sub datagridviewfill()
Dim DataAdapter1 As New OleDbDataAdapter("SELECT * FROM [t]", Conn)
DataAdapter1.Fill(DataSet1, "t")
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "t"
DataAdapter1.Dispose()
End Sub
موفقين
تسلم ايدك الكود تمام
بعد اصافة الكود
dataset1.clear()
|