请问如何向数据库中添加记录

Question

如何向数据库中添加记录，数据库为ACCESS2000，请各个高手帮帮忙，在此谢谢大家了。

Answer 1

sql = "select*from Ckaoqin"
Set rs = ExecuteSQL(sql)
rs.AddNew
With rs
.Fields(0) = Trim(txt_id.Text)
.Fields(1) = Trim(txt_name.Text)
.Fields(2) = Trim(cob_department.Text)
.Fields(3) = Trim(cob_company.Text)
.Fields(4) = Trim(cob_year.Text)
.Fields(5) = Trim(cob_month.Text)
.Fields(6) = Trim(txt_byday.Text)
.Fields(7) = Trim(txt_gxday.Text)
.Fields(8) = Trim(txt_ycqday.Text)
.Fields(9) = Trim(txt_cqday.Text)
.Fields(10) = Trim(txt_kgday.Text)
.Fields(11) = Trim(txt_laterday.Text)
.Fields(12) = Trim(txt_ztday.Text)
.Fields(13) = Trim(txt_qjday.Text)
.Fields(14) = Trim(txt_ccday.Text)
.Fields(15) = Trim(txt_jjrjbday.Text)
.Fields(16) = Trim(txt_qtjbday.Text)
.Fields(17) = Trim(txt_bxtsday.Text)
.Fields(18) = Trim(txt_xxsm.Text)
.Fields(19) = Int(dtp1.Value)
End With
rs.Update
MsgBox "恭喜、恭喜，您添加记录成功~！~谢谢合作~！~", vbOKOnly + vbExclamation, "添加成功"
8****************************模块部分****************************
Public Function ExecuteSQL(sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim msg As String
On Error GoTo executesql_error
Set cn = New ADODB.Connection
 cn.Open "Driver={SQL Server};Server=LPY;Uid=sa;Pwd=;database=CY"
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), cn, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = rst
executesql_exit:
Set rst = Nothing
Set cn = Nothing
Exit Function
executesql_error:
msg = "错误原因：" & err.Description
Resume executesql_exit
End Function

Answer 2

strsql="insert into table1 (field1,field2)values(" & vallue1 & ",'" & value2 & "')"
conn.execute(strsql)
其中table1为表名，field1，field2为字段名，vallue1 ，value2 为变量，field2为字符型字段

Answer 3

conn为数据库连接
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open 连接字符串

Answer 4

1、RS.ADDNEW
   RS.UPDATA2、INSERT INTO TABLE ......

Answer 5

cmdnew.addnew
或者
insert into.....................

Answer 6

1、Rs.ADDNEW
   Rs.UPDATA2、INSERT INTO TABLE ......