最好在数据库上建立一个存储过程如Sp_insert1(?,?,?,?,?)Dim cmd1 As ADODB.Commandcmd1.CommandType = adCmdStoredProc cmd1.CommandText = "sp_insert1" cmd1.Parameters.Refresh For i = 1 To cmd1.Parameters.Count cmd1.Parameters("需要的字段名") = 需要插入的值 Next
好在数据库上建立一个存储过程如Sp_insert1(?,?,?,?,?)Dim cmd1 As ADODB.Commandcmd1.CommandType = adCmdStoredProc cmd1.CommandText = "sp_insert1" cmd1.Parameters.Refresh For i = 1 To cmd1.Parameters.Count cmd1.Parameters("需要的字段名") = 需要插入的值 Next cmd1.execute
用connection對象傳SQL命令到SQL服務器是最快的,通常在不用返回記錄集時用這種方法最高效 e.g : Dim cn As ADODB.Connectioncn.Execute ""insert into Tbl_File_Log ( File_name,user_Name,date_accessed,Operation,file_no ) values('" & lv.ListItems(x).Text & "','" & "adm" & "',default,'Delete'" & ",'" & lv.ListItems(x).Tag & "') "
select ...into
cmd1.CommandText = "sp_insert1"
cmd1.Parameters.Refresh
For i = 1 To cmd1.Parameters.Count
cmd1.Parameters("需要的字段名") = 需要插入的值
Next
cmd1.CommandText = "sp_insert1"
cmd1.Parameters.Refresh
For i = 1 To cmd1.Parameters.Count
cmd1.Parameters("需要的字段名") = 需要插入的值
Next
cmd1.execute
e.g :
Dim cn As ADODB.Connectioncn.Execute ""insert into Tbl_File_Log ( File_name,user_Name,date_accessed,Operation,file_no ) values('" & lv.ListItems(x).Text & "','" & "adm" & "',default,'Delete'" & ",'" & lv.ListItems(x).Tag & "') "