SQL数据库已经操作完毕
有3个字段分别是ID,PWD,rz   数据库是student,表是s.
TEXT1,TEXT2,TEXT3,3个输入框分别对应ID,PWD,RZ
要怎么写才能进行注册?并在ID已存在时进行提示?
谢谢!

没人帮帮我么

写个SQL连接，然后就操作呗

类模块中数据库连接代码
Option Explicit
Public cn As ADODB.Connection
Public rs As ADODB.Recordset

Public Function conn() As Boolean
Set cn = New Connection
On Error GoTo cnerr
    Dim connect As Boolean
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dates.mdb;"
    cn.ConnectionTimeout = 20
    cn.Open
    conn = True
    Exit Function
cnerr:
    conn = False
    MsgBox Err.Description
End Function

Public Function openrs(ByVal sqlstr As String) As Boolean
Set rs = New Recordset
On Error GoTo rserr
    rs.Open sqlstr, cn, adOpenDynamic, adLockOptimistic, -1
    openrs = True
    Exit Function
rserr:
   openrs = False
    MsgBox Err.Description
End Function


你把连接字符串写成SQL的连接就可以了，不会写去BAIDU一下有的是

If conn() Then
     sqls = "select * from gs where ID='" +text1.text+ "' "
        If openrs(sqls) Then
            If (rs.EOF And rs.BOF) Then
                rs.AddNew
                rs!id= text1.text
               rs!pwd= text2.text
                rs!rz= text3.text
                              
                rs.Update
                rs.Close
                Set rs = Nothing
                else
                MsgBox "ID已经存在！", vbOKOnly, "出错了！"

                End If
        End If
     Else
        MsgBox "数据库连接错误！", vbOKOnly, "出错了！"
            End If

连接什么都已经搞定了,你上面给出的判断是验证ID是否存在.我想知道是对3个字段进行写入该怎么操作呢?

运行时conn() 提示缺少数组

我改成CONN了，这回openrs提示缺少叔祖了

你用的是VB还是VB。NET？
If (rs.EOF And rs.BOF) Then
                rs.AddNew
                rs!id= text1.text
               rs!pwd= text2.text
                rs!rz= text3.text
                              
                rs.Update            
   rs.Close
                Set rs = Nothing
红色部分就是新添加数据了

把四楼的代码写到类模块中，把5楼的代码写到BUTTON的ONCLICK中