vb添加用户 更改密码 需连接sql数据库

来源：百度知道 编辑：UC知道 时间：2024/06/05 14:41:17
就是系统里的添加用户 代码怎么写
要连接sql数据库的
一个名为yonghu的表 在my_restaurant数据库中
里面的列名为 name 和 psw

先：VB工程引用：
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects(Multi-dimensional) 2.8 Library
Microsoft ActiveX Data Objects 2.1 Library

Public Sub Access_Link()
'sql连接字串
Set conn = New Connection
Set rs = New Recordset
conn.ConnectionString = "............"
conn.ConnectionTimeout = 30
conn.Open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123456;DATABASE=my_restaurant;"
'access连接字串

'Set conn = New Connection
'Set rs = New Recordset
'Set rs_output = New Recordset
'Set rs_content = New Recordset
'sdbname = App.Path + "\date.mdb"
'Str = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:Database;"
'conn.Open Str
End Sub
以上是字串，在VB建个类，放在里面

下面是窗体里的程序：
Private Sub