Private Sub Command1_Click()
    Dim int_SC As Integer
    ' 用户所添加的网站信息不完整
    If Text1 = "" Or Text2 = "" Or Text3 = "" Then
        MsgBox ("请输入完整的网站信息")
        Exit Sub
    End If
    ' 提示用户是否确定天骄记录
    int_SC = MsgBox("确实要添加这条记录吗?", vbOKCancel, "提示信息")
    ' 用户确定要添加记录
    If int_SC = 1 Then
        Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim str1, str2, str3, strSQL As String
        str1 = "Provider=Microsoft.Jet.OLEDB.4.0;"
        str2 = "Data Source=H:\Visual Basic\Information Management System\Access_db.mdb;"
        str3 = "Jet OLEDB:Database Password="
        conn.Open str1 & str2 & str3
        strSQL = "select *form wzdz"
        rs.Open strSQL, conn, 3, 3
        rs.AddNew
        rs!网站名称 = Text1
        rs!网站地址 = Text2
        rs!网站描述 = Text3
        rs.Update
        rs.Close
        conn.Close
        MsgBox ("添加记录成功!")
        ' 刷新数据源,MSHFlexGrid控制会实时刷新数据
        Adodc1.Refresh
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
    End If
End Sub
老是提示语法错误(操作符丢失)在查询表达式"*form wzdz",哪位高手9我下

解决方案 »

  1.   

    strSQL = "select *form wzdz"
    改成:strSQL = "select * from wzdz"
    form改成from,*号和from之间要加空格
      

  2.   

    strSQL = "select *form wzdz"
    改成:strSQL = "select * from wzdz"
    form改成from,*号和from之间要加空格
      

  3.   

    strSQL = " select * form wzdz "
      

  4.   

    看来程序人员要加强SQL语法学习,^=^
      

  5.   

    form=>fromselect * form wzdz 
    应是这样的
    select * from wzdz 
      

  6.   

    strSQL = "select *form wzdz" form改成from
    *号和from之间要加空格