Passing Var's to Procedure

what should I change in the procedure below that I can call it with more
variables...(i,e)
File2SqlBlob("c:\pic1.jpg","tablename","colname")
I am having problem defining the variables within the procedure ..thank you
for help



Private Sub File2SqlBlob(ByVal SourceFilePath As String)
Dim cn As New SqlConnection("server=localhost;integrated
security=yes;database=NorthWind")
Dim cmd As New SqlCommand("UPDATE Categories SET Picture=@Picture WHERE
CategoryName='Test'", cn)
Dim fs As New System.IO.FileStream(SourceFilePath, IO.FileMode.Open,
IO.FileAccess.Read)
Dim b(fs.Length() - 1) As Byte
fs.Read(b, 0, b.Length)
fs.Close()
Dim P As New SqlParameter("@Picture", SqlDbType.Image, b.Length,
ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
cmd.Parameters.Add(P)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End Sub

WIthout knowing how tablename and colname are to be used in your procedure,
it's difficult to say.

However, your code appears to be VB.Net, and this newsgroup is intend for
questions related to "ClassicVB" only (VB6 and earlier). The .Net groups all
have dotnet in their names.


--
Doug Steele, Microsoft Access MVP
<a rel="nofollow" style='text-decoration: none;' href="http://I.Am/DougSteele" target="_blank">http://I.Am/DougSteele</a>
(no e-mails, please!)



"Ben" wrote in message

 > what should I change in the procedure below that I can call it with more
 > variables...(i,e)
 > File2SqlBlob("c:\pic1.jpg","tablename","colname")
 > I am having problem defining the variables within the procedure ..thank
 > you
 > for help
 >
 >
 >
 > Private Sub File2SqlBlob(ByVal SourceFilePath As String)
 > Dim cn As New SqlConnection("server=localhost;integrated
 > security=yes;database=NorthWind")

 > CategoryName='Test'", cn)
 > Dim fs As New System.IO.FileStream(SourceFilePath, IO.FileMode.Open,
 > IO.FileAccess.Read)
 > Dim b(fs.Length() - 1) As Byte
 > fs.Read(b, 0, b.Length)
 > fs.Close()

 > ParameterDirection.Input, False, 0, 0, Nothing, DataRowVersion.Current, b)
 > cmd.Parameters.Add(P)
 > cn.Open()
 > cmd.ExecuteNonQuery()
 > cn.Close()
 > End Sub
 >
 >
 >