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

تحديث قاعدة البيانات في نموذج يحوي textbox

مغلق
بدأه ماهمه شي في 1 يونيو 2005 · 4 رد · 643 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني سألت سؤال ولم اجد له اجابة في هذا المنتدى ووجدت احد الاخوان يسأل نفس السؤال ولم نجد له اجابة .

وبفضل الله وجدت الاجابة واردت مشاركة الجميع بها .

السؤال هو كيفية عمل تحديث لقاعدة البيانات من نموذج يحتوي على

Textbox

او

Checkbox

الشرح :

في البداية هناك نموذج يحتوي على

Textbox name t1

Textbox name t2

Checkbox name c1

وقاعدة بيانات اكسس اسمها

Au

تحتوي ثلاثة أعمدة

Name type text

Password type text

Male type true/false

نريد كتابة الاسم في

T1

ونريد كتابة الباسوورد في

T2

والجنس يكون ذكر في حالة الاختيار

C1

Imports System.data.oledb

Imports System.Data.DataTableCollection

Public Class admin

Inherits System.Windows.Forms.Form

Dim cn As OleDbConnection

Dim cmd As OleDbCommand

Dim dr As OleDbDataReader

Dim str As String

Dim x as integer

Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click

Try

cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= au.mdb;Persist Security Info=False")

cn.Open()

X= c1.checked

str = "insert into pass values('" & CStr(t1.Text) & "','" & CStr(t2.Text) & "','" & x & "')"

cmd = New OleDbCommand(str, cn)

Close()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

طبعا سوف تلاحظ اني حولت

Boolean

الى

Integer

في

X=c1.checked

وذلك لاني حاولت اني اضعها داخل جملة

Insert

ولكن رسالة خطأ تظهر في كل مرة اريد فيها الحفظ الى ان حولتها الى

Integer

اتمنى ان يكون الشرح واضح وغير مكرر

والله من وراء السعي

دعواتكم لاخي بالشفاء

#2

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

اسئل الله العظيم رب العرش العظيم ان يشفى اخاك

لى تعليق بسيط

ما الهدف من السطر التالى ولم يتم استخدام 

 Dim dr As OleDbDataReader  [CODE]

وبلنسبة لعملية التحويل من نوع الى اخر استخدم System.Convert

مثال

Dim Check1 As Int32

Check1 = System.Convert.ToInt32(CheckBox1.Checked) 

وبلنسبة لجملة الحفظ ابقا ضيف بعد كل مربع نص Trim

Dim sql As String = "INSERT INTO Products([ProductName],[Discontinued])VALUES ('" & Me.TextBox1.Text.Trim & "', '" & Check1 & " ' )"

وابقا استخدم Execute

cn.Open()

cmd.ExecuteNonQuery()

cn.Close() 

ودة كود انا كنت ضيفة فى المنتدى من فترة هو مثال على حفظ رقم من CheckBox
اقتباس
         Dim Check1 As Int32
        Check1 = System.Convert.ToInt32(CheckBox1.Checked)
        Dim cmd As New SqlClient.SqlCommand
        cmd.Connection = SqlConnection1
        Try
            If SqlConnection1.State <> ConnectionState.Open Then
                SqlConnection1.Open()
                Dim sql As String = "INSERT INTO Products([ProductName],[Discontinued])VALUES ('" & Me.TextBox1.Text.Trim & "', '" & Check1 & " ' )"
                cmd.CommandText = sql
                cmd.ExecuteNonQuery()
                MsgBox("Adding is successful", MsgBoxStyle.Exclamation, "Products")
                Me.TextBox1.Text = ""
                Me.TextBox1.Focus()
                CheckBox1.Checked = False
                SqlConnection1.Close()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            SqlConnection1.Close()
        End Try 

      
تم تعديل هذه المشاركة بواسطة waleedhm في 1 يونيو 2005 في 00:31

      

      
{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة
br17.gif
برنامج الإتصلات الإدارية والارشيف الالكتروني
برنامج الخبير لنقاط البيع المباشرة

    

  

    
    

      
#3
        
        

      
اخي وليد
الحقيقة انا اقل من مبتدىء في الدوت نت
اما بالنسبة للسطر الزائد فانا نقلت من برنامجي الكود كامل ثم اقتطعت الزيادات التي لا تهم القارىء ونسيت البعض
اخي اتمنى ان تفيدنا بكل ماعندك حتى تعم الفائدة
عندي كم سؤال ارجوا الاجابة عليها
1- ما الفائدة من  cmd.ExecuteNonQuery()
2- لماذا لم تنفع طريقة عمل الداتاسيت يعني مثل ماانسوي مع الداتا جرد
3-وضعت سؤال لم يجاوبني احد عليه قد اجابته عندك وهو ان الداتاجرد تظهر ال true false كتابة وانا اريدها checkbox للتسهيل على مستخدم البرنامج
في النهاية رفع الله من قدرك وعلمك ونفع به المسلمين

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم 
بلنسية للسؤال الاول 
مرفق مثال 
بلنسبة لى ExecuteNonQuery دية لتفيذ جملة sql 
فى منها اكتر من طريقة 
ExecuteScalar و ExecuteReader
ودية علشان تنفذ جملة sql مع ارجاع قيمة 
مثال 
  cmd.CommandText = "select count (*) from tbl "
        Dim Scalar As String = cmd.ExecuteScalar()
        MessageBox.Show(Scalar)
WindowsApplication3.rar

      
      

      
{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة
br17.gif
برنامج الإتصلات الإدارية والارشيف الالكتروني
برنامج الخبير لنقاط البيع المباشرة

    

  

    
    

      
#5
        
        

      
شكرا جزيلا اخي وليد
وانا في انتظار باقي الاجوبة
اذا سمح وقتك بذلك ولو بعد حين

      
      

      
    

  

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

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…