(15-12-14, 08:19 PM)thaer techno كتب : ممكن اخي كود البحث بحسب رقم
وعند إضافة سجل جديد هل ينحفظ من تلقاء نفسه ولا في كود خاص بتخزينه ؟
بالنسبة للسؤال الثاني اذا اذا كنت تبغا تحفظ او تخزنوا
كود :
Imports System.Data.OleDb
Dim Home As New OleDbConnection
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Home.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Database71.accdb"
Dim MED As New OleDbCommand
MED.Connection = Home
MED.CommandText = "insert into ostaz values ('" + TextBox1.Text + "','" + TextBox2.Text + "')"
MED.ExecuteNonQuery()اما السؤال الاول فهوا عن طريق جملة select
كود :
Dim MODZ As OleDbDataReader
Dim MAD As New OleDbCommand
MAD.Connection = Home
MAD.CommandText = "select * From ostaz where Name ='" + TextBox1.Text + "'"
MODZ = MAD.ExecuteReader
If MODZ.Read Then
TextBox1.Text = MODZ(1)
Else
MsgBox(" لا يوجد [" + TextBox1.Text + "] ", MessageBoxIcon.Stop)
Label3.Text = "Error "
End If
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها 
