关于VB操作SQL的问题 求指导
Dim CN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim Rs As New ADODB.Recordset
Private Sub Command1_Click() ’查询用
Adodc1.RecordSource = "select * from 和拓 WHere 姓名 like '%" & Text1.Text & "%'"
Adodc1.Refresh
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=zenghui;Data Source=PC-200911242148"
Adodc1.CommandType = 1 '属性用于指定RecordSource(下面那个)属性的取值类型 1 为commandtext作为命令或存储过程调用的文本化定义进行计算
Adodc1.RecordSource = "select * from 和拓"
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Adodc1.RecordSource = "UPDATE 和拓 SET 性别='女'"
Adodc1.Refresh
End Sub
上面是我写的一个VB连接SQL数据库的一个程序啦~~可以有查询功能 但是我不知道怎么修改数据库内的数据 比如增加 删除等等,Adodc1.RecordSource = "UPDATE 和拓 SET 性别='女'"这个本来是想用来修改性别这列的数据来着 但是好像不可以这样做,提示错位为 对象关闭时不允许操作,是不是RecordSource属性只能用来查询呢?。而且手头上也没有这类的书参考 麻烦各位指条明路了 应该是比较简单的。另外求大家介绍本这方面的书~~先谢谢各位了
[解决办法]
private sub command2_click()
'新增
sql=" INSERT INTO 表名(字符型字段,数值型字段) VALUES('"& 字符型变量 &"',"& 数值型变量 &")"
cn.execute sql
'修改
sql=" "UPDATE 和拓 SET 性别='女'"
cn.execute sql
'删除
sql=" DELETE FROM 表名 WHERE 性别='女'"
cn.execute sql
end sub