• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

diffmood

اعضاء جدد
  • عدد المشاركات

    1
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن diffmood

  • الرتبة
    عضو جديد
  • تاريخ الميلاد 04/04/1990

معلومات الملف الشخصي

  • الجنس ذكر
  1. ممكن اني استعلم عن حقول في جدول .. واظهر البيانات في textbox غير قابلة للتعديل !! كود form -------------------- ------------------- Imports System.Data Imports System.Data.OleDb Public Class Form4 Dim frm As New Form3 Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source =" & Application.StartupPath & "\das.mdb" Dim Conn As New OleDbConnection(ConStr) Dim SQLstr As String Dim m As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Static m As Integer = 0 TextBox1.Text = Trim("") Conn.Open() Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn) Close() TextBox2.DataBindings.Add("Text", DasDataSet1, "tabs.mod_p") TextBox3.DataBindings.Add("Text", DasDataSet1, "tabs.num_p") TextBox5.DataBindings.Add("Text", DasDataSet1, "tabs.num_ph1") SQLstr = "SELECT FROM tabs WHERE num_j = '" & TextBox1.Text & "'" SQLstr = "SELECT FROM tabs WHERE num_p = '" & TextBox1.Text & "'" SQLstr = "SELECT FROM tabs WHERE num_ph1 = '" & TextBox1.Text & "'" If Me.BindingContext(DasDataSet1, "tabs").Count = 0 Then MsgBox("No Result, Please Try Again ") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Me.Hide() My.Forms.Form2.Show() End Sub Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DasDataSet1.tabs' table. You can move, or remove it, as needed. Me.TabsTableAdapter.Fill(Me.DasDataSet1.tabs) End Sub End Class ----------------------------------------------------------- ----------------------------------------------------------- ---------------------------------------------------------- عند تنفيذ الكود .. يظهر النافذة "No Result, Please Try Again" ويغلق البرنامج تلقائي .................................. ....................... ..............