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


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

الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 45 أمس, 09:03 PM
آخر رد: noway
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 99 20-02-17, 04:27 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 62 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 51 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 92 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 58 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 103 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  قاعدة بيانات صيدلية amrdipo 7 4,469 07-02-17, 05:49 PM
آخر رد: Amir_alzubidy
  [سؤال] خطأ اثناء ادخال البيانات RAWAN.HQ 1 53 07-02-17, 01:15 PM
آخر رد: Amir_alzubidy
  [سؤال] كود الاتصال بقاعدة البيانات فى Class noway 0 54 06-02-17, 02:48 AM
آخر رد: noway

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


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