مشکل در کد

سلام

نقل قول:

---

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 استفاده کنید.