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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef

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


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