الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية تعبئة text يدويا من sqlserver

مغلق
بدأه moh1983 في 25 نوفمبر 2005 · 3 رد · 515 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اعضاء المنتدى

عندي text في صفحة الويب و اريد تعبئته ببيانات من قاعدة sql server و اريد استخدام

hard code في عملية التعبئة و قمت بمايلي:- 

Dim ConnStr As New SqlClient.SqlConnection
        ConnStr.ConnectionString = "server=(local);database=service;trusted_connection=yes"
 Dim Sql As String = "server=(local);database=service;trusted_connection=yes"
 Sql = "select car_id,car_model from cars where car_id = " &textid.text ""

Dim adp As New SqlDataAdapter(Sql, ConnStr)
        Dim dt As New DataTable
  adp.Fill(dt)
 'me.txtid.text. ' <----- كيف اعرف له dataset
me.txtid.databind

و الان كيف يمكنني تعريف مصدر لاسحب منه البيانات عن طريق text حيث اني اعتبرت text مثل datagrid من ناحية التعامل و لكنه لم يعطني datasource

فما هو الحل بعيدا عن ال wizard .............؟؟؟؟ ;)

#2

وعليكم السلام ورحمة الله

بالنسبة للربط المباشر بأدوات غير أدوات ال data مثل ال textbox فهذا لا يمكن ربطه مباشرة بمصدر بيانات مثل ال datagrid ولكن يجب أن تعرض فيه الحقل المطلوب أولا بأول (غير أسلوب windows apps) مثلا إذا فرضنا أن لديك datreader اسمه rdr ويحمل اتصالاً بحقل اسمه email مثلاً فيعرض كالآتي 

txtEmail.text = rdr("email")

وإذا أردت تحديد قيمة جديدة له فهذا لن يتم إلا بتحميل البيانات من السيرفر وإعادة تحميل الصفحة مرة أخرى ، لذا يمكنك أن تقوم بعمل تحريك المؤشر داخل datareader لكي يتقم للأمام مثلاً ثم تعيد التعبئة مرة أخرى لل textbox طبعاً يمكنك استخدام نوع آخر كمصدر بيانات وليس شرطاً datareader

هذا على حد علمي البسيط

وفقني الله وإياك للخير

#3

مشكور اخي و لكن هل بأمكانك عمل مثال بسيط و ارساله ضمن المرفقات وفقك الله

و ذلك لتوضيح عملية الربط فهي غامضة نوعا ما بالنسبة الي و شكرا

#4

thats it : -

Dim Sql As String = "server=(local);database=service;trusted_connection=yes"

Dim connstr As String = "server=(local);database=service;trusted_connection=yes"

Sql = "select feildname from tablename where feildname =" & txtid.Text & ""

Dim adp As New SqlClient.SqlDataAdapter(Sql, connstr)

Dim dt As New DataTable

adp.Fill(dt)

mylabel.Text = dt.Rows(0).Item("feildname").ToString

هذا الموضوع مغلق.

مواضيع مشابهة