hi...
the code below is used to insert one record....using the same code and "for" loop i want to know how to insert multiple records...please help.....i want it in visual basic
Set connect = CreateObject ("ADODB.Connection")
connect.open "DSN=OPTUMETL;Driver= Oracle in OraHome92;Server=urnts1.uhc.com;UID=OPTUMETL;PWD=OPTUMETL"
Reporter.ReportEvent 0, "Database connection", "Successfully connected to URNTS1"
Set objRecordset = CreateObject("ADODB.Recordset")
' Stmt to execute the code
query="INSERT INTO STG_CARE.ASSESSMENTANSWER(ANSWERID, ANSWERGROUPID, ANSWERTEXT, DISPLAYSEQUENCE, ISEXCLUSIVENO, ISEXCLUSIVEYES,
CREATEBY, CREATEDATE, UPDATEBY, UPDATEDATE, RECORDSTATUS, RECORDVERSION, RECORDSOURCE, SYNCDATE, RECORDUNIQUEID,
PARENTRECORDUNIQUEID, AUDIT_CREAT_DT, AUDIT_UPDATE_DT, SRC_SYSTEM_ID)VALUES(95149, 95052, 'Yes (Red Flag)', 10, 0, 0, 1, TO_DATE('11/10/2025
01:05:29 PM','DD/MM/YYYY HH12:MI:SS PM'), 1, TO_DATE('11/10/2025 01:05:29 PM','DD/MM/YYYY HH12:MI:SS PM'), 0, 1, 0, TO_DATE('01/01/2026 12:00:00
AM','DD/MM/YYYY HH12:MI:SS PM'), 0, NULL, TO_DATE('18/08/2025 06:06:16 AM','DD/MM/YYYY HH12:MI:SS PM'), TO_DATE('18/08/2025 06:09:13 AM','DD/MM/YYYY
HH12:MI:SS PM'), 'CARE')"
msgbox query
Set objResults = connect.Execute(query) ' Cmd used to execute the sql
'
Reporter.ReportEvent 0, "Query execution", "Executed query successfully"
'
'objResults.Close