vb语句翻译在线等im strsql As StringOn Error GoTo ErrMsg '判断数据的正确性 I
vb语句翻译在线等
im strsql As String
On Error GoTo ErrMsg
'判断数据的正确性
If Trim(txt(0)) = "" Or Trim(txt(1)) = "" Or Trim(txt(2)) = "" Or Trim(txt(2)) = "" Or Trim(txt(3)) = "" Or Trim(txt(4)) = "" Or Trim(txt(5)) = "" Or Trim(txt(6)) = "" Or Trim(txt(7)) = "" Or Trim(txt(8)) = "" Then
MsgBox "添加的值不能为空!", vbInformation, MSGTITLE
Exit Sub
End If
'打开连接并执行语句
Set cnn = New ADODB.Connection
If cnn.State = 1 Then cnn.Close
cnn.ConnectionString = Business_ConnStr
If cnn.State = 0 Then cnn.Open
strsql = "insert into 论文信息(论文编号,论文题目,论文年度,论文摘要,论文作者,论文分类,所属院校,所属教研室,指导教师,指导教师电话) " _
+ "values('" + Trim(txt(0).Text) + "','" + Trim(txt(1).Text) + "','" + Trim(txt(2).Text) + "','" + Trim(txt(3).Text) + "','" + Trim(txt(4).Text) + "','" + Trim(Combo1(0).Text) + "', '" + Trim(txt(5).Text) + "','" + Trim(txt(6).Text) + "','" + Trim(txt(7).Text) + "','" + Trim(txt(8).Text) + "')"
Debug.Print strsql
cnn.Execute (strsql)
cnn.Close
'重新绑定控件
Call RefreshTypeList
adc_xgsj.Recordset.MoveLast
MsgBox "添加记录成功!", vbInformation, MSGTITLE
Exit Sub
ErrMsg:
MsgBox "数据库操作出错!请联系系统管理员!", vbInformation, MSGTITLE
End Sub