مشکل در کد

مشکل این کد کجاست

کد:

---

Dim strcon1 As String
        ' Dim com1 As SqlCommand
        Dim da As SqlClient.SqlDataAdapter
        Dim strsql1, strsql3 As String
        Dim con1 As SqlClient.SqlConnection
        Dim ds1 As New DataSet
        Dim dr As SqlClient.SqlDataReader

        Dim c As Integer
        Dim sum1 As Integer
        Dim sum2 As Integer
        ds1.Clear()
        strsql1 = "select a = sum(nom1),b = sum(nom2) from table2 "



        strcon1 = "Data Source=(local);Initial Catalog=nomre;Integrated Security=True"
        con1 = New SqlClient.SqlConnection(strcon1)

        con1.Open()
        da = New SqlClient.SqlDataAdapter(strsql1, con1)

        SqlCommand1 = New SqlClient.SqlCommand(strsql1, con1)

        da.Fill(ds1, "table2")
        dr = SqlCommand1.ExecuteReader()
        dr.Read()
        sum1 = dr("a")
        sum2 = dr("b")
        c = sum1 - sum2
        strsql3 = "INSERT INTO table2 (nom3) VALUES ('" & c & "') where id ='" & TextBox1.Text & "'"
       
        dr.Close()
        con1.Close()
        ds1.Dispose()
        da.Dispose()

---

[/quote]

یکم زیادی کد گذاشتی که غیر قابل استفاده است مثلا

کد:

---

  da = New SqlClient.SqlDataAdapter(strsql1, con1)

        da.Fill(ds1, "table2")


---

و یا

کد:

---

  strsql3 = "INSERT INTO table2 (nom3) VALUES ('" & c & "') where id ='" & TextBox1.Text & "'"


---

از این دو بخش هیچ استفاده ای نشده.




در کل اگه خطایی میده خطا رو ذکر کنید.

خطا نمیده فقط کاری رو که من میخوام انجام نمیده من میخوام مقادیر ستون یک رو باهم جمع کنه و مقادیر ستون دوم رو هم همینطور و سپس اونها رو از هم کم کنه و مقدار اون رو در ستون سوم قرار بده

ببخشید ، من کدتونو نخوندم ، اگه میخواین کارایی که انجام میدین رو database تاثیر داشته باشه باید برنامه رو در حالت Release اجرا کنین

میشه بیشتر توضیح بدید

از اساتید کسی نیست که کمک کنه:41:

سلام
کدهای شما زیاد جالب توجه نیستند و کمی متداخل هستند و اشتباهات زیادی هم دارند.

کدهای پیشنهادی:
برای استخراج مقادیر از دیتابیس:

کد:

---

Private Sub DbSelectA()
    Const SQL_SELECT As String = "SELECT SUM([nom1]), SUM([nom2]) FROM [table2];"
 
    Dim iSum_nom_1 As Long
    Dim iSum_nom_2 As Long
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_SELECT, dbCon)
 
        dbCon.Open()
        Using dbDr = dbCom.ExecuteReader()
            If (dbDr.Read()) Then
 
                Try
                    iSum_nom_1 = CLng(dbDr(0))
                Catch
                End Try
 
                Try
                    iSum_nom_2 = CLng(dbDr(1))
                Catch
                End Try
            End If
        End Using
    End Using
 
    '...
    'Any code ...
    '...
    'iSum_nom_1 ...
    'iSum_nom_2 ...
    '...
 
End Sub
 
Private Sub DbSelectB()
    Const SQL_SELECT As String = "SELECT SUM([nom1])-SUM([nom2]) FROM [table2];"
 
    Dim iResult As Long
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_SELECT, dbCon)
 
        dbCon.Open()
        Try
            iResult = CLng(dbCom.ExecuteScalar())
        Catch
        End Try
    End Using
 
    '...
    'Any code ...
    '...
    'iResult ...
    '...
 
End Sub

---

اولی دو مقدار مجزا را میخواند و دومی فقط یک مقدار را میخواند که بهینه تر است.

