खाली रिकॉर्ड्स में मैन्युअल रूप से नए रिकॉर्ड कैसे जोड़ें?

Question

नए & खाली ADODB.Recordset मैन्युअल रूप से नए रिकॉर्ड जोड़ने के लिए कैसे?

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

यथा-स्थान:

rs.AddNew "SomeFieldName", "SomeValue" 

या यथा-स्थान से अधिक फ़ील्ड

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

अभी

, यहाँ मुझे लगता है कि क्या कर रहा काम नहीं कर रहा है या अलग-अलग वर्र्स का उपयोग

Dim Fields As Variant 
Dim Values As Variant 

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

संपादित करें: यह ऊपर

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

AddNew नमूने के लिए एक recordset के संश्लेषण के लिए कैसे मैं आमतौर पर देखा this answer के रूप में एक सहायक समारोह CreateRecordset उपयोग कर रहा हूँ है।

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

खुला कनेक्शन कॉन के साथ

:

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