تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟
#1
Question 
بسم الله الرحمن الرحيم
الاخوه الكرام
 السلام عليكم ورحمة وبركاته
 نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟
 نامل من الله التعديل على المثال المرفق والله يحفظكم ويرعاكم
 تحياتي


الملفات المرفقة
.rar   mrsystem.rar (الحجم : 83.37 ك ب / التحميلات : 53)

الرد }}}}
تم الشكر بواسطة:
#2
(19-08-16, 07:34 PM)Microformt كتب :
بسم الله الرحمن الرحيم
الاخوه الكرام
 السلام عليكم ورحمة وبركاته
 نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟
 نامل من الله التعديل على المثال المرفق والله يحفظكم ويرعاكم
 تحياتي


عدل كود الزر الى هذا الكود



dt.Rows.Add()
dt.Rows(dt.Rows.Count - 1).Item(0) = TextBox1.Text
dt.Rows(dt.Rows.Count - 1).Item(1) = TextBox2.Text

' send changes to DB
dt.AcceptChanges()
Using cmd As OleDbCommand = con.CreateCommand
con.Open()
cmd.CommandText = "INSERT INTO noop ([Name] ,[Pass]) VALUES (" & TextBox1.Text & "," & TextBox2.Text & ");"
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Saved")
End Using

TextBox1.Text = ""
TextBox2.Text = ""
الرد }}}}
تم الشكر بواسطة: الوادي , الوادي , Microformt
#3
استبدل كامل الكود عندك بهذا
PHP كود :
Imports System.Data.OleDb
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
 
   Dim da As OleDbDataAdapter
    Dim cm 
As OleDbCommandBuilder
    Dim dt 
As DataTable
    Private Sub Form1_Load
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        DataGridView1
.DataSource Nothing
        DataGridView1
.Rows.Clear()
 
       dt = New DataTable
        da 
= New OleDbDataAdapter("select * from noop"con)
 
       cm = New OleDbCommandBuilder(da)
 
       da.Fill(dt)
 
       DataGridView1.DataSource dt
    End Sub

    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        Dim dr 
As DataRow dt.NewRow
        dr
(0) = TextBox1.Text
        dr
(1) = TextBox2.Text
        dt
.Rows.Add(dr)
 
       da.Update(dt)
 
       Form1_Load(NothingNothing)
 
   End Sub

End 
Class 
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: الوادي , khodor1985 , khodor1985 , Microformt
#4
وممكن هكذا
PHP كود :
Imports System.Data.OleDb

Public Class Form1

    Dim con 
As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
    
Dim da As New OleDbDataAdapter("SELECT * FROM noop"con)
    
Dim dt As New DataTable

    
Private Sub Form1_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load
        da
.Fill(dt)
        
DataGridView1.DataSource dt
    End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click

        dt
.Rows.Add(TextBox1.TextTextBox2.Text)

        
Dim b As New OleDbCommandBuilder(da)
        
da.Update(dt)

        
TextBox1.Text ""
        
TextBox2.Text ""

    
End Sub

End 
Class 
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , Microformt
#5
تفضل أخي الكريم

تم التعديل


الملفات المرفقة
.rar   mrsystem.rar (الحجم : 100.06 ك ب / التحميلات : 26)
أساتذتي الكرام
Heart أبوعمر/ سعود/ممدوح الخطيب Heart
شكرا لكم
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , Microformt


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 17 منذ 8 ساعة مضت
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 113 أمس, 03:09 PM
آخر رد: thevirus
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 73 أمس, 12:47 AM
آخر رد: ali.alfoly
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 51 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 39 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 193 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 99 26-11-16, 03:03 AM
آخر رد: hglogtd
  اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله ahmed salam 44 3,585 25-11-16, 06:34 PM
آخر رد: thevirus
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 86 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 119 23-11-16, 05:21 PM
آخر رد: hglogtd

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


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