主要质量指标是:vb程序,访问SQL数据库的一个表,能够增加和删除记录

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/30 07:22:50
在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 表名