 |
|
Error : Conversion from type 'DBNull' to type 'Integer' is not valid. |
|
 |
|
|
 |
 |
|
ก็ query max ตอนที่ไม่มี record ใน db มันคืนค่า null มานั่นเอง
ดังนั้น ก็ if ใส่ ตรงตัวแปร count ซะ
If(Count = 0, 1, Count )
|
 |
 |
 |
 |
Date :
2017-02-06 11:00:52 |
By :
Luz |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Dim Count As Integer = If(Count = 0, 1, Count)
error เหมือนเดิมครับ
|
 |
 |
 |
 |
Date :
2017-02-06 11:13:41 |
By :
NUTKA |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
มัน Error บรรทัดไหนครับ
|
 |
 |
 |
 |
Date :
2017-02-06 11:15:58 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
น่าจะต้องใช้ IsDBNull นะครับ
|
 |
 |
 |
 |
Date :
2017-02-06 11:24:24 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
คุณ mr.win error แบบนี้ครับ Additional information: Conversion from type 'DBNull' to type 'Integer' is not valid.
คุณ Luz ไม่ผ่านอยู่ดีครับ
|
 |
 |
 |
 |
Date :
2017-02-06 11:26:18 |
By :
NUTKA |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ได้แล้วครับ สรุปทำตาม Admin และ ของคุณ TOR_CHEMISTRY ใช้ได้ทั้ง 2 แบบเลยครับ
ขอบคุณ คุณ TOR_CHEMISTRY ทำให้ Code ของผมสั้นลงด้วย
ขอบคุณ คุณ Luz ด้วยครับที่เข้ามาให้คำแนะนำ
ขอบคุณทุกคนมากๆครับ ขอบคุณครับ ^^
Code (VB.NET)
Imports System.Data.SqlClient
Public Class Manage_RawMaterial_New
Inherits System.Web.UI.Page
Dim objConn As SqlConnection
Dim objCmd As SqlCommand
Dim strConnString, strSQL As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Public Sub ConnectDB()
strConnString = ConfigurationManager.ConnectionStrings("con").ConnectionString
objConn = New SqlConnection(strConnString)
End Sub
Private Sub AddAutoID()
Try
Dim intNum As String = Nothing
Dim Count As Integer
ConnectDB()
strSQL = "SELECT ISNULL(MAX(RIGHT(RM_ID,4)),0) AS RM_ID FROM RawMaterial_New"
objCmd = New SqlCommand(strSQL, objConn)
objConn.Open()
Count = objCmd.ExecuteScalar()
objConn.Close()
Dim iMAX As Integer = IIf(Count <= 0, 1, Count + 1)
If iMAX < 10000 Then
strSQL = "INSERT INTO RawMaterial_New (RM_ID) VALUES ('" & iMAX.ToString("RM0000") & "')"
objCmd = New SqlCommand(strSQL, objConn)
objConn.Open()
objCmd.ExecuteNonQuery()
objConn.Close()
MsgBox("บันทึกสำเร็จ")
Else
MsgBox("ข้อมูลเต็ม")
End If
Catch ex As Exception
Response.Write("Error : " + ex.Message)
End Try
End Sub
Protected Sub btnRM_Add_Click(sender As Object, e As EventArgs) Handles btnRM_Add.Click
AddAutoID()
End Sub
End Class
|
ประวัติการแก้ไข 2017-02-06 11:44:45 2017-02-06 11:57:55
 |
 |
 |
 |
Date :
2017-02-06 11:43:30 |
By :
NUTKA |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|

|
 |
 |
 |
 |
Date :
2017-02-06 11:56:15 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|