Pertanyaan Bagaimana cara menambahkan catatan baru dengan benar untuk mengosongkan recordset secara manual?


Bagaimana cara menambahkan catatan baru ke ADODB.Recordset baru & kosong secara manual?

Saat ini, inilah yang saya lakukan yang tidak berfungsi:

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

9
2018-02-19 03:46


asal


Jawaban:


Di tempat:

rs.AddNew "SomeFieldName", "SomeValue"

Atau di tempat berbagai bidang

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

Atau menggunakan vars terpisah

Dim Fields As Variant
Dim Values As Variant

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

Edit: Ini adalah cara mensintesis sebuah recordset untuk sampel AddNew di atas

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

Saya biasanya menggunakan fungsi pembantu CreateRecordset seperti yang terlihat jawaban ini.


13
2018-02-19 09:52



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

3
2018-02-19 14:35



Dengan koneksi koneksi terbuka:

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

0
2017-08-07 20:34