ACCESS 添加 SQL 数据

 

Private Sub 插入_Click()
 
Dim 链接集 As New ADODB.Connection      '定义 数据链接 对象，保存 连接数据库信息；请先添加ADO引用

Dim 服务器名 As String                  '定义 字符串变量
Dim 数据库名 As String
Dim 登录名 As String
Dim 密码 As String

Dim 链接条件 As String
Dim 添加数据 As String

Dim YH As String
Dim MM As String

    服务器名 = "GSFSR"
    数据库名 = "SY_Data"
   
    登录名 = "sa"
    密码 = "Sa2011"

    链接条件 = "Provider=SQLOLEDB;Server=" & 服务器名 & ";Database=" & 数据库名 & ";Uid=" & 登录名 & ";Pwd=" & 密码 & ";"      '定义数据库链接字符串

    YH = Me.用户名.Value
    MM = Me.密码.Value
   
    添加数据 = "INSERT INTO 用户表(用户名,密码) VALUES('" & YH & "','" & MM & "')"   '定义SQL 查询命令字符串
   
    链接集.Open 链接条件                            '与数据库建立连接
    链接集.Execute 添加数据
    链接集.Close
   
    MsgBox "  数据添加完毕 ！    ", vbExclamation, " 恭喜"

End Sub