Dim params (as DbParameter)
params (0) = Dbhelper.createdbparameter ("@RegName", Jz_reginfo.regname)
params (1) = Dbhelper.createdbparameter ("@RegAddress", jz_reginfo.regaddress)
params (2) = Dbhelper.createdbparameter ("@RegCode", Jz_reginfo.regcode)
params (3) = Dbhelper.createdbparameter ("@CutOFFDate", Jz_reginfo.cutoffdate)
params (4) = Dbhelper.createdbparameter ("@IsZhengShi", Jz_reginfo.iszhengshi)
params (5) = Dbhelper.createdbparameter ("@RegDateTime", Jz_reginfo.regdatetime)
params (6) = Dbhelper.createdbparameter ("@ClientID", Jz_reginfo.clientid)
params (7) = Dbhelper.createdbparameter ("@Xian", Jz_reginfo.xian)
params (8) = Dbhelper.createdbparameter ("@Shi", Jz_reginfo.shi)
params (9) = Dbhelper.createdbparameter ("@IsDeleted", jz_reginfo.isdeleted)
params = Dbhelper.createdbparameter ("@Remark", Jz_reginfo.remark)
Dim Arraypara as New ArrayList ()
Arraypara.addrange (params)
ArrayList the way to convert to arrays:
Array as type () =arraylist.toarray (GetType (type))
Dim arr as dbparameter () = Arraypara.toarray (GetType (DbParameter))
Dim Array as dbparameter () = DirectCast (Arraypara.toarray (GetType (DbParameter)), DbParameter ())
Arrays and ArrayList convert each other