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

تحويل من صيغة TextBox إلى Integar

بدأه programing*gril في 25 يونيو 2011 · 4 رد · 731 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لقد واجهتني مشكلة أخذ القيمة من الـ TextBox في جملة الـ Select

وتحويلها الى Integer

في ما يلي الكود :

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim R As new sqlCommand ("SELECT Department_name  FROM(DEPARTMENT)Where  Department_num = 'TextBox1'), conn)
        Catch ex As Exception

        End Try
    End Sub
End Class
308219358.gif
#2

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

مبدئيا الكود الحالى لا يستخدم مربع النص أبدا وإنما يستخدم الكلمة TextBox1

وعموما لتحويل النص إلى متغير رقمى يمكن استخدام Integer.Parse أو Val

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim R As new sqlCommand ("SELECT Department_name  FROM DEPARTMENT Where  Department_num =" & Integer.Parse(TextBox1.Text), conn)
        Catch ex As Exception

        End Try
    End Sub
End Class

أو

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim R As new sqlCommand ("SELECT Department_name  FROM DEPARTMENT Where  Department_num =" & Val(TextBox1.Text), conn)
        Catch ex As Exception

        End Try
    End Sub
End Class

تم تعديل هذه المشاركة بواسطة GHOST2010 في 26 يونيو 2011 في 12:34

1

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3

شكرا لك اخي الكريم ولكن مازال هناك حطأ في صياغة جملة السلكت

تحديدا في الشرط where

حيث انه يعطي خطأ عند آخر قوس

308219358.gif
#4

السلام عليكم ورحمه الله وبركاته

اختي جربي الكود التالي


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim R As new sqlCommand ("SELECT Department_name FROM DEPARTMENT Where Department_num =" & Convert.ToInt32(TextBox1.Text), conn)
Catch ex As Exception
End Try
End Sub

1

.:: Wish to become better and better ::.

#5
اقتباس
شكرا لك اخي الكريم ولكن مازال هناك حطأ في صياغة جملة السلكت

تحديدا في الشرط where

حيث انه يعطي خطأ عند آخر قوس

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

تم تصحيح الخطأ

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

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