تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهي طريقة إضافة اكثر من صورة دفعة واحد لمجلد الصور داخل المشروع وحفظ المسارات بـ sql
#11
(09-11-20, 03:37 PM)العطر الرايق كتب : sql يكون افضل . لان حتى مشروعي الداتا المعموله به sql

الله الله
انا وش ملصقني بالاكسس؟!
الوضع مية مية.
المثال مرفق

PHP كود :
Imports System.Data.SqlClient
Public Class Form1
    Dim ax
ay As Integer
    Dim dr 
As Boolean
    Dim fbd 
As FolderBrowserDialog


    Dim con 
As New SqlConnection("Server=.\sqlexpress;Database=pics;Trusted_Connection=True;MultipleActiveResultSets=True")


 
   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)

 
       If con.State ConnectionState.Closed Then con.Open()
 
       Dim cm As New SqlCommand(""con)

 
       For Each fl As IO.FileInfo In dir.GetFiles("*.*")
 
           Try
                cm
.Parameters.Clear()
 
               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)
            Catch ex As Exception

            End Try


        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
        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 
وهذا هو كلاس الفورم تاكد من مسميات الادوات.


الملفات المرفقة
.zip   ImagesPathsSaver.zip (الحجم : 26.32 ك ب / التحميلات : 22)
الرد }}}
تم الشكر بواسطة: asemshahen5 , SABER_ZINOUBI , ابراهيم ايبو
#12
تماااااام عليك

الصراحة انت اثراء للمحتواء العربي بكل ماتعنية الكلمة ... اشكرك من أعماق قلبي سعود وكثر الله من امثالك
تعجز الكلمات وتتزاحم في الوفاء لك وشكرك . ولك ودي
الرد }}}
تم الشكر بواسطة: asemshahen5 , سعود , ابراهيم ايبو
#13
(09-11-20, 05:11 PM)العطر الرايق كتب : تماااااام عليك

الصراحة انت اثراء للمحتواء العربي بكل ماتعنية الكلمة ... اشكرك من أعماق قلبي سعود وكثر الله من امثالك
تعجز الكلمات وتتزاحم في  الوفاء لك وشكرك . ولك ودي

من بعدكم جميعا اخواني الفضلاء.

الشيء المضحك اني حذفت نسخة الـcomunity وثبت الـpro  والموضوع يخص محدودية الاكسس مع اني جربتها من قبل وتحفظ لكن مع ويندوز 10 اظن الامر يختلف والله اعلم.
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#14
(09-11-20, 03:33 PM)سعود كتب :
(09-11-20, 03:32 PM)العطر الرايق كتب : الله يعطيك العافيه اخوي سعود . وانا مثلك الفضول وصل الف لم استطيع معرفه الحل

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

 [مشروع] تحديت الاكسس ونجحت بعد الغلبة
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 461 07-02-24, 08:59 PM
آخر رد: Kamil
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  [VB.NET] كود حفظ الصور والبيانات مره وحده مبرمج صغير 1 2 251 12-01-24, 03:04 PM
آخر رد: مبرمج صغير 1
  [سؤال] كود اظهار رساله في حال وجود الرقم في اكثر من عمود مبرمج صغير 1 6 402 09-01-24, 01:41 AM
آخر رد: Taha Okla
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 253 06-01-24, 03:20 PM
آخر رد: Kamil
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA

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


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