تقييم الموضوع :
  • 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 ك ب / التحميلات : 9)
[صورة مرفقة: q.jpg]
الرد
تم الشكر بواسطة: asemshahen5 , SABER_ZINOUBI , ابراهيم ايبو
#12
تماااااام عليك

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

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

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

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

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

 [مشروع] تحديت الاكسس ونجحت بعد الغلبة
[صورة مرفقة: q.jpg]
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل توجد طريقه الكتابه علي الصور حسن الجلب 3 156 20-01-21, 10:57 PM
آخر رد: asemshahen5
  [C#.NET] شرط البحث عن برنامج فى الجهاز قبل تشغيل المشروع faresvip 6 213 19-01-21, 01:42 PM
آخر رد: faresvip
  [سؤال] سؤال في الصور حسن الجلب 4 210 19-01-21, 12:15 AM
آخر رد: asmarsou
  مساعدة في اضافة زر داخل خلية في الداتا جريد فيو MustafaShaker 3 142 15-01-21, 04:26 PM
آخر رد: moosa_alabri
  توقيف العد عند الوصول للرقم واحد العيدروس 9 166 12-01-21, 02:18 AM
آخر رد: ابراهيم ايبو
  كيفية ترقيم تلقائي ريبورت لعمود واحد عمور2016 5 271 11-01-21, 11:07 AM
آخر رد: عمور2016
  ممكن تعديل علي المشروع اليوم السابع 3 193 10-01-21, 07:47 PM
آخر رد: 1nj
  أريد كود يقوم بعرض صورة عند وضع مؤشر الماوس علي تكست بوكس بمقاسات معينة ؟ PeterGhattas082460 2 191 10-01-21, 12:29 AM
آخر رد: asmarsou
  [VB.NET] تعديل سلايدر لعرض الصور محمد اسماعيل 2 137 09-01-21, 08:04 PM
آخر رد: محمد اسماعيل
Lightbulb [VB.NET] الاضافة المتعددة بوقت واحد لاكتر من جهاز محمد اسماعيل 2 151 09-01-21, 01:00 AM
آخر رد: محمد اسماعيل

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


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