تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] المساعدة في تصحيح الكود MySqlConnection
#1
السلام عليكم ورحمة الله

شغال على كود ينزل لي الداتا في قاعدة البيانات في موقعي 
online database

الكود شغال بس بطي في تنزيل البيانات 

محتاج اسرع في عملية التنزيل بارك الله فيكم

الكود 


كود :
Imports MySql.Data.MySqlClient
Public Class Form1

   Dim con As New MySqlConnection("Data Source=50.629.2.409;user=newbk;password=Qng;database=bk;port=3306")
   Private cmdCheckCount As New MySqlCommand(String.Empty, con)
   Private cmdInsert As New MySqlCommand(String.Empty, con)

   Dim ErrorCount As Integer = 0
   Dim InsertedCount As Integer = 0
   Dim i As Integer = 0
   Dim thr1 As Threading.Thread
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       cmdCheckCount.CommandText = "SELECT COUNT(CALLop) FROM log_log WHERE (station_callsign = @station_callsign) AND (CALLop = @CALLop) AND (DateNumber = @DateNumber) AND (time_on = @time_on)"
       cmdCheckCount.Parameters.Clear()
       cmdCheckCount.Parameters.Add("@CALLop", MySqlDbType.VarChar)
       cmdCheckCount.Parameters.Add("@DateNumber", MySqlDbType.VarChar)
       cmdCheckCount.Parameters.Add("@time_on", MySqlDbType.VarChar)
       cmdCheckCount.Parameters.Add("@station_callsign", MySqlDbType.VarChar)
       '============================================================
       cmdInsert.CommandText = "INSERT INTO log_log (CALLop,qso_date,timek,bands,modes,Lfullname,station_callsign,dxcc,cqz,ituz,rst_sent,rst_rcvd,lotw_qsl_sent,lotw_qsl_rcvd,eqsl_qsl_sent,eqsl_qsl_rcvd,qsl_sent,qsl_rcvd,qsl_sent_date,qsl_print,country,qth,LAT,LON,GRIDSQUARE,Lqslmgr,PFX,freq,DateNumber,iota,bk_qsl_sent,time_on,state,operato,nameop,Continent,hamqth_qsl_sent,clublog_qsl_sent) Values (@CALLop,@qso_date,@timek,@bands,@modes,@Lfullname,@station_callsign,@dxcc,@cqz,@ituz,@rst_sent,@rst_rcvd,@lotw_qsl_sent,@lotw_qsl_rcvd,@eqsl_qsl_sent,@eqsl_qsl_rcvd,@qsl_sent,@qsl_rcvd,@qsl_sent_date,@qsl_print,@country,@qth,@LAT,@LON,@GRIDSQUARE,@Lqslmgr,@PFX,@freq,@DateNumber,@iota,@bk_qsl_sent,@time_on,@state,@operato,@nameop,@Continent,@hamqth_qsl_sent,@clublog_qsl_sent)"
       cmdInsert.Parameters.Clear()
       cmdInsert.Parameters.Add("@CALLop", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qso_date", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@timek", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@bands", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@modes", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@Lfullname", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@station_callsign", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@dxcc", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@cqz", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@ituz", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@rst_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@rst_rcvd", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@lotw_qsl_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@lotw_qsl_rcvd", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@eqsl_qsl_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@eqsl_qsl_rcvd", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qsl_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qsl_rcvd", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qsl_sent_date", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qsl_print", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@country", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@qth", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@LAT", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@LON", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@GRIDSQUARE", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@Lqslmgr", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@PFX", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@freq", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@DateNumber", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@iota", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@bk_qsl_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@time_on", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@state", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@operato", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@nameop", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@Continent", MySqlDbType.VarChar)

       cmdInsert.Parameters.Add("@clublog_qsl_sent", MySqlDbType.VarChar)
       cmdInsert.Parameters.Add("@hamqth_qsl_sent", MySqlDbType.VarChar)


   End Sub


   Private Sub btnUpload_Click(sender As Object, e As EventArgs) Handles btnUpload.Click
       thr = New Threading.Thread(AddressOf task1)
       thr.IsBackground = True
       thr.Start()
       ProgressBar1.Style = ProgressBarStyle.Marquee

   End Sub


   Sub task1()

       Try


           ProgressBar1.Maximum = DataGridView1.Rows.Count - 1
           con.Open()


           Using transaction = con.BeginTransaction()
               cmdCheckCount.Transaction = transaction
               cmdInsert.Transaction = transaction
               For Each dr As DataGridViewRow In DataGridView1.Rows

                   ProgressBar1.Value = i
                   Label5.Text = InsertedCount
                   Label2.Text = ErrorCount
                   Call addData(i)
                   i += 1
               Next
               transaction.Commit()
           End Using






           Close()

           MsgBox("all ok")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

       ProgressBar1.Style = ProgressBarStyle.Blocks

   End Sub


   Private Sub addData(ByVal i As Integer)

       Debug.Print(String.Format("{0} | Start Add :{1:mm:ssss}", i, Now))




       cmdCheckCount.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
       cmdCheckCount.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
       cmdCheckCount.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
       cmdCheckCount.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
       If cmdCheckCount.ExecuteScalar = 0 Then
           cmdInsert.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
           cmdInsert.Parameters("@qso_date").Value = DataGridView1.Rows(i).Cells(2).Value
           cmdInsert.Parameters("@timek").Value = DataGridView1.Rows(i).Cells(3).Value
           cmdInsert.Parameters("@bands").Value = DataGridView1.Rows(i).Cells(4).Value
           cmdInsert.Parameters("@modes").Value = DataGridView1.Rows(i).Cells(5).Value
           cmdInsert.Parameters("@Lfullname").Value = DataGridView1.Rows(i).Cells(6).Value
           cmdInsert.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
           cmdInsert.Parameters("@dxcc").Value = DataGridView1.Rows(i).Cells(8).Value
           cmdInsert.Parameters("@cqz").Value = DataGridView1.Rows(i).Cells(9).Value
           cmdInsert.Parameters("@ituz").Value = DataGridView1.Rows(i).Cells(10).Value
           cmdInsert.Parameters("@rst_sent").Value = DataGridView1.Rows(i).Cells(11).Value
           cmdInsert.Parameters("@rst_rcvd").Value = DataGridView1.Rows(i).Cells(12).Value
           cmdInsert.Parameters("@lotw_qsl_sent").Value = DataGridView1.Rows(i).Cells(13).Value
           cmdInsert.Parameters("@lotw_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(14).Value
           cmdInsert.Parameters("@eqsl_qsl_sent").Value = DataGridView1.Rows(i).Cells(15).Value
           cmdInsert.Parameters("@eqsl_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(16).Value
           cmdInsert.Parameters("@qsl_sent").Value = DataGridView1.Rows(i).Cells(17).Value
           cmdInsert.Parameters("@qsl_rcvd").Value = DataGridView1.Rows(i).Cells(18).Value
           cmdInsert.Parameters("@qsl_sent_date").Value = DataGridView1.Rows(i).Cells(19).Value
           cmdInsert.Parameters("@qsl_print").Value = DataGridView1.Rows(i).Cells(20).Value
           cmdInsert.Parameters("@country").Value = DataGridView1.Rows(i).Cells(21).Value
           cmdInsert.Parameters("@qth").Value = DataGridView1.Rows(i).Cells(22).Value
           cmdInsert.Parameters("@LAT").Value = DataGridView1.Rows(i).Cells(23).Value
           cmdInsert.Parameters("@LON").Value = DataGridView1.Rows(i).Cells(24).Value
           cmdInsert.Parameters("@GRIDSQUARE").Value = DataGridView1.Rows(i).Cells(25).Value
           cmdInsert.Parameters("@Lqslmgr").Value = DataGridView1.Rows(i).Cells(26).Value
           cmdInsert.Parameters("@PFX").Value = DataGridView1.Rows(i).Cells(27).Value
           cmdInsert.Parameters("@freq").Value = DataGridView1.Rows(i).Cells(28).Value
           cmdInsert.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
           cmdInsert.Parameters("@iota").Value = DataGridView1.Rows(i).Cells(30).Value
           cmdInsert.Parameters("@bk_qsl_sent").Value = DataGridView1.Rows(i).Cells(31).Value
           cmdInsert.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
           cmdInsert.Parameters("@state").Value = DataGridView1.Rows(i).Cells(33).Value
           cmdInsert.Parameters("@operato").Value = DataGridView1.Rows(i).Cells(34).Value
           cmdInsert.Parameters("@nameop").Value = DataGridView1.Rows(i).Cells(35).Value
           cmdInsert.Parameters("@Continent").Value = DataGridView1.Rows(i).Cells(36).Value
           'cmdInsert.Parameters("@lotwde").Value = DataGridView1.Rows(i).Cells(37).Value
           'cmdInsert.Parameters("@eqsld").Value = DataGridView1.Rows(i).Cells(38).Value
           cmdInsert.Parameters("@clublog_qsl_sent").Value = DataGridView1.Rows(i).Cells(39).Value
           cmdInsert.Parameters("@hamqth_qsl_sent").Value = DataGridView1.Rows(i).Cells(40).Value
           cmdInsert.ExecuteNonQuery()
           Application.DoEvents()
           InsertedCount += 1
       Else
           ErrorCount += 1
       End If
   End Sub



End Class



اتمنى تساعدوني جزاكم الله خير
الرد }}}
تم الشكر بواسطة:
#2
المشكلة تكمن في رقم IP لهذا لن يعمل معك
الرد }}}
تم الشكر بواسطة:
#3
(11-12-17, 04:21 PM)طالب برمجة كتب : المشكلة تكمن في رقم IP لهذا لن يعمل معك
اهلا بك هل تقصد رقم الاي بي للموقع
الرقم انا قمت بتغييره
مثل ما ذكرة بأن الكود يعمل تمام وتنزل الداتا في موقعي بس المشكله بطئ جدا في التنزيل. 
وشكرا
الرد }}}
تم الشكر بواسطة:
#4
هذا تعديل لعله يفيد
PHP كود :
Imports MySql.Data.MySqlClient

