استفاده از sqlcommand در حلقه For Each

[amir_monster]

سلام

من نام حدود چند هزار عکس رو می خواهم به روش زیر وارد دیتابیس کنم با استفاده از متد GetFile و حلقه For Each




Dim str AsString = "insert into wall (filename) values (@filename)"
Dim cmd AsNew SqlCommand(str, con)

Dim files AsString()
Dim File AsString

files = System.IO.Directory.GetFiles("C:\images", "*.jpg")

con.Open()

ForEach File In files

cmd.Parameters.Add("@filename", SqlDbType.NVarChar).Value = System.IO.Path.GetFileName(File).ToString()

cmd.ExecuteNonQuery()

Next

con.Close()



اما هنگام اجرا برنامه دچاره خطا میشه ممنون میشم راهنمایی کنید که مشکل از کجاست

[mahdi_farhani]

دوست عزیز شما باید در هر بار اجرا دستور ، یک پارمتر جدید ارسال کنید . در واقع برای هر درج شما به یک پارمتر جدید احتیاج دارید.

For Each File In files
cmd = New SqlCommand(str, con)
Dim pr As SqlParameter = New SqlParameter("@fileName", SqlDbType.NVarChar)
pr.Value = System.IO.Path.GetFileName(File).ToString()
cmd.Parameters.Add(pr)

cmd.ExecuteNonQuery()

[amir_monster]

خیلی خیلی ممنون آقای فرهانی :لبخندساده: