11-12-17, 03:56 PM
السلام عليكم ورحمة الله
شغال على كود ينزل لي الداتا في قاعدة البيانات في موقعي
online database
الكود شغال بس بطي في تنزيل البيانات
محتاج اسرع في عملية التنزيل بارك الله فيكم
الكود
اتمنى تساعدوني جزاكم الله خير
شغال على كود ينزل لي الداتا في قاعدة البيانات في موقعي
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اتمنى تساعدوني جزاكم الله خير
