7451
社区成员
- 主页
我用adodb连接的数据库，怎么样执行删除，修改和添加操作啊？我初学者~~！
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
Private Sub Form_Load()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user1;pwd=user1;Initial Catalog=student;Data Source=JINANSSE"
conn.Open connstr
sql = "select * from student"
rs.Open sql, conn, adOpenDynamic, adLockPessimistic
If Not (rs.EOF And rs.BOF) Then
Text1.Text = rs("sno")
Text2.Text = rs("sname")
Else
ab = MsgBox("数据库错误")
End If
End Sub
这是我连接数据库的语言。
以后怎么写添加删除和修改数据的代码啊？~~~~求了
Dim rs As New ADODB.Recordset
Dim connstr As String
Dim sql As String
Private Sub Form_Load()
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=user1;pwd=user1;Initial Catalog=student;Data Source=JINANSSE"
conn.Open connstr
sql = "select * from student"
rs.Open sql, conn, adOpenDynamic, adLockPessimistic
If Not (rs.EOF And rs.BOF) Then
Text1.Text = rs("sno")
Text2.Text = rs("sname")
Else
ab = MsgBox("数据库错误")
End If
End Sub
这是我连接数据库的语言。
以后怎么写添加删除和修改数据的代码啊？~~~~求了
...全文
请发表友善的回复…
发表回复
战箫 2008-01-09
添加删除和修改可以使用你的连接，也就是conn.execute方法执行sql语句来实现。
例：
添加：conn.execute("insert into student (你的表字段列表) values (你的值列表)")
修改：conn.execute("update student set 要修改的字段=要修改的值 where 主键字段=主键值")
删除：conn.execute("delete from student where 主键字段=主键值")
例：
添加：conn.execute("insert into student (你的表字段列表) values (你的值列表)")
修改：conn.execute("update student set 要修改的字段=要修改的值 where 主键字段=主键值")
删除：conn.execute("delete from student where 主键字段=主键值")
litaoa 2008-01-08
你的RS打开方法有错误，
你可以试试：rs.delete 这是删除
rs.update 这是保存
rs("字段")="dsfsd"这是给一个字段赋值。
你可以试试：rs.delete 这是删除
rs.update 这是保存
rs("字段")="dsfsd"这是给一个字段赋值。