[abdulla2]

هذا الكود يقزم بعمل إضافة صورة لمجلد الديباج ويخزن اسم الصورة ومسارها في قاعدة البيانات
أكسسس ...ما اريده هو عندما يخزن الصورة بالديباج أريد أن اغير اسمها من خلال تكستبوكس txtNamePic.Text

هذا هو الكود ..
------------
Try
Dim sqlStatment As String = "INSERT INTO [TB1] (FileName,FilePath,Namepic,Note1) VALUES(@FileName,@FilePath,@Namepic,@Note1)"
Using cmd As New OleDbCommand(sqlStatment, con)
cmd.Parameters.Add("@FileName", OleDbType.VarWChar).Value = name
cmd.Parameters.Add("@FilePath", OleDbType.VarWChar).Value = path
cmd.Parameters.Add("@Namepic", OleDbType.VarWChar).Value = Nampic
cmd.Parameters.Add("@Note1", OleDbType.VarWChar).Value = note
con.Open()
cmd.ExecuteNonQuery()
con.Close()
My.Computer.FileSystem.CopyFile(old_pic_path, File_Path & Image_Name, True)
'My.Computer.FileSystem.RenameFile(Application.StartupPath & "\Images\" & File_Path & Image_Name, txtNamePic.Text)
'File_Path = txtNamePic.Text
filldata()

End Using
Catch ex As Exception
MsgBox(ex.Message)
Finally
con.Close()
End T

[سعود]

كود :

Public Class Form1
   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim dt As DataTable

   Private Sub gd()
       Using con = New OleDb.OleDbConnection(str)
           Using da = New OleDb.OleDbDataAdapter("select * from tb", con)
               dt = New DataTable
               da.Fill(dt)
               ListBox1.DataSource = dt
               ListBox1.DisplayMember = "picname"
           End Using
       End Using
   End Sub
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using ofd = New OpenFileDialog
           If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
               If IO.Path.GetExtension(ofd.FileName).ToString.ToLower = ".jpg" Then
                   Dim nname As String = InputBox("اكتب اسم جديد للملف او الصورة")
                   Using con = New OleDb.OleDbConnection(str)
                       con.Open()
                       Using cm = New OleDb.OleDbCommand("insert into tb(picname) values(@picname)", con)
                           cm.Parameters.AddWithValue("@picname", "pics\" & nname & IO.Path.GetExtension(ofd.FileName))
                           IO.File.Copy(ofd.FileName, "pics\" & nname & IO.Path.GetExtension(ofd.FileName), False)
                           cm.ExecuteNonQuery()
                       End Using
                   End Using
               End If
           End If
       End Using
       gd()
   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       gd()
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       On Error Resume Next
       PictureBox1.Image = Image.FromFile(ListBox1.Text)
   End Sub
End Class

هذا مثال على مجلد ضمن الديبق باسم pics

---

.....
...
..
.

---