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我下
改成:strSQL = "select * from wzdz"
form改成from,*号和from之间要加空格
改成:strSQL = "select * from wzdz"
form改成from,*号和from之间要加空格
应是这样的
select * from wzdz
*号和from之间要加空格