[Zuhare]

تعديل

كود :

Public Sub Dirupdate()
   Using con As New MySqlConnection(Str)
       Dim folder As String = "atts\\"
       Dim  sql = "update `mybb_attachments` set `attachname`=CONCAT('" & folder & "',`attachname`) where `aid` in (2,3,4,5,6,7)"
       Using cm As New MySqlCommand(sql, con)
           If con.State = ConnectionState.Closed Then con.Open()
           cm.ExecuteNonQuery()
           If con.State = ConnectionState.Open Then con.Close()
       End Using
   End Using
   Button1.Invoke(Sub() Button1.Enabled = True)
End Sub

---

مع انه الافضل عدم اضافت اسم المجلد في العمود لتتحكم في تغيير اسم المجلد في اي وقت - وتستطيع اضافت اسم المجلد في select مثل

كود :

Function Dirselect(ByVal attachfolder As String) As DataTable
   Dim dt As New DataTable
   Dim sql = "select `aid`,CONCAT('" & attachfolder & "',`attachname`) as 'attachname'  from `mybb_attachments`"
   Using da As New MySqlDataAdapter(sql, con)
       da.Fill(dt)
   End Using
   Return dt
End Function