=====

برای درج دیتای جدید:

کد:

---

Private Sub DbInsertA(ByVal id As String, ByVal nom3 As String)
    Const SQL_INSERT As String = "INSERT INTO [table2]([id], [nom3]) VALUES(@id, @nom3);"
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_INSERT, dbCon)
 
        With dbCom.Parameters
            .Add("@id", System.Data.SqlDbType.NVarChar).Value = If(String.IsNullOrEmpty(id), CObj(System.DBNull.Value), id)
            .Add("@nom3", System.Data.SqlDbType.NVarChar).Value = If(String.IsNullOrEmpty(nom3), CObj(System.DBNull.Value), nom3)
        End With
 
        dbCon.Open()
        dbCom.ExecuteNonQuery()
    End Using
End Sub
 
Private Sub DbInsertB(ByVal id As Integer, ByVal nom3 As Integer)
    Const SQL_INSERT As String = "INSERT INTO [table2]([id], [nom3]) VALUES(@id, @nom3);"
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_INSERT, dbCon)
 
        With dbCom.Parameters
            .Add("@id", System.Data.SqlDbType.Int).Value = id
            .Add("@nom3", System.Data.SqlDbType.Int).Value = nom3
        End With
 
        dbCon.Open()
        dbCom.ExecuteNonQuery()
    End Using
End Sub

---

در اولی فرض شده که دو فیلد شما متنی هستند و یک فیلد Autonumber هم در جدول دارید.

در دومی فرض شده هر دو فیلد عددی عادی هستند.

=====

اگر هم بخواهید نتیجه یک دستور SQL را در دستور SQL دیگری استفاده، معمولاً نیازی به انتقال در داخل کدها نیست و میتوان خود دستورات SQL را برای اینکار اصلاح کرد.

از راهنماییتون ممنونم من از کدهای شما به این صورت استفاده کردم ولی وقتی میخوام در قسمت select شرط بزارم خطای constant expression is requrid رو میده

کد:

---

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const SQL_SELECT As String = "SELECT SUM(nom1)-SUM(nom2) FROM table2 ;"
        Dim nom3 As Integer
        Dim iResult As Long

        Using _
            dbCon As New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=nomre;Integrated Security=True"), _
            dbCom As New System.Data.SqlClient.SqlCommand(SQL_SELECT, dbCon)

            dbCon.Open()
            Try
                iResult = CLng(dbCom.ExecuteScalar())
            Catch
            End Try
        End Using

 
        Const SQL_INSERT As String = "INSERT INTO [table2]( [nom3]) VALUES( @nom3);"

        Using _
            dbCon As New System.Data.SqlClient.SqlConnection("Data Source=(local);Initial Catalog=nomre;Integrated Security=True"), _
            dbCom As New System.Data.SqlClient.SqlCommand(SQL_INSERT, dbCon)

            With dbCom.Parameters

                .Add("@nom3", System.Data.SqlDbType.Int).Value = nom3
            End With

            dbCon.Open()
            dbCom.ExecuteNonQuery()
        End Using
    End Sub

---

سلام

نقل قول:

---

ولی وقتی میخوام در قسمت select شرط بزارم خطای constant expression is requrid رو میده

---

دستوری که من الآن در بالا میبینم ایراد خاصی ندارد.
(البته من کدهایم را در دو رویه مستقل نوشته بود و شما میتوانید dbCon را یکبار New و Open کنید و دوبار استفاده کنید، مشکلی ندارد)

شما باید کدهای مشکل دارتان را که خطا میدهد اینجا قرار دهید تا ایرادش را بتوان متوجه شد.
(همان کدی که میگوید شرط برایش گذاشته اید)

راستش رو بخاین من برنامرو بدون شرط اجرا کردم و هیچ خطایی نمیده ولی فقط مقدار صفر رو برمیگردونه
کدی که خطا میگیره

کد:

---

Const SQL_SELECT As String = "SELECT SUM(nom1)-SUM(nom2) FROM table2 where id= '" & TextBox1.Text & "' "

---