塞内加的哲学思想:vb程序,访问SQL数据库的一个表,能够增加和删除记录

来源:百度文库 编辑:高考问答 时间:2024/05/10 06:19:22
在VB里面编程,实现访问SQL数据库的一个表,能够增加和删除记录,有哪位高手帮忙解决下,小弟感激不尽~~

Public Function qsy(ByVal sql As String, mycn As ADODB.Connection) As ADODB.Recordset
Dim myrs As New ADODB.Recordset
With myrs
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockOptimistic
.ActiveConnection = mycn
End With
myrs.Open sql
Set qsy = myrs
End Function
Public Sub odb()
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名;Persist Security Info=False"

If cn.State = adStateOpen Then
cn.Close
Set cn = Nothing
End If
cn.Open strcn
End Sub
'增加
insert into 表名 values
'删除
delete from 表名 where

'修改
update 表名 set
'查询
select * from 表名