vb数据库,这几个功能如何添加,能给点具体代码么
展开全部
使用SQL结构化查询语言,能达到编写代码实现上图的功能。
'标准模块代码
Option Explicit
Public loginname As String
Public cn As New ADODB.Connection '定义数据库的连接存放数据和代码
Public rs As New ADODB.Recordset
Public sql As String
Public Newname As String
'添加一个记录代码,在窗体上
Option Explicit
Dim Password As String
Private Sub XPButton3_Click()
sql = "select * from 用户管理"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data\data.mdb;Persist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs.Fields(0) = Newname
rs.Fields(1) = Password
rs.Update
rs.Close
cn.Close
End Sub
此类语句完全可移植到ADO数据对象使用。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询