16,555
社区成员
发帖
与我相关
我的任务
分享
Dim conn As New OleDbConnection(SqlString)
' Try
conn.Open()
Dim cmd As New OleDbCommand
cmd.Connection = conn
cmd.CommandText = "UpdateAttendanceRec " & empid & ",'" & empname & "','" & deptid & "','" & deptname & "','" & recdate & "','" & acin & "','" & acout & "','" & checkatt & "'"
'TextBox1.Text = cmd.CommandText
cmd.CommandType = CommandType.StoredProcedure
cmd.ExecuteNonQuery()
' Catch ex As Exception
' MessageBox.Show(ex.Message.ToString())
' End Try
UpdateAttendanceRec 350,'test','8','总经办','2008/12/25','2000/12/30 0:00:00','2000/12/30 0:00:00',''