Dim cx As Int =EditText1.text'ID
Dim nc As String=EditText2.Text'昵称
Dim tx As String=EditText3.Text'内容
sqlstr = "insert into chat(ChatID,Nickname,Text,time) values('" & cx & "','" & nc & "','" & tx & "','" & DateTime.Date(DateTime.Now) & "')"
Starter.Mysql_Jdbc.ExecNonQuery(sqlstr)