VB+SQL2000 做的一个添加用户 提示添加成功了但是表里数据没有变

Question

Private Sub Command1_Click()
Dim zxc As String
Dim rs As New ADODB.Recordset
Dim conn  As New ADODB.Connection
   Set conn = New ADODB.Connection
    conn.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;password=;Data Source=PC2012080213QLB;Initial Catalog=zxc"
    conn.Open   '
If Trim(Text1.Text) = "" Then
MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Exit Sub
Else
zxc = "select * from 登陆表 where 用户名='" & Text1 & "'"
 rs.Open zxc, conn, adOpenDynamic, adLockPessimistic
If rs.EOF = False Then
MsgBox "这个用户已经存在！请重新输入用户名称！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Exit Sub
Else
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次输入的密码不一致，请重新输入密码！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Exit Sub
Else
If Trim(Text2.Text) = "" Then
MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text3.Text = ""
Text2.SetFocus
Else
If Trim(Combo1.Text) = "" Then
MsgBox "权限不能为空！", vbOKOnly + vbExclamation, "警告"
Combo1.SetFocus
Exit Sub
Else
zxc = "insert into 登录表 (用户名,密码,权限) values('" & Text1.Text & "','" & Text2.Text & "','" & Combo1 & "')"
MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加结果"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End If
End If
End If
End If
End If
End Sub

Answer 1

zxc = "insert into 登录表 (用户名,密码,权限) values('" & Text1.Text & "','" & Text2.Text & "','" & Combo1 & "')"
MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加结果"
你只把zxc赋值了，并没有执行
就是说你的insert语句没执行，当然表里数据没有变了。

Answer 2

conn.Execute "insert into 登录表 (用户名,密码,权限) values('" & Text1.Text & "','" & Text2.Text & "','" & Combo1 & "')"
MsgBox "添加成功！", vbOKOnly + vbExclamation, "添加结果"

Answer 3

你只是把存sql语句的那个字符串赋值，后面好歹要加个conn.Execute或者 rs.Open之类的东西 不然人家数据库啥都没看到

Answer 4

呵呵,楼主你挺逗的我的理解就是:
zxc = "insert into 登录表 (用户名,密码,权限) values('" & Text1.Text & "','" & Text2.Text & "','" & Combo1 & "')" 这句其实就是一个字符串, 特定的.   也就是咱们所说的 sql 语句, 是一个长的字符串. 
而 各种数据库内部引擎和机制就是利用这个特定的专门的 sql语句 来指定数据库作哪些操作.