تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية حذف صف من قاعدة بيانات اكسس باستخدام vb.net
#11
اخي الكريم بالنسبة انك تقوم بالحفظ و عند الاغلاق تختفي البيانات حاول ان تغير خاصية الداتا بيس و خليها NEVER COPY ................لان البرنامج يقوم بنسخ مؤقت ...

و اما عن زر الحقظ و التحديث و التعديل ساضع هنا رابط لفيديوهات تقوم بذلك و اذا لم تستطيع تحميل الفيديوهات ساقوم بوضع الاكواد التي تريدها هنا .......... تحياتي



الاتصال بقاعدة البيانات عن طريق المعالج

http://www.youtube.com/watch?v=DHkdVbs0NIo

الدورة كاملة  ........
http://www.youtube.com/channel/UCjmZcOZ0Q9rQ6IA7zyB-79w
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة: nabil1982
#12
تفضل اخي طريقة تغير خاصية الداتا بيس ارجو ان تستفاد منها ............


   


   
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#13
سأجرب والله يوفقكم
الرد }}}
تم الشكر بواسطة:
#14
اتضح اني عاملها اخي العزيز كما في الصور والخالة هي هي
الرد }}}
تم الشكر بواسطة:
#15
اخي الكريم يوجد خاصيتين لها و هي 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") 
 ملاحظة  غير فقط اسم قاعدة البيانات ................ تحياتي 
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#16
الله يوفقك وهل هي صالحة للاوفس ٢٠١٣
الرد }}}
تم الشكر بواسطة:
#17
اخي الكريم انا لم اجربها على الاوفيس 2013 و ياريت انت تجربها و تخبرنا بالنتيجة .............. تحياتي
..................  و فوق كل ذي علم عليم  ................
الرد }}}
تم الشكر بواسطة:
#18
الطريقة الاحسن والاسرع تعمل كلاس وموديول
في الكلاس تكتب
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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 672 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,009 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,241 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  [سؤال] كيفية تسنسيق الارقام ف خلية السيكوال adelsbeed 0 879 23-04-22, 05:49 AM
آخر رد: adelsbeed
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم