UC知道帮我写代码注释(要清楚点)
来源：百度知道 编辑：UC知道 时间：2024/05/09 12:52:03
Else
Try
Dim ff As Integer
Dim i As Integer
Dim con As New SqlConnection
con.ConnectionString = "uid=sa;database=stu;server=."
Dim conn As New SqlConnection
Dim comm As New SqlCommand
conn.ConnectionString = "uid=sa;server=.;database=stu"
comm.Connection = conn
comm.CommandText = "select count(*) from stu where id='" + Me.stuid.Text.Trim + "'"
conn.Open()
i = Convert.ToInt32(comm.ExecuteScalar())
conn.Close()
If i > 0 Then
conn.Open()
Dim updatestring As String
updatestring = "update stu set name='" + Me.stuname.Text.Trim + "',bj='" + Me.bj.Text.
Try
Dim ff As Integer
Dim i As Integer
Dim con As New SqlConnection
con.ConnectionString = "uid=sa;database=stu;server=."
Dim conn As New SqlConnection
Dim comm As New SqlCommand
conn.ConnectionString = "uid=sa;server=.;database=stu"
comm.Connection = conn
comm.CommandText = "select count(*) from stu where id='" + Me.stuid.Text.Trim + "'"
conn.Open()
i = Convert.ToInt32(comm.ExecuteScalar())
conn.Close()
If i > 0 Then
conn.Open()
Dim updatestring As String
updatestring = "update stu set name='" + Me.stuname.Text.Trim + "',bj='" + Me.bj.Text.
Else
Try '错误处理区域
Dim ff As Integer ‘定义1个整形变量
Dim i As Integer ‘定义1个整形变量
Dim con As New SqlConnection ‘定义1个连接字符窜变量
con.ConnectionString = "uid=sa;database=stu;server=."
Dim conn As New SqlConnection
Dim comm As New SqlCommand
conn.ConnectionString = "uid=sa;server=.;database=stu"
comm.Connection = conn
comm.CommandText = "select count(*) from stu where id='" + Me.stuid.Text.Trim + "'"
’定义comm的查询内容
conn.Open() ‘打开连接
i = Convert.ToInt32(comm.ExecuteScalar()) ’返回comm的查询结果，并转化为整型，把转化后的结果赋给变量i
conn.Close()
If i > 0 Then '如果有查询结果
conn.Open() ‘打开连接
Dim updatestring As String
updatestring = "update stu set name='" + Me.stuname.Text.Trim + "',bj='" + Me.bj.Text.Trim + "',lc='" + Me.louc.Text.Trim + "',zhuzhi='" + Me.zhuzhiid.Text.Trim + "',chaungwei='"