Cách thêm đúng hồ sơ mới vào sổ ghi chép trống theo cách thủ công?

Question

Cách thêm bản ghi mới vào & ADODB.Recordset trống theo cách thủ công?

Ngay bây giờ, đây là những gì tôi đang làm mà không hoạt động:

Dim rs as ADODB.Recordset 
rs.Open 
Dim Fields() as String 
Fields(0) = "SomeFieldName" 

Dim Values() as String 
Value(0) = "SomeValue" 

rs.AddNew Fields, Values 

Answer 1

Trong chỗ:

rs.AddNew "SomeFieldName", "SomeValue" 

Hoặc tại chỗ nhiều lĩnh vực

rs.AddNew Array("SomeFieldName", "AnotherFieldName"), Array("SomeValue", 1234) 

Hoặc sử dụng các vars riêng biệt

Dim Fields As Variant 
Dim Values As Variant 

Fields = Array("SomeFieldName") 
Values = Array("SomeValue") 
rs.AddNew Fields, Values 

Edit: Đây là cách để tổng hợp một recordset cho mẫu AddNew trên

Set rs = new Recordset 
rs.Fields.Append "SomeFieldName", adVarChar, 1000, adFldIsNullable 
rs.Fields.Append "AnotherFieldName", adInteger, , adFldIsNullable 
rs.Open 

Tôi thường sử dụng một hàm helper CreateRecordset như đã thấy this answer.

Answer 2

set rs = new ADODB.Recordset 
rs.Open "Select SomeFieldName, AnotherFieldName FROM MyTable", myConnection, adOpenDynamic, adLockOptimistic 

rs.AddNew 
rs("SomeFieldName").Value = "SomeValue" 
rs("AnotherFieldName").Value = 1 
rs.Update 

rs.AddNew 
rs("SomeFieldName").Value = "AnotherValue" 
rs("AnotherFieldName").Value = 2 
rs.Update 

rs.Close 

Answer 3

Với một kết nối mở Conn:

sSql="INSERT into mytable (somefieldname, anotherfieldname) values ('Somevalue','Anothervalue')" 
     Conn.Execute sSql