Private Sub Command1_Click()
MsgBox "根据你输入的值,拼写SQL语句如下:" & vbCrLf & _
"INSERT INTO 学生表(学号,姓名,年龄)" & _
vbCrLf & "VALUES('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Command1.SetFocus
End Sub
温馨提示:答案为网友推荐,仅供参考