[Microformt]

بسم الله الرحمن الرحيم

الاخوه الكرام
 السلام عليكم ورحمة وبركاته
 نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟
 نامل من الله التعديل على المثال المرفق والله يحفظكم ويرعاكم
 تحياتي

[mrnooo2000]

(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 = ""

[سعود]

استبدل كامل الكود عندك بهذا

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.Object, ByVal e As System.EventArgs) Handles 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.Object, ByVal e As System.EventArgs) Handles 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(Nothing, Nothing)
    End Sub

End Class 


[الوادي]

وممكن هكذا

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.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da.Fill(dt)
        DataGridView1.DataSource = dt
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        dt.Rows.Add(TextBox1.Text, TextBox2.Text)

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

        TextBox1.Text = ""
        TextBox2.Text = ""

    End Sub

End Class 


[جميل علي]

تفضل أخي الكريم

تم التعديل