مشکل در کد

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

کد:

---

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 & "' "

---

سلام

نقل قول:

---

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

---

حالا مشخص شد!
شما در Const از متغییر استفاده کرده اید و طبیعتاً خطای constant expression is requrid را دریافت میکنید.

کد صحیح:

کد:

---

Private Sub DbSelectB()
    Const SQL_SELECT As String = "SELECT SUM([nom1])-SUM([nom2]) FROM [table2] WHERE ([id]=@id);"
 
    Dim iResult As Long
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_SELECT, dbCon)
 
        dbCom.Parameters.Add("@id", System.Data.SqlDbType.Int).Value = int.Parse(Me.TextBox1.Text) 'فیلد عددی
        'dbCom.Parameters.Add("@id", System.Data.SqlDbType.NVarChar).Value = Me.TextBox1.Text  'فیلد متنی

        dbCon.Open()
        Try
            iResult = CLng(dbCom.ExecuteScalar())
        Catch
        End Try
    End Using
 
    '...
    'Any code ...
    '...
    'iResult ...
    '...
 
End Sub

---

البته کد فوق در صورت خالی بودن TextBox به خطا خواهد خورد (باید تعویض DBNull رویش اعمال شود.)

سلام ممنونم مشکل شرط حل شد ولی مشکل قبلی هنوز حل نشده من کدهای بالا رو اجرا میکنم و تنها تغییری که در بانکم ایجاد میشه اینه که یک سطر که تمام فیلدهای اون null هستند ایجاد میشه و فقط فیلد num3 مقدار صفر رو نشون میده
راستش برنامه من در مورد محاسبه مانده بر اساس پرداخت و در یافت است و من میخوام یک ستون مربوط به مانده در جدولم داشته باشم تا هر وقت که بخوام از اطلاعات گزارش بگیرم ممنونم

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

سلام

نقل قول:

---

تنها تغییری که در بانکم ایجاد میشه اینه که یک سطر که تمام فیلدهای اون null هستند ایجاد میشه و فقط فیلد num3 مقدار صفر رو نشون میده

---

جواب همان است.
دقت خودتان را بیشتر کنید.
معمولاً یک اشتباه کوچک خنده دار میتواند کار را خراب کند.

به نوع فیلدها و مقداری که میدهید هم دقت کنید

کد:

---

Private Sub DbInsertA(ByVal field_1_int As Integer, ByVal field_2_str As String, field_3_date As Date)
    Const SQL_INSERT As String = "INSERT INTO [table2]([field_1_int], [field_2_str], [field_3_date]) VALUES(@field_1_int, @field_2_str, @field_3_date);"
 
    Using _
        dbCon As New System.Data.SqlClient.SqlConnection("---CONNECTIONSTRING---"), _
        dbCom As New System.Data.SqlClient.SqlCommand(SQL_INSERT, dbCon)
 
        With dbCom.Parameters
            .Add("@field_1_int", System.Data.SqlDbType.Int).Value = field_1_int
            .Add("@field_2_str", System.Data.SqlDbType.NVarChar).Value = field_2_str
            .Add("@field_3_date", System.Data.SqlDbType.DateTime).Value = field_3_date
        End With
 
        dbCon.Open()
        dbCom.ExecuteNonQuery()
    End Using
End Sub

---

در صورت عدم حل مشکل، در صورت امکان کدتان را آپلود کنید.

این دقیقا کدهایی هست که من به کار میبرم

کد:

---


    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 WHERE ([id]=@id); ;"
        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)
            dbCom.Parameters.Add("@id", System.Data.SqlDbType.NVarChar).Value = Me.TextBox1.Text
            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.NVarChar).Value = nom3

            End With

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

---

سلام

نقل قول:

---

این دقیقا کدهایی هست که من به کار میبرم

---

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

=====

شما (SUM(nom1)-SUM(nom2 را فقط برای سطرهایی با id مشخص اجرا کرده اید و نتیجه را در iResult ریخته اید.

بعددر مرحله دوم دستور INSERT داده اید و فقط یک فیلد nom3 آن را پر کرده اید که در داخل این nom3 در برنامه عدد صفر قرار دارد!
هیچ فیلد دیگری را مقدار دهی نکرده اید و nom3 را هم حتی پر نکرده اید و صفر باقی مانده!
(نمیدانم شاید میخواستید نتیجه iResult ار در nom3 بریزید که انجامش ندادید؟؟؟)

=====

یک سوال!
فیلد id جدول table2 تان نوعش چیست؟ عددی است یا متنی یا ... ؟
فیلد nom3 جدول table2 تان نوعش چیست؟ عددی است یا متنی یا ... ؟

چندین بار تاکید کردم که نوع فیلد مهم است.
اگر این فیلدی عددی باشد باید به جای NVarChar از نوعی مثل Int استفاده و به آن عدد هم بدهید.

کد:

---

'...
 dbCom.Parameters.Add("@id", System.Data.SqlDbType.Int).Value = CInt(Me.TextBox1.Text)
'...
 
'...
.Add("@nom3", System.Data.SqlDbType.Int).Value = nom3
'...

---

در مقابل اگر متنی باشند میتوانید از نوعی مثل NVarChar استفاده کنید ولی باید متن هم به انها بدهید.

کد:

---

'...
dbCom.Parameters.Add("@id", System.Data.SqlDbType.NVarChar).Value = Me.TextBox1.Text
'...
 
'...
.Add("@nom3", System.Data.SqlDbType.NVarChar).Value = nom3.ToString()
'...

---

شما الآن نوع nom3 در کدهای VB.Net تان Integer است که عددی است ولی از NVarChar استفاده کرده اید که متنی است.
کدتان اجرا میشود ولی اینت کار تضمین و اعتبار ندارد.
یا باید به جای nom3 برای پرکردن فیلد از nom3.ToString استفاده کنید و یا به جای NVarChar از Int استفاده کنید.