تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تسمية الصورة بمجلد الديباج
#1
هذا الكود يقزم بعمل إضافة صورة لمجلد الديباج ويخزن اسم الصورة ومسارها في قاعدة البيانات
أكسسس ...ما اريده هو عندما يخزن الصورة بالديباج أريد أن اغير اسمها من خلال تكستبوكس 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
الرد
تم الشكر بواسطة:
#2
كود :
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

.....
...
..
.



الملفات المرفقة
.zip   For_someone.zip (الحجم : 52.48 ك ب / التحميلات : 47)
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ الصورة و تبديلها بالأخرى محمد خيري 7 656 01-04-21, 03:00 PM
آخر رد: messry
  [VB.NET] استبدال الصورة داخل ملف الورد احمد 2021 2 717 07-03-21, 10:17 AM
آخر رد: احمد 2021
  [VB.NET] كيف تقوم بقص الصورة بشكل دائري و تحريكها في الفورم قبل طباعتها Ali Naser 2 908 06-03-21, 11:15 PM
آخر رد: asmarsou
  [سؤال] سؤال في مقاسات الصورة حسن الجلب 0 530 24-01-21, 03:53 AM
آخر رد: حسن الجلب
  قمت بعمل مثال لإستخراج النصوص من الصورة واجهتني مشكلة اللغة العربية ماهو الحل mohamedgadain61 1 679 17-01-21, 07:54 AM
آخر رد: ابراهيم ايبو
  اعادة تسمية ال project سلام و محبه 3 505 29-12-20, 05:05 PM
آخر رد: crazykinko
  [VB.NET] استفسار بخصوص تحميل الصورة الى قاعدة البيانات dubai.eig 3 855 09-12-20, 10:01 PM
آخر رد: abu ammar
  حفظ الصورة بخصائص الاثنين Backgroudimage و Image sherf 1 485 01-12-20, 03:50 AM
آخر رد: Anas Mahmoud
  طريقة تحديد مقاس الصورة في Datagridview aliraqi 4 1,035 30-10-20, 04:10 PM
آخر رد: AymanRamadanSaad
  Zoom الصورة المعروضة داخل picturebox Lathe1 5 1,006 03-10-20, 04:20 AM
آخر رد: ابو روضة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم