[العطر الرايق]

السلام عليكم ورحمه الله وبركاتة 

يوجد لدى إشكالية تحتاج للحل والبركة فيكم 
       
     داخل مشروعي يوجد اضافة للصور يتم نقلها لمجلد داخل المشروع ويحفظ اسم الصور ومسارها بقاعدة بيانات 
من نوع sql  لجبها وقت الحاجة . ولكن يتم نقل صورة واحدة فقظ في كل مره .

 ماهي الطريقة لأضافة اكثر من صوره دفعة واحد ونقلها لمجلد الصور مع حفظ اسمائها ومسارها . 



وهذا الكود المستخدم في نقل صورة واحدة في كل مرة فقط . وارغب في تعديله 

كود :

Public Sub picpath()
       OpenFileDialog1.Filter = "PNG|*.png|JPG|*.jpg"

       If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
           PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
           pathcopy = OpenFileDialog1.FileName
           picName = System.IO.Path.GetFileName(OpenFileDialog1.FileName)
           pathPaste = Application.StartupPath & "\imge\" & picName
       End If
   End Sub

كود الاضافة 

كود :

 Private Sub SimpleButton3_Click(sender As Object, e As EventArgs) Handles SimpleButton3.Click

       picpath()

       Try
           My.Computer.FileSystem.CopyFile(pathcopy, pathPaste)

       Catch ex As Exception

       End Try

   End Sub

ارجو  انه تم فهم المطلوب ومن لديه المعرفة لا يبخل علينا ....ولكم فائق تقديري

[سعود]

http://vb4arb.com/vb/showthread.php?tid=2472
لو تريد حفظ الصورة بنفسها للجدول الرابط فيه الكود.
لكن الفكرة واحدة وهي استخدام جملة for
ضع المشروعين جنب بعض وقارن وحاول ان تكتشف الكود اللذي تحتاجه من الكود الاخر.
تحياتي.

[العطر الرايق]

مشكوووووور اخوي سعود ماقصرت سأحاول ايجاد المطلوب داخل المرفق ولك فائق ودي

[العطر الرايق]

للاسف لم ينجح الكود معي

up

up

up

[سعود]

(09-11-20, 11:42 AM)العطر الرايق كتب : للاسف لم ينجح الكود معي

up

up

up

طيب اخي الكريم
انت تريد استعراض مجلد ونسخ محتوياته الى مجلد البرنامج ثم حفظ المسار في قاعدة البيانات....صح الكلام؟
ما رايك بالاطلاع على قناة حسونه اكاديمي تجد فيها كل ماتريد.

[العطر الرايق]

اشكرك تعاونك اخي سعود . وفيما يخص قناه حسونه اكادمي من الصعب ان ابحث عن سطر كود او سطرين في مايقارب ١٩٠٠ فيديو شرح . لو يوجد مشروع سريع يفي بالغرض اكون شاكر لكم .

[سعود]

(09-11-20, 02:48 PM)العطر الرايق كتب : اشكرك تعاونك اخي سعود . وفيما يخص قناه حسونه اكادمي من الصعب ان ابحث عن سطر كود او سطرين في مايقارب ١٩٠٠ فيديو شرح . لو يوجد مشروع سريع يفي بالغرض اكون شاكر لكم .

العفو اخي الكريم
صدقني اخي الكريم  بدات بتجهيز المثال  جزئية نسخ الملفات عملت اما الحفظ لم يعمل ....استغربت لكن تذكرت اني اعمل ولاول مرة من نسخة comunity  فقلت احمل الـ pro واجرب والان بانتظار التحميل وقد انسخ لك الكود اللذي لدي قبل اكتمال التثبيت.

PHP كود :

Public Class Form1
    Dim ax, ay As Integer
    Dim dr As Boolean
    Dim fbd As FolderBrowserDialog


    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")


    Private Sub savepics(ByVal u As String)
        Dim count As Integer = 0
        Dim dir As New IO.DirectoryInfo(u)
        count = dir.GetFiles("*.*").Count
        Dim i As Integer = 0
        p.Invoke(Sub() p.Maximum = count - 1)


        For Each fl As IO.FileInfo In dir.GetFiles("*.*")
            If con.State = ConnectionState.Closed Then con.Open()
            Dim cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(picname) values(@picname)"
            cm.Parameters.AddWithValue("@picname", fl.Name)


            cm.ExecuteNonQuery()
            lblname.Invoke(Sub() lblname.Text = fl.Name)
            p.Invoke(Sub() p.Value = i)

            fl.CopyTo(CurDir() & "\pics\" & fl.Name)

            i += 1


            Threading.Thread.Sleep(500)
        Next
        If con.State = ConnectionState.Open Then con.Close()
    End Sub

    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown, Label1.MouseDown, lblname.MouseDown
        If e.Button = MouseButtons.Left Then
            dr = True
            ax = MousePosition.X - Me.Left
            ay = MousePosition.Y - Me.Top
        End If
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove, Label1.MouseMove, lblname.MouseMove
        If dr Then
            Me.Left = MousePosition.X - ax
            Me.Top = MousePosition.Y - ay
        End If
    End Sub

    Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click
        Close()
    End Sub

    Private Sub btnmin_Click(sender As Object, e As EventArgs) Handles btnmin.Click
        Me.WindowState = FormWindowState.Minimized
    End Sub

    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp, Label1.MouseUp, lblname.MouseUp
        dr = False
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.mloc = Me.Location
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        fbd = New FolderBrowserDialog
        If fbd.ShowDialog = DialogResult.OK Then
            Dim th As New Threading.Thread(AddressOf savepics)
            If th.IsAlive = False Then
                th.Start(fbd.SelectedPath)
            End If
            'savepics(fbd.SelectedPath)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.Location = My.Settings.mloc
    End Sub
End Class 


هذا لاكسس  والتعديل بسيط.
ولا زلت انتظر ان اجرب المثال بنسخة pro لان الفضول تعدى الحد المعقول.

[العطر الرايق]

الله يعطيك العافيه اخوي سعود . وانا مثلك الفضول وصل الف لم استطيع معرفه الحل

[سعود]

(09-11-20, 03:32 PM)العطر الرايق كتب : الله يعطيك العافيه اخوي سعود . وانا مثلك الفضول وصل الف لم استطيع معرفه الحل

ربما الاكسس هو سبب مشكلتي لكن باذن الله ساشغل sql server للتجربة.

[العطر الرايق]

sql يكون افضل . لان حتى مشروعي الداتا المعموله به sql