Public Function InsertLargeTeam(ByVal ACode As String, ByVal AName As String) As String
Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
Dim sError As String Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
Dim cmdLt As New SqlCommand(SqlStat, cntLt)
Me.AddParameter(cmdLt, "@no", ACode)
Me.AddParameter(cmdLt, "@name", AName)
cntLt.Open()
Try
cmdLt.ExecuteNonQuery()
sError = ""
Catch e As Exception
sError = e.Message
Finally
cntLt.Close()
End Try
Return sError
End Function
Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
Dim sError As String Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
Dim cmdLt As New SqlCommand(SqlStat, cntLt)
Me.AddParameter(cmdLt, "@no", ACode)
Me.AddParameter(cmdLt, "@name", AName)
cntLt.Open()
Try
cmdLt.ExecuteNonQuery()
sError = ""
Catch e As Exception
sError = e.Message
Finally
cntLt.Close()
End Try
Return sError
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货