参数与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错误

回答

相关问题