VS2017通过ODBC连接SQL数据库插入数据失败问题排查

问题基础信息 #

• 开发场景：Visual Studio 桌面窗体开发（实际代码为VB.NET语法，题述标注C#为笔误）
• 已验证正常项：ODBC连接配置正确、其他窗体数据增删操作正常、数据库服务无异常、控制层自动编号生成功能运行正常
• 故障表现：窗体录入的乘客信息点击保存后无法写入数据库，故障范围锁定在控制层插入逻辑

现有业务代码 #

控制层 ClsCtlPenumpang #

Imports System.Data.Odbc

Public Class ClsCtlPenumpang
Dim SQL As String

Public Function SIMPAN_DATAPenumpang(ByVal _pbl As ClsEntInfoPenumpang) As String
    Dim KP As String
    KP = ""
    TUTUPKONESI()
    With _pbl
        Sql = "CALL INSERTPENUMPANG('" & .Nama_penumpang & "')"
        MsgBox(Sql)
        Try
            DTA = New OdbcDataAdapter(Sql, BUKAKONEKSI)
            DTS = New DataSet
            DTA.Fill(DTS, "TABEL_KDPenumpang")
            KP = DTS.Tables("TABEL_KDPenumpang").Rows(0)(0).ToString

        Catch ex As Exception
            If _pbl Is Nothing Then
                _pbl = New ClsEntInfoPenumpang
            End If
        End Try
    End With
    TUTUPKONESI()

    Return KP
End Function


Function kodebaru() As String
    Dim baru As String
    Dim kodeakhir As Integer
    Try
        DTA = New OdbcDataAdapter("select max(right(id_penumpang,2))from info_penumpang", BUKAKONEKSI)
        DTS = New DataSet()
        DTA.Fill(DTS, "max_kode")
        kodeakhir = Val(DTS.Tables("max_kode").Rows(0).Item(0))
        baru = "SEAT" & Strings.Right("0" & kodeakhir + 1, 2)
        Return baru
    Catch ex As Exception
        Throw New Exception(ex.Message)
    End Try
End Function
End Class

实体类 ClsEntInfoPenumpang #

Public Class ClsEntInfoPenumpang
Private _id_penumpang As String
Private _nama_penumpang As String

Public Property Id_penumpang As String
    Get
        Return _id_penumpang
    End Get
    Set(value As String)
        _id_penumpang = value
    End Set
End Property

Public Property Nama_penumpang As String
    Get
        Return _nama_penumpang
    End Get
    Set(value As String)
        _nama_penumpang = value
    End Set
End Property
End Class

窗体层 FormPenumpang #

Public Class FormPenumpang
    Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtNama.Focus()
        txtIDPenumpang.Text = KontrolPenumpang.kodebaru()
        txtIDPenumpang.Enabled = False
    End Sub

    Private Sub btnSave_Click_1(sender As Object, e As EventArgs) Handles btnSave.Click
        With EntitasPenumpang
            .Id_penumpang = txtIDPenumpang.Text
            .Nama_penumpang = txtNama.Text
        End With

        KontrolPenumpang.SIMPAN_DATAPenumpang(EntitasPenumpang)

        MdiParent = FormUtama
    End Sub
End Class

核心故障点 #

1. 存储过程传参缺失：调用INSERTPENUMPANG存储过程时仅传入了乘客姓名字段，实体类中预先生成的主键Id_penumpang没有传入，存储过程接收到参数不匹配会直接执行失败，插入操作被回滚。
2. 异常捕获完全失效：插入逻辑的Catch块没有输出任何错误信息，捕获到异常后仅做了无意义的空对象判断，直接吞掉所有报错，导致插入失败时用户看不到任何提示，无法感知错误原因。
3. 执行方法选型错误：OdbcDataAdapter.Fill方法设计用途是执行查询并填充数据集，不适合用来做插入操作。如果存储过程没有返回标准结果集，后续读取Rows(0)(0)的操作会直接触发索引越界/空引用异常，正好被无效的异常捕获逻辑吞掉。
4. SQL拼接存在语法隐患：直接拼接用户输入的姓名字符串，如果姓名中包含单引号（比如O'Conner），会直接导致SQL语法错误，语句执行中断。

修复方案 #

1. 补全存储过程传参，将预先生成的主键ID一并传入存储过程，和表字段对应。
2. 重写异常捕获逻辑，不要吞掉异常，捕获到错误时直接弹出错误信息方便定位。
3. 替换执行逻辑：插入操作使用OdbcCommand.ExecuteNonQuery执行，如果需要获取存储过程返回的主键，使用命令参数绑定输出参数接收，不要用DataAdapter做写入操作。
4. 改用参数化查询替代字符串拼接，避免特殊字符导致的语法错误。

修正后的插入方法参考 #

Public Function SIMPAN_DATAPenumpang(ByVal _pbl As ClsEntInfoPenumpang) As String
    Dim KP As String = ""
    TUTUPKONESI()
    ' 注意：存储过程参数个数需要和你数据库里的INSERTPENUMPANG定义一致，这里假设需要传入id和nama两个参数，返回新插入的id
    SQL = "CALL INSERTPENUMPANG(?, ?)"
    Try
        Using conn As OdbcConnection = BUKAKONEKSI()
            Using cmd As New OdbcCommand(SQL, conn)
                ' 按顺序绑定参数，ODBC参数是按顺序匹配不是按名称匹配
                cmd.Parameters.AddWithValue("@id", _pbl.Id_penumpang)
                cmd.Parameters.AddWithValue("@nama", _pbl.Nama_penumpang)
                ' 执行插入
                cmd.ExecuteNonQuery()
                KP = _pbl.Id_penumpang
            End Using
        End Using
    Catch ex As Exception
        ' 弹出错误信息，不要吞异常
        MsgBox("插入失败：" & ex.Message, MsgBoxStyle.Critical)
        KP = ""
    Finally
        TUTUPKONESI()
    End Try
    Return KP
End Function

内容的提问来源于stack exchange，提问作者yuyudss