جملة INSERT محاولة فاشلة

#112 أبريل 2006 في 19:09 صاحب الموضوع

السلام عليكم

أخواني انا مبرمج تطبيقات ويب asp.net و لكني الان أنتقلت الى winapps

وبالتالي أجد صعوبة في عملية ادخال بيانات الى قاعدة sqlserver

اليكم ما حدث

عرفت sql clint في public class ايضا sqlcomman و sql connection

 Inherits System.Windows.Forms.Form
    Private conn As SqlClient.SqlConnection = New SqlClient.SqlConnection("server=(local);database=vb;trusted_connection=yes")
    Private sql As New SqlClient.SqlCommand
    Public ConnStr As String = "server=(local);database=vb;trusted_connection=yes"

و عملت 2 textbox و زر حدث و في زر الحدث كتبت

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim e1 As String = txt1.Text
            Dim e2 As String = txt2.Text

        sql = New SqlClient.SqlCommand("insert into vb (username,password) values('" & e1& "','" & e2& "')", conn)
            conn.Open()
        sql.ExecuteNonQuery()
     End Sub

ولكن لا تتم الأضافة الى قاعدة البيانات و يعطيني enhandled error

أرجو الأفادة ...................................

#212 أبريل 2006 في 23:50

-9

أخى moh1983

تصحيح الكود

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim e1 As String = TextBox1.Text
        Dim e2 As String = TextBox2.Text

        sql.CommandText = "insert into vb (username,password) values('" & e1 & "','" & e2 & "')"
        sql.Connection = conn
        conn.Open()
        sql.ExecuteNonQuery()
        conn.Close()
    End Sub

أخى عند كتابتك هذا الكود بهذا الشكل

 sql = New SqlClient.SqlCommand("insert into vb (username,password) values('" & e1& "','" & e2& "')", conn)

فهو لا يقبل لأنه يعتبر الsql من نوع string وبالتالى لا يقبل جملة الcommand

ولكن كتابة sql.commandtext فبالتالى تكون قد كونت جملة الcommand

وكتابة sql.connection تكون قد كونت الconnection للcommand

يمكنك كتابة كود الزر بهذة الطريقة

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim e1 As String = TextBox1.Text
        Dim e2 As String = TextBox2.Text

Dim sql As New SqlClient.SqlCommand("insert into vb (username,password) values('" & e1 & "','" & e2 & "')", conn)

        conn.Open()
        sql.ExecuteNonQuery()
        conn.Close()
    End Sub

وطبعا ستعرف الsqlcommand داخل الزر بالطريقة السابقة

ممكن أسألك لماذا هذا الكود

 Public ConnStr As String = "server=(local);database=vb;trusted_connection=yes"

على الرغم من إنك عرفت الconnention من خلال هذا الكود

Private conn As SqlClient.SqlConnection = New SqlClient.SqlConnection("server=(local);database=vb;trusted_connection=yes")

أنأ أرى ان الكود السابق يكفى فأنا جربت به الcommand وعمل معى

-waf

تم تعديل هذه المشاركة بواسطة enjyshahin في 13 أبريل 2006 في 00:06

يا حى يا قيوم برحمتك أستغيث اصلح لى شأنى كله ولا تكلنى إلى نفسى طرفة عين

اللهم أعنا على ذكرك وشكرك وحسن عبادتك

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

اللهم إنى أسألك رضاك والجنة وأعوذ بك من سخطك والنار

اللهم إرحمنا فوق الأرض وإرحمنا تحت الأرض وإرحمنا وإعتق رقابنا يوم العرض

اللهم لا تدع لنا ذنبًا إلا غفرته ولا همًا إلا فرجته ولا مريضًا ولا دينًا إلا قضيته ولا عيبا إلا سترته ولا حاجًا هى لك رضا إلا قضيتها

اللهم انى أسألك موجبات رحمتك وعزائم مغفرتك والسلامة من كل إثم والغنيمة من كل بر والفوز بالجنة و النجاة من النار اللهم أمين يا رب العالمين

#320 أبريل 2006 في 15:24

thanks alot man you right

جملة INSERT محاولة فاشلة

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

عدد الزوار حالياً