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


الملفات المرفقة
.rar   mrsystem.rar (الحجم : 83.37 ك ب / التحميلات : 59)
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 29)
اللهم يا ارحم الراحمين ارحم اخي اباليث رحمة واسعة
 
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , Microformt


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 72 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 55 18-05-17, 06:28 AM
آخر رد: khaled12345
  ارجو المساعدة حفظكم الله rabeh.ram 2 94 16-05-17, 10:16 PM
آخر رد: rabeh.ram
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 130 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 288 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 285 11-05-17, 11:54 AM
آخر رد: khaled12345
  كيف يمكن برمجة هذا rabeh.ram 2 81 08-05-17, 03:13 PM
آخر رد: rabeh.ram
  عند استدعاء تقرير يطلب مني كلمة السر لقاعدة البيانات samawi 3 109 05-05-17, 10:24 PM
آخر رد: samawi
  [سؤال] بخصوص ادخال التاريخ الى قاعدة البيانات Abdulaziz Hazazi 7 228 05-05-17, 03:13 PM
آخر رد: وسام احمد ابراهيم

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


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