+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net (/showthread.php?tid=3122)
الصفحات:
1
2
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - raoe-041 - 24-11-14
اخي الكريم بالنسبة انك تقوم بالحفظ و عند الاغلاق تختفي البيانات حاول ان تغير خاصية الداتا بيس و خليها NEVER COPY ................لان البرنامج يقوم بنسخ مؤقت ...
و اما عن زر الحقظ و التحديث و التعديل ساضع هنا رابط لفيديوهات تقوم بذلك و اذا لم تستطيع تحميل الفيديوهات ساقوم بوضع الاكواد التي تريدها هنا .......... تحياتي
الاتصال بقاعدة البيانات عن طريق المعالج
http://www.youtube.com/watch?v=DHkdVbs0NIo
الدورة كاملة ........
http://www.youtube.com/channel/UCjmZcOZ0Q9rQ6IA7zyB-79w
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - raoe-041 - 24-11-14
تفضل اخي طريقة تغير خاصية الداتا بيس ارجو ان تستفاد منها ............
[attachment=6136]
[attachment=6137]
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 24-11-14
سأجرب والله يوفقكم
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 24-11-14
اتضح اني عاملها اخي العزيز كما في الصور والخالة هي هي
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - raoe-041 - 25-11-14
اخي الكريم يوجد خاصيتين لها و هي never copy و dont copy حاول ان تجربهما ............. و لكن لماذا لا تتصل عن طريق الاكواد
افضل و اسهل اليك جملة الاتصال اسهل و افضل لتتبع الاخطاء .........
PHP كود :
' 2003كود جملة لاتصال بالاكسس
Public connAccess2003 As New OleDbConnection("provider=Microsoft.jet.OLEDB.4.0;" & "data source=" & Application.StartupPath & "\DATABASE\DATA.mdb")
PHP كود :
' 2010-2007كود جملة لاتصال بالاكسس
Public connAcess2007 As New OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DATABASE\DATA.accdb")
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - jaap - 29-11-14
الله يوفقك وهل هي صالحة للاوفس ٢٠١٣
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - raoe-041 - 04-12-14
اخي الكريم انا لم اجربها على الاوفيس 2013 و ياريت انت تجربها و تخبرنا بالنتيجة .............. تحياتي
RE: كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net - wessam.demerdash - 13-01-15
الطريقة الاحسن والاسرع تعمل كلاس وموديول
في الكلاس تكتب
Imports System.Data
Imports System.Data.SqlClient
Imports System.Globalization
Public Class Class1
Public Shared sqlcon As New SqlConnection
'دالة بناء اوامر الحفظ والحذف والتعديل >>>
Public Function SQLExicute(ByVal SQLStatmenT As String) As Boolean
Try
Dim Cmd As New SqlClient.SqlCommand
Cmd.CommandText = SQLStatmenT
sqlcon.Open()
Cmd.Connection = sqlcon
Cmd.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
MsgBox(ex.Message)
Finally
sqlcon.Close()
End Try
End Function
End Class
__________________________________________________________________________________________
في الموديول تكتب
Imports System.Data
Imports System.Data.SqlClient
Module Module1
'المتغيرات العامة
Public wessam As New Class1
End Module
___________________________________________________________________________________________
في زر الحذف تكتب
Private Sub btn_Delete_Click(sender As Object, e As EventArgs) Handles btn_Delete.Click
If txtname.Text.Trim = "" Then
MsgBox("لا يوجد بيانات للحذف من فضلك حدد البيان المراد حذفه", MsgBoxStyle.Critical, "مدرستي")
Else
Dim deleteok As String = MsgBox("هل ترغب في حذف البيانات بالفعل؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تأكيد عملية حذف البيانات")
If deleteok = vbYes Then
Dim deleteyes As Boolean = WinClass.SQLExicute("Delete from NATION where NID='" & TxtID.Text & "'")
If deleteyes = True Then
MsgBox("تمت عملية الحذف بنجاح", MsgBoxStyle.Exclamation, "وسام")
txtname.Text = ""
txtname.Enabled = False
filldatagrid()
Else
MsgBox("خطأ في عملية الحذف", MsgBoxStyle.Critical, "مدرستي")
End If
End If
End If
End Sub
End Class
_____________________________________________________________________________________________
وهذة الدالة ستحتاجها تنظيم الداتا جريد وتعبئتها
Private Sub filldatagrid()
WinClass.filldataGrid(DataGridView1, "select * from NATION")
DataGridView1.Columns(0).HeaderText = "الرقم"
DataGridView1.Columns(0).Visible = False
DataGridView1.Columns(1).HeaderText = "الجنسية"
DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End Sub
___________________________________________________________________________________________
هذة الدلة في حلة الضغط على معلومة مخزنة في الداتا جريد لعرضها علي التكيست لحذفها
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
ISUpdate = True
txtname.Enabled = True
TxtID.Text = DataGridView1(0, e.RowIndex).Value
txtname.Text = DataGridView1(1, e.RowIndex).Value
End Sub
___________________________________________________________________________________________
وهذا الحدث load
Private Sub national_Load(sender As Object, e As EventArgs) Handles Me.Load
txtname.Text = ""
filldatagrid()
End Sub