Public Class Form1

    Dim con 
As New MySqlConnection("Data Source=50.629.2.409;user=newbk;password=Qng;database=bk;port=3306")
 
   Private cmdCheckCount As New MySqlCommand(String.Empty, con)
 
   Private cmdInsert As New MySqlCommand(String.Empty, con)

 
   Dim ErrorCount As Integer 0
    Dim InsertedCount 
As Integer 0
    Dim i 
As Integer 0

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load

        cmdCheckCount
.CommandText "SELECT COUNT(CALLop) FROM log_log WHERE (station_callsign = @station_callsign) AND (CALLop = @CALLop) AND (DateNumber = @DateNumber) AND (time_on = @time_on)"
 
       cmdCheckCount.Parameters.Clear()
 
       cmdCheckCount.Parameters.Add("@CALLop"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@DateNumber"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@time_on"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@station_callsign"MySqlDbType.VarChar)
 
       '============================================================
        cmdInsert.CommandText = "INSERT INTO log_log (CALLop,qso_date,timek,bands,modes,Lfullname,station_callsign,dxcc,cqz,ituz,rst_sent,rst_rcvd,lotw_qsl_sent,lotw_qsl_rcvd,eqsl_qsl_sent,eqsl_qsl_rcvd,qsl_sent,qsl_rcvd,qsl_sent_date,qsl_print,country,qth,LAT,LON,GRIDSQUARE,Lqslmgr,PFX,freq,DateNumber,iota,bk_qsl_sent,time_on,state,operato,nameop,Continent,hamqth_qsl_sent,clublog_qsl_sent) Values (@CALLop,@qso_date,@timek,@bands,@modes,@Lfullname,@station_callsign,@dxcc,@cqz,@ituz,@rst_sent,@rst_rcvd,@lotw_qsl_sent,@lotw_qsl_rcvd,@eqsl_qsl_sent,@eqsl_qsl_rcvd,@qsl_sent,@qsl_rcvd,@qsl_sent_date,@qsl_print,@country,@qth,@LAT,@LON,@GRIDSQUARE,@Lqslmgr,@PFX,@freq,@DateNumber,@iota,@bk_qsl_sent,@time_on,@state,@operato,@nameop,@Continent,@hamqth_qsl_sent,@clublog_qsl_sent)"
        cmdInsert.Parameters.Clear()
        cmdInsert.Parameters.Add("@CALLop", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qso_date", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@timek", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@bands", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@modes", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Lfullname", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@station_callsign", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@dxcc", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@cqz", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@ituz", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@rst_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@rst_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@lotw_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@lotw_qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@eqsl_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@eqsl_qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_sent_date", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_print", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@country", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qth", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@LAT", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@LON", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@GRIDSQUARE", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Lqslmgr", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@PFX", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@freq", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@DateNumber", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@iota", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@bk_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@time_on", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@state", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@operato", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@nameop", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Continent", MySqlDbType.VarChar)

        cmdInsert.Parameters.Add("@clublog_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@hamqth_qsl_sent", MySqlDbType.VarChar)

        ProgressBar1.Style = ProgressBarStyle.Blocks

    End Sub


    Private Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpload.Click
        Dim thr As New Threading.Thread(AddressOf task1)
        thr.IsBackground = True
        thr.Start()

    End Sub


    Sub task1()
        Try

            con.Open()
            Using transaction = con.BeginTransaction()
                cmdCheckCount.Transaction = transaction
                cmdInsert.Transaction = transaction
                For Each dr As DataGridViewRow In DataGridView1.Rows

                    ProgressBar1.Invoke(Sub() ProgressBar1.Value = (i / DataGridView1.Rows.Count) * 100)
                    Label5.Invoke(Sub() Label5.Text = InsertedCount)
                    Label2.Invoke(Sub() Label2.Text = ErrorCount)
                    Call addData(i)
                    i += 1
                Next
                transaction.Commit()
            End Using
            Close()

            MsgBox("all ok")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Private Sub addData(ByVal i As Integer)

        Debug.Print(String.Format("{0} | Start Add :{1:mm:ssss}", i, Now))

        cmdCheckCount.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
        cmdCheckCount.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
        cmdCheckCount.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
        cmdCheckCount.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
        If cmdCheckCount.ExecuteScalar = 0 Then
            cmdInsert.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
            cmdInsert.Parameters("@qso_date").Value = DataGridView1.Rows(i).Cells(2).Value
            cmdInsert.Parameters("@timek").Value = DataGridView1.Rows(i).Cells(3).Value
            cmdInsert.Parameters("@bands").Value = DataGridView1.Rows(i).Cells(4).Value
            cmdInsert.Parameters("@modes").Value = DataGridView1.Rows(i).Cells(5).Value
            cmdInsert.Parameters("@Lfullname").Value = DataGridView1.Rows(i).Cells(6).Value
            cmdInsert.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
            cmdInsert.Parameters("@dxcc").Value = DataGridView1.Rows(i).Cells(8).Value
            cmdInsert.Parameters("@cqz").Value = DataGridView1.Rows(i).Cells(9).Value
            cmdInsert.Parameters("@ituz").Value = DataGridView1.Rows(i).Cells(10).Value
            cmdInsert.Parameters("@rst_sent").Value = DataGridView1.Rows(i).Cells(11).Value
            cmdInsert.Parameters("@rst_rcvd").Value = DataGridView1.Rows(i).Cells(12).Value
            cmdInsert.Parameters("@lotw_qsl_sent").Value = DataGridView1.Rows(i).Cells(13).Value
            cmdInsert.Parameters("@lotw_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(14).Value
            cmdInsert.Parameters("@eqsl_qsl_sent").Value = DataGridView1.Rows(i).Cells(15).Value
            cmdInsert.Parameters("@eqsl_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(16).Value
            cmdInsert.Parameters("@qsl_sent").Value = DataGridView1.Rows(i).Cells(17).Value
            cmdInsert.Parameters("@qsl_rcvd").Value = DataGridView1.Rows(i).Cells(18).Value
            cmdInsert.Parameters("@qsl_sent_date").Value = DataGridView1.Rows(i).Cells(19).Value
            cmdInsert.Parameters("@qsl_print").Value = DataGridView1.Rows(i).Cells(20).Value
            cmdInsert.Parameters("@country").Value = DataGridView1.Rows(i).Cells(21).Value
            cmdInsert.Parameters("@qth").Value = DataGridView1.Rows(i).Cells(22).Value
            cmdInsert.Parameters("@LAT").Value = DataGridView1.Rows(i).Cells(23).Value
            cmdInsert.Parameters("@LON").Value = DataGridView1.Rows(i).Cells(24).Value
            cmdInsert.Parameters("@GRIDSQUARE").Value = DataGridView1.Rows(i).Cells(25).Value
            cmdInsert.Parameters("@Lqslmgr").Value = DataGridView1.Rows(i).Cells(26).Value
            cmdInsert.Parameters("@PFX").Value = DataGridView1.Rows(i).Cells(27).Value
            cmdInsert.Parameters("@freq").Value = DataGridView1.Rows(i).Cells(28).Value
            cmdInsert.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
            cmdInsert.Parameters("@iota").Value = DataGridView1.Rows(i).Cells(30).Value
            cmdInsert.Parameters("@bk_qsl_sent").Value = DataGridView1.Rows(i).Cells(31).Value
            cmdInsert.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
            cmdInsert.Parameters("@state").Value = DataGridView1.Rows(i).Cells(33).Value
            cmdInsert.Parameters("@operato").Value = DataGridView1.Rows(i).Cells(34).Value
            cmdInsert.Parameters("@nameop").Value = DataGridView1.Rows(i).Cells(35).Value
            cmdInsert.Parameters("@Continent").Value = DataGridView1.Rows(i).Cells(36).Value
            '
cmdInsert.Parameters("@lotwde").Value DataGridView1.Rows(i).Cells(37).Value
            
'cmdInsert.Parameters("@eqsld").Value = DataGridView1.Rows(i).Cells(38).Value
            cmdInsert.Parameters("@clublog_qsl_sent").Value = DataGridView1.Rows(i).Cells(39).Value
            cmdInsert.Parameters("@hamqth_qsl_sent").Value = DataGridView1.Rows(i).Cells(40).Value
            cmdInsert.ExecuteNonQuery()
            InsertedCount += 1
        Else
            ErrorCount += 1
        End If

    End Sub

End Class 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , dubai.eig
#5
(11-12-17, 07:23 PM)طالب برمجة كتب : هذا تعديل لعله يفيد
PHP كود :
Imports MySql.Data.MySqlClient

Public Class Form1

    Dim con 
As New MySqlConnection("Data Source=50.629.2.409;user=newbk;password=Qng;database=bk;port=3306")
 
   Private cmdCheckCount As New MySqlCommand(String.Empty, con)
 
   Private cmdInsert As New MySqlCommand(String.Empty, con)

 
   Dim ErrorCount As Integer 0
    Dim InsertedCount 
As Integer 0
    Dim i 
As Integer 0

    Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load

        cmdCheckCount
.CommandText "SELECT COUNT(CALLop) FROM log_log WHERE (station_callsign = @station_callsign) AND (CALLop = @CALLop) AND (DateNumber = @DateNumber) AND (time_on = @time_on)"
 
       cmdCheckCount.Parameters.Clear()
 
       cmdCheckCount.Parameters.Add("@CALLop"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@DateNumber"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@time_on"MySqlDbType.VarChar)
 
       cmdCheckCount.Parameters.Add("@station_callsign"MySqlDbType.VarChar)
 
       '============================================================
        cmdInsert.CommandText = "INSERT INTO log_log (CALLop,qso_date,timek,bands,modes,Lfullname,station_callsign,dxcc,cqz,ituz,rst_sent,rst_rcvd,lotw_qsl_sent,lotw_qsl_rcvd,eqsl_qsl_sent,eqsl_qsl_rcvd,qsl_sent,qsl_rcvd,qsl_sent_date,qsl_print,country,qth,LAT,LON,GRIDSQUARE,Lqslmgr,PFX,freq,DateNumber,iota,bk_qsl_sent,time_on,state,operato,nameop,Continent,hamqth_qsl_sent,clublog_qsl_sent) Values (@CALLop,@qso_date,@timek,@bands,@modes,@Lfullname,@station_callsign,@dxcc,@cqz,@ituz,@rst_sent,@rst_rcvd,@lotw_qsl_sent,@lotw_qsl_rcvd,@eqsl_qsl_sent,@eqsl_qsl_rcvd,@qsl_sent,@qsl_rcvd,@qsl_sent_date,@qsl_print,@country,@qth,@LAT,@LON,@GRIDSQUARE,@Lqslmgr,@PFX,@freq,@DateNumber,@iota,@bk_qsl_sent,@time_on,@state,@operato,@nameop,@Continent,@hamqth_qsl_sent,@clublog_qsl_sent)"
        cmdInsert.Parameters.Clear()
        cmdInsert.Parameters.Add("@CALLop", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qso_date", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@timek", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@bands", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@modes", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Lfullname", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@station_callsign", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@dxcc", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@cqz", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@ituz", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@rst_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@rst_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@lotw_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@lotw_qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@eqsl_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@eqsl_qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_rcvd", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_sent_date", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qsl_print", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@country", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@qth", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@LAT", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@LON", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@GRIDSQUARE", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Lqslmgr", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@PFX", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@freq", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@DateNumber", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@iota", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@bk_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@time_on", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@state", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@operato", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@nameop", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@Continent", MySqlDbType.VarChar)

        cmdInsert.Parameters.Add("@clublog_qsl_sent", MySqlDbType.VarChar)
        cmdInsert.Parameters.Add("@hamqth_qsl_sent", MySqlDbType.VarChar)

        ProgressBar1.Style = ProgressBarStyle.Blocks

    End Sub


    Private Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpload.Click
        Dim thr As New Threading.Thread(AddressOf task1)
        thr.IsBackground = True
        thr.Start()

    End Sub


    Sub task1()
        Try

            con.Open()
            Using transaction = con.BeginTransaction()
                cmdCheckCount.Transaction = transaction
                cmdInsert.Transaction = transaction
                For Each dr As DataGridViewRow In DataGridView1.Rows

                    ProgressBar1.Invoke(Sub() ProgressBar1.Value = (i / DataGridView1.Rows.Count) * 100)
                    Label5.Invoke(Sub() Label5.Text = InsertedCount)
                    Label2.Invoke(Sub() Label2.Text = ErrorCount)
                    Call addData(i)
                    i += 1
                Next
                transaction.Commit()
            End Using
            Close()

            MsgBox("all ok")

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub


    Private Sub addData(ByVal i As Integer)

        Debug.Print(String.Format("{0} | Start Add :{1:mm:ssss}", i, Now))

        cmdCheckCount.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
        cmdCheckCount.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
        cmdCheckCount.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
        cmdCheckCount.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
        If cmdCheckCount.ExecuteScalar = 0 Then
            cmdInsert.Parameters("@CALLop").Value = DataGridView1.Rows(i).Cells(1).Value
            cmdInsert.Parameters("@qso_date").Value = DataGridView1.Rows(i).Cells(2).Value
            cmdInsert.Parameters("@timek").Value = DataGridView1.Rows(i).Cells(3).Value
            cmdInsert.Parameters("@bands").Value = DataGridView1.Rows(i).Cells(4).Value
            cmdInsert.Parameters("@modes").Value = DataGridView1.Rows(i).Cells(5).Value
            cmdInsert.Parameters("@Lfullname").Value = DataGridView1.Rows(i).Cells(6).Value
            cmdInsert.Parameters("@station_callsign").Value = DataGridView1.Rows(i).Cells(7).Value
            cmdInsert.Parameters("@dxcc").Value = DataGridView1.Rows(i).Cells(8).Value
            cmdInsert.Parameters("@cqz").Value = DataGridView1.Rows(i).Cells(9).Value
            cmdInsert.Parameters("@ituz").Value = DataGridView1.Rows(i).Cells(10).Value
            cmdInsert.Parameters("@rst_sent").Value = DataGridView1.Rows(i).Cells(11).Value
            cmdInsert.Parameters("@rst_rcvd").Value = DataGridView1.Rows(i).Cells(12).Value
            cmdInsert.Parameters("@lotw_qsl_sent").Value = DataGridView1.Rows(i).Cells(13).Value
            cmdInsert.Parameters("@lotw_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(14).Value
            cmdInsert.Parameters("@eqsl_qsl_sent").Value = DataGridView1.Rows(i).Cells(15).Value
            cmdInsert.Parameters("@eqsl_qsl_rcvd").Value = DataGridView1.Rows(i).Cells(16).Value
            cmdInsert.Parameters("@qsl_sent").Value = DataGridView1.Rows(i).Cells(17).Value
            cmdInsert.Parameters("@qsl_rcvd").Value = DataGridView1.Rows(i).Cells(18).Value
            cmdInsert.Parameters("@qsl_sent_date").Value = DataGridView1.Rows(i).Cells(19).Value
            cmdInsert.Parameters("@qsl_print").Value = DataGridView1.Rows(i).Cells(20).Value
            cmdInsert.Parameters("@country").Value = DataGridView1.Rows(i).Cells(21).Value
            cmdInsert.Parameters("@qth").Value = DataGridView1.Rows(i).Cells(22).Value
            cmdInsert.Parameters("@LAT").Value = DataGridView1.Rows(i).Cells(23).Value
            cmdInsert.Parameters("@LON").Value = DataGridView1.Rows(i).Cells(24).Value
            cmdInsert.Parameters("@GRIDSQUARE").Value = DataGridView1.Rows(i).Cells(25).Value
            cmdInsert.Parameters("@Lqslmgr").Value = DataGridView1.Rows(i).Cells(26).Value
            cmdInsert.Parameters("@PFX").Value = DataGridView1.Rows(i).Cells(27).Value
            cmdInsert.Parameters("@freq").Value = DataGridView1.Rows(i).Cells(28).Value
            cmdInsert.Parameters("@DateNumber").Value = DataGridView1.Rows(i).Cells(29).Value
            cmdInsert.Parameters("@iota").Value = DataGridView1.Rows(i).Cells(30).Value
            cmdInsert.Parameters("@bk_qsl_sent").Value = DataGridView1.Rows(i).Cells(31).Value
            cmdInsert.Parameters("@time_on").Value = DataGridView1.Rows(i).Cells(32).Value
            cmdInsert.Parameters("@state").Value = DataGridView1.Rows(i).Cells(33).Value
            cmdInsert.Parameters("@operato").Value = DataGridView1.Rows(i).Cells(34).Value
            cmdInsert.Parameters("@nameop").Value = DataGridView1.Rows(i).Cells(35).Value
            cmdInsert.Parameters("@Continent").Value = DataGridView1.Rows(i).Cells(36).Value
            '
cmdInsert.Parameters("@lotwde").Value DataGridView1.Rows(i).Cells(37).Value
            
'cmdInsert.Parameters("@eqsld").Value = DataGridView1.Rows(i).Cells(38).Value
            cmdInsert.Parameters("@clublog_qsl_sent").Value = DataGridView1.Rows(i).Cells(39).Value
            cmdInsert.Parameters("@hamqth_qsl_sent").Value = DataGridView1.Rows(i).Cells(40).Value
            cmdInsert.ExecuteNonQuery()
            InsertedCount += 1
        Else
            ErrorCount += 1
        End If

    End Sub

End Class 



شكرا لك

بس لازال نفس السرعه بطي في التنزيل بارك الله فيك
الرد }}}
تم الشكر بواسطة:
#6
أخي لا بد ان تعرف عدة امور ومنها :

السرعة تعتمد اولاً : على سرعة النت وسعة الرام في جهازك .

ثانياً : سرعة النت وسعة الرام في جهاز السيرفر .

ثالثاً : حجم قاعدة البيانات .

رابعاً : طريقة تعاملك وجلب البيانات من الجدول .
الرد }}}
تم الشكر بواسطة: dubai.eig
#7
(12-12-17, 02:15 AM)حريف برمجة كتب : أخي لا بد ان تعرف عدة امور ومنها :

السرعة تعتمد اولاً : على سرعة النت وسعة الرام في جهازك .

ثانياً : سرعة النت وسعة الرام في جهاز السيرفر .

ثالثاً : حجم قاعدة البيانات .

رابعاً : طريقة تعاملك وجلب البيانات من الجدول .

تسلم على الرد

قمت بتغيير السيرفر الى سيرفر رامات اكثر بس نفس السرعه بطئ  

اما بخصوص حجم القاعدة وفيه  قاعدة جديده

ساحاول وان شاءالله احصل طريقة 

تسلم
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 176 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 275 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 214 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 211 19-01-24, 12:42 PM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 583 09-01-24, 08:41 PM
آخر رد: new_programer
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 476 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,115 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 386 21-12-23, 12:29 AM
آخر رد: dr.programming
  [VB.NET] مطلوب تصحيح سطر فى هذا الــ Function AhmedEissa 3 501 13-12-23, 12:55 AM
آخر رد: العتيق
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 443 03-12-23, 02:40 AM
آخر رد: abu_hisham7

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


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