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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] طلب برمجة برنامج يحول صفحات الويب الي فيديو elokely 0 9 منذ 4 ساعة مضت
آخر رد: elokely
  عمل شريط متحرك من قاعدة البيانات hglogtd 24 277 15-10-17, 11:54 PM
آخر رد: hglogtd
  [VB.NET] سؤال عن برمجة برنامج Badi054 6 84 15-10-17, 04:43 PM
آخر رد: سعود
  [VB.NET] قاعدة بيانات اكسس hglogtd 8 118 14-10-17, 03:38 PM
آخر رد: hglogtd
  ربط combobox بصفحه البيانات abdel.halim 8 126 11-10-17, 07:27 PM
آخر رد: abdel.halim
  توقف قاعدة البيانات عن الاستجابة وعدم قبول اي تعديلات nassery99 2 54 09-10-17, 06:34 PM
آخر رد: nassery99
  [VB.NET] سؤال :- طريقة جميع الوقت من قاعدة البيانات dubai.eig 4 120 03-10-17, 04:02 PM
آخر رد: dubai.eig
  يطلع رساله ( انه فيه خطأ ) اتمني دعمك "visual basic 2015 ", اسعدكم الله Abdulhadi 8 101 01-10-17, 09:13 AM
آخر رد: Abdulhadi
  [VB.NET] مشكلة ظهور جدولين من قاعدة بيانات أكسس في أداة DataGridView Waleed Al-Khamesy 7 125 30-09-17, 11:50 PM
آخر رد: Abu Ehab
  مشكله تكرار اول قيمه اضيقت لقاعدة البيانات !! Rabeea Qbaha 2 73 29-09-17, 04:51 AM
آخر رد: Rabeea Qbaha

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


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