[المبرمج العتيق]

(14-08-19, 08:34 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم
الطريقة التي تعتمد عليها في الحفظ هي الوضع المتصل
اما المشكلة لديك في الحفظ هو رقم السجل اذ يجب تحوبله من نص الى رقم
احذف الموديول وقم بوضع هذا الكود للفورم الرئيسي ثم اضف الحقول الناقصة الى جملة Insert حسب مسميات مربعات النصوص لديك 
ولانحتاج الى كتابة اسماء الحقول ثم القيم بل نكتب القيم مباشرة مع الانتباه الى ان الحقول الرقمية في الجدول يجب تحوبلها من نص الى رقم
واليك الكود

كود :

Imports System.Data.OleDb
Imports System.Data
Public Class Form1
   Dim con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=pho.accdb;Persist Security Info=False;")
   Dim Da As OleDbDataAdapter
   Dim Dt As New DataTable
   Dim Cmd As New OleDbCommand()



   Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
       'الوضع المتصل
       Try
           ' انتبه الى الحقل رقم السجل يجب تحويله من نص الى رقم
           Dim Str As String = "insert into ooo values (" & CInt(TextBox1.Text) & ",'" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
           Cmd = New OleDbCommand(Str, con)
           con.Open()
           Cmd.ExecuteNonQuery()

       Catch ex As Exception
           MsgBox("لم يتم الحفظ ", MsgBoxStyle.Critical)
       Finally
           con.Close()
       End Try
   End Sub
End Class

ليه أحذف المديول . ماهو وجوده واجب لأن أنا كل ماهاجى أعمل أتصال على أى فورم هاخد منه 
ثانيا رقم السجل ف القاعدة معمول auto number
ثالثا أنا شايف أن الطريقة دى مختصرة أنا بتصل بالقاعدة من خلال المديول زوبعد كدة بستدعى الإتصال دة فى أى حدث أنا شغال فيه