str="select distinct code,designname from table1 left join table2 on table1.code=table2.code"
cmd = New SqlCommand(Str, sqlconn)
adpt = New SqlDataAdapter(cmd)
DataSetDesign = New DataSet
DataSetDesign.Clear()
adpt.Fill(DataSetDesign, "MYtable")
Create a new table "Pic"
Field : DSG_CODE,varchar(15)
oImg,varbinary(MAX)
Dim iCtr As Integer
Dim cPict, cCat, cDesCode, SqlStr As String
SqlStr = "Delete From pict"
Dim cmdInsert As SqlCommand
cmdInsert = New SqlCommand(SqlStr, sqlconn)
cmdInsert.ExecuteNonQuery()
For iCtr = 0 To DataSetDesign.Tables(0).Rows.Count - 1
cCat = Trim(DataSetDesign.Tables(0).Rows(iCtr).Item("designname"))
cDesCode = Trim(DataSetDesign.Tables(0).Rows(iCtr).Item("code"))
'Path of Folder
cPict = "y:\" + cCat + "\DM 3D " + cDesCode + ".JPG"
Dim oImg As Byte()
oImg = ReadImageFile(cPict)
SqlStr = "Insert Into pict(oImg, DSG_Code)values(@oImg , @DSG_Code)"
cmdInsert = New SqlCommand(SqlStr, sqlconn)
'cmdInsert(Sqlstr, sqlconn)
cmdInsert.Parameters.Add("@oImg", Data.SqlDbType.Binary).Value = oImg
cmdInsert.Parameters.Add("@DSG_CODE", Data.SqlDbType.VarChar).Value = cDesCode
cmdInsert.ExecuteNonQuery()
Next