16,722
社区成员




tSQL = "insert into userids values('" & tUserInfo.USERID & "','" & tUserInfo.PSW & "',""" & tUserInfo.USERNAME & """,""" & tUserInfo.SECTION & """,""" & tUserInfo.USERPOST & """,'" & tUserInfo.JURISDICTION & "',now())"
Using tCONN As New MySqlConnection(pCONNSTRING) '连接数据库并执行非返回的sql语句
Dim tCMD As New MySqlCommand(LcSQLString, tCONN)
Try
tCMD.Connection.Open()
tCMD.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "错误提示")
End Try
End Using