| 发表于:2008-01-08 20:51:35 楼主 |
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 这是我连接数据库的语言。 以后怎么写添加删除和修改数据的代码啊?~~~~求了 |
|
|
|
|