參數與ODBC錯誤

我有供應參數與odbc存儲過程中的問題，這是我在module form Public cmd As OdbcCommand參數與ODBC錯誤

Private Sub cmdapprove_Click(sender As Object, e As EventArgs) Handles cmdapprove.Click 
    cmd = New OdbcCommand("select * from mk_cuti where mk_nik='" & txtnik.Text & "'", conn) 
    rd = cmd.ExecuteReader 
    rd.Read() 
    rd.Close() 
    Call opendb() 
    If txtstatus.Text = 1 Then 
     Using (conn) 
      cmd.Connection = conn 
      cmd.CommandType = CommandType.StoredProcedure 
      cmd.CommandText = "sp_update_data_trans_cuti_terbawa" 
      cmd.Parameters.AddWithValue("@mk_nik", Me.txtnik.Text) 
      cmd.ExecuteNonQuery() 
     End Using 

     Dim updatestatus_hrd As String = "Update input_cuti set status_hrd=1 " & _ 
     "where no_input='" & txtnoinput.Text & "'" 
     cmd = New OdbcCommand(updatestatus_hrd, conn) 
     cmd.ExecuteNonQuery() 
     Call datacutikaryawan() 
    Else 
     Dim updatestatus_hrd As String = "Update input_cuti set status_hrd=1 " & _ 
     "where no_input='" & txtnoinput.Text & "'" 
     cmd = New OdbcCommand(updatestatus_hrd, conn) 
     cmd.ExecuteNonQuery() 
     Call datacutikaryawan() 
    End If 

End Sub

當我運行這個程序

過程中，我得到按摩此

ERROR [42000] [Microsoft] [ODBC SQL Server驅動程序] [SQL Server]過程或函數'sp_update_data_trans_cuti_terbawa'期望未提供參數 '@mk_nik'。

我想任何人都可以幫助我嗎？請

來源

2016-02-26 Doni Pratama

這裏有一個與你的類：

Dim conn As New OdbcConnection(sConnString) 
conn.Open() 
Dim sqlCommand As String = "sp_update_data_trans_cuti_terbawa @mk_nik='" & Me.txtnik.Text & "'" 

Dim command As New OdbcCommand(sqlCommand) 
command.CommandType = CommandType.StoredProcedure 
command.Connection = conn 
command.ExecuteNonQuery()

Aight，我要去最近的酒館。

來源

2016-02-26 04:34:01

這個工作，非常感謝..祝福你 –

conn.execute("sp_update_data_trans_cuti_terbawa @mk_nik='" & Me.txtnik.Text & "'")

來源

2016-02-26 03:43:26

我把這個？ –

「If txtstatus.Text = 1 Then」替換整個「Using」子句 –

show'execute'不是'System.Data.Odbc.OdbcConnection'的成員。 –

我模塊與本

進口System.Data.Odbc 進口System.Data 模塊koneksi 公共康恩作爲OdbcConnection 公共str作爲字符串公共達作爲OdbcDataAdapter的公共DS作爲DataSet Public cmd As OdbcCommand Public rd As OdbcDataReader

Sub opendb() 
    str = "Dsn=pmscuti;database=att2000;server=pams-01;uid=sa;pwd=pams123" 
    conn = New OdbcConnection(str) 
    If conn.State = ConnectionState.Closed Then 
     Try 
      conn.Open() 
      'MsgBox("Connection Successfully") 
     Catch ex As Exception 
      MsgBox(ex.Message) 
      Application.Exit() 

     End Try 
    End If 
End Sub

結束模塊

我可以知道問題所在嗎？

來源

2016-02-26 04:32:45

參數與ODBC錯誤

回答

相關問題