12-10-14, 10:14 PM
12-10-14, 10:17 PM
.....
لديك خطأ وهو استعمال (b += 1) غير صحيح لهذا لديك هذه المشكلة
ممكن تضع الكود كاملا الذي لديك حتى أتمكن من تعديلها بشكل أفضل من كثرة الردود (لا أقصد التذمر ولكن لكي لا يتشتت الموضوع)
.....
لديك خطأ وهو استعمال (b += 1) غير صحيح لهذا لديك هذه المشكلة
ممكن تضع الكود كاملا الذي لديك حتى أتمكن من تعديلها بشكل أفضل من كثرة الردود (لا أقصد التذمر ولكن لكي لا يتشتت الموضوع)
.....
12-10-14, 10:18 PM
كود :
Dim b As Integer = 0
Dim c As Integer = b
Private Sub tuser_importer_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles tuser_importer.DoWork
ff("تعديل قيمة العمود salt لرفع الطول")
Dim con2 As New MySqlConnection(gmybbstr)
Dim cmed As New MySqlCommand("", con2)
cmed.CommandText = "alter table `mybb_users` MODIFY COLUMN `salt` varchar(30)"
If con2.State = ConnectionState.Closed Then
con2.Open()
End If
Try
cmed.ExecuteNonQuery()
Catch ex As Exception
ff(Err.Description)
End Try
ff("الان .. النظر في جدول المستخدمين")
Dim vbcon As New MySqlConnection(gvbstr)
Dim struser As String = "select * from `user` order by `userid` ASC LIMIT " & c & ",100"
Dim cmduser As New MySqlCommand(struser, vbcon)
Dim rduser As MySqlDataReader
If vbcon.State = ConnectionState.Closed Then
vbcon.Open()
End If
rduser = cmduser.ExecuteReader
If rduser.HasRows Then
Do While rduser.Read
tuser_importer.ReportProgress(b)
Dim theid As String = rduser.Item("userid")
Dim url As String = "http://127.0.0.1/" & gvbfolder() & "/member.php?u=" & rduser.Item("userid")
Dim html As String = ""
Dim wc As New WebClient
wc.Headers.Add("cookie", gco)
html = wc.DownloadString(url)
Dim hdoc As New HtmlAgilityPack.HtmlDocument
hdoc.LoadHtml(html)
Dim nod As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("userinfo")
Dim u As New HtmlAgilityPack.HtmlDocument
u.LoadHtml(nod.InnerHtml)
Dim th As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='member_username']")
Dim th2 As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='usertitle']")
Dim about As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("view-aboutme")
Dim h As New HtmlAgilityPack.HtmlDocument
h.LoadHtml(about.InnerHtml)
Dim toqee As HtmlAgilityPack.HtmlNode = h.DocumentNode.SelectSingleNode("//div//div")
Dim mybbcon As New MySqlConnection(gmybbstr)
Dim mybbcomm As New MySqlCommand("", mybbcon)
mybbcomm.CommandText = "insert into `mybb_users`(username,password,salt,email,postnum,threadnum,website,usertitle,usergroup,additionalgroups,signature,buddylist,ignorelist,pmfolders,notepad,usernotes) values(@username,@password,@salt,@email,@postnum,@threadnum,@website,@usertitle,@usergroup,@additionalgroups,@signature,@buddylist,@ignorelist,@pmfolders,@notepad,@usernotes)"
ff("________________________________________" & vbNewLine & "حفظ اسم المستخدم: " & th.InnerText.Trim)
mybbcomm.Parameters.AddWithValue("@username", th.InnerText.Trim)
mybbcomm.Parameters.AddWithValue("@password", rduser.Item("password"))
mybbcomm.Parameters.AddWithValue("@salt", rduser.Item("salt"))
mybbcomm.Parameters.AddWithValue("@email", rduser.Item("email"))
mybbcomm.Parameters.AddWithValue("@postnum", "0")
mybbcomm.Parameters.AddWithValue("@threadnum", "0")
mybbcomm.Parameters.AddWithValue("@website", rduser.Item("homepage"))
mybbcomm.Parameters.AddWithValue("@usertitle", th2.InnerText.Trim)
If rduser.Item("usergroupid") = "1" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "1")
ElseIf rduser.Item("usergroupid") = "2" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "2")
ElseIf rduser.Item("usergroupid") = "3" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "5")
ElseIf rduser.Item("usergroupid") = "4" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "5")
ElseIf rduser.Item("usergroupid") = "5" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "3")
ElseIf rduser.Item("usergroupid") = "6" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "4")
ElseIf rduser.Item("usergroupid") = "7" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "6")
ElseIf rduser.Item("usergroupid") = "8" Then
mybbcomm.Parameters.AddWithValue("@usergroup", "7")
End If
mybbcomm.Parameters.AddWithValue("@additionalgroups", rduser.Item("membergroupids"))
mybbcomm.Parameters.AddWithValue("@signature", toqee.InnerHtml)
mybbcomm.Parameters.AddWithValue("@buddylist", "")
'ignorelist
mybbcomm.Parameters.AddWithValue("@ignorelist", "")
'pmfolders
mybbcomm.Parameters.AddWithValue("@pmfolders", "")
'notepad
mybbcomm.Parameters.AddWithValue("@notepad", "")
'usernots
mybbcomm.Parameters.AddWithValue("@usernotes", "")
If mybbcon.State = ConnectionState.Closed Then
mybbcon.Open()
End If
' Try
ff("بانتظار تفعيل وتنفيذ الحفظ.....")
mybbcomm.ExecuteNonQuery()
ff("تم حفظ العضو: " & th.InnerText.Trim) '& " بنجاح" & vbNewLine & "________________________________________")
' Catch ex As Exception
'ff(Err.Description)
' End Try
Loop
End If
rduser.Close()
End Sub
Private Sub tuser_importer_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) Handles tuser_importer.ProgressChanged
b += 1
End Sub
Private Sub tuser_importer_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles tuser_importer.RunWorkerCompleted
If e.Cancelled Then
ff("تم الايقاف")
ElseIf IsNothing(e.Error) = False Then
ff("عفوا يوجد خطا " & vbNewLine & Err.Description)
ElseIf IsNothing(e.Error) Then
ff("################################" & vbNewLine & "# تم استيراد الاعضاء عدد السجلات المضافة : " & b & vbNewLine & "################################")
c += b
If tuser_importer.IsBusy = False Then
tuser_importer.RunWorkerAsync()
End If
End If
End Sub12-10-14, 10:19 PM
(12-10-14, 10:17 PM)vbnet كتب : [ -> ].....
لديك خطأ وهو استعمال (b += 1) غير صحيح لهذا لديك هذه المشكلة
.....
طيب لو خطا ليش ما يوقف من البداية لانه ينسخ 700 عضو(سجل) لو كانت الدورة بـ 100 يعني من c الى 100
12-10-14, 10:25 PM
اظن الخطا هو اني لم اغير شي في القيمة الاخرى!
12-10-14, 11:28 PM
.....
جرب هذا التغيير في نسخة مؤقتة من المشروع (على افتراض أن العملية تبدأ من خلال الضغط على Button1)
طبعاً لم أجربه لأنه لايوجد لدي كامل المشروع بما في ذلك قاعدة بيانات المنتديين MyBB وvBulletin
.....
جرب هذا التغيير في نسخة مؤقتة من المشروع (على افتراض أن العملية تبدأ من خلال الضغط على Button1)
طبعاً لم أجربه لأنه لايوجد لدي كامل المشروع بما في ذلك قاعدة بيانات المنتديين MyBB وvBulletin
كود :
' المجموع العام للأسطر
Dim rowsCount As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' معرفة المجموع الإجمالي لأسطر النتائج المراد جلب بياناتها كامله
vbcon.Open()
rowsCount = New MySqlCommand(" SELECT COUNT(`userid`) FROM `user` ", vbcon).ExecuteScalar
vbcon.Close()
If rowsCount > 0 Then tuser_importer.RunWorkerAsync()
End Sub
' حجم المجموعة الواحدة
Dim limit As Integer = 100
Dim offset As Integer = 0
Private Sub tuser_importer_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles tuser_importer.DoWork
' إذا كان هذا الجزء يستخدم مرة واحدة فلا يوضع داخل هذا الحدث -------------------------
Using conn As New MySqlConnection(gmybbstr)
Using comm As New MySqlCommand("ALTER TABLE `mybb_users` MODIFY COLUMN `salt` VARCHAR(30)", conn)
Try
ff("تعديل قيمة العمود salt لرفع الطول")
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
Catch ex As Exception
ff(Err.Description)
Exit Sub
End Try
End Using
End Using
'-----------------------------------------------------------------------------------
' جدول بيانات
Using dt As New DataTable
' dt قراءة مجموعة من المستخدمين ووضع النتائج في جدول البيانات
' vb إنشاء إتصال مع
Using conn As New MySqlConnection(gvbstr)
Dim sql As String = " SELECT * FROM `user` ORDER BY `userid` ASC LIMIT " & offset & ", " & limit ' تحديد حجم المجموعة بقيمة متغير
Using da As New MySqlDataAdapter(sql, conn)
ff("الان .. النظر في جدول المستخدمين")
da.Fill(dt)
End Using
End Using
' حلقة في أسطر جدول البيانات
For Each row As DataRow In dt.Rows
'tuser_importer.ReportProgress(offset)
Dim theid As String = row("userid")
Dim url As String = "http://127.0.0.1/" & gvbfolder & "/member.php?u=" & row("userid")
Dim html As String = ""
' HtmlAgilityPack لم أتطرق لهذا الجزء لعدم استخدامي لـ ---------------------
Dim wc As New WebClient
wc.Headers.Add("cookie", gco)
html = wc.DownloadString(url)
Dim hdoc As New HtmlAgilityPack.HtmlDocument
hdoc.LoadHtml(html)
Dim nod As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("userinfo")
Dim u As New HtmlAgilityPack.HtmlDocument
u.LoadHtml(nod.InnerHtml)
Dim th As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='member_username']")
Dim th2 As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='usertitle']")
Dim about As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("view-aboutme")
Dim h As New HtmlAgilityPack.HtmlDocument
h.LoadHtml(about.InnerHtml)
Dim toqee As HtmlAgilityPack.HtmlNode = h.DocumentNode.SelectSingleNode("//div//div")
'-------------------------------------------------------------------
' mybb إنشاء إتصال مع
Using conn As New MySqlConnection(gmybbstr)
' تكوين جملة إسكويل للإضافة
Dim sql As String = _
" INSERT INTO `mybb_users` " & _
" ( `username`, `password`, `salt`, `email`, `postnum`, `threadnum`, `website`, `usertitle`, `usergroup`, `additionalgroups`, `signature`, `buddylist`, `ignorelist`, `pmfolders`, `notepad`, `usernotes` ) " & _
" VALUES " & _
" ( @username , @password , @salt , @email , @postnum , @threadnum , @website , @usertitle , @usergroup , @additionalgroups , @signature , @buddylist , @ignorelist , @pmfolders , @notepad , @usernotes ) "
Using comm As New MySqlCommand(sql, conn)
ff("________________________________________" & vbNewLine & "حفظ اسم المستخدم: " & th.InnerText.Trim)
comm.Parameters.AddWithValue("@username", th.InnerText.Trim)
comm.Parameters.AddWithValue("@password", row("password"))
comm.Parameters.AddWithValue("@salt", row("salt"))
comm.Parameters.AddWithValue("@email", row("email"))
comm.Parameters.AddWithValue("@postnum", "0")
comm.Parameters.AddWithValue("@threadnum", "0")
comm.Parameters.AddWithValue("@website", row("homepage"))
comm.Parameters.AddWithValue("@usertitle", th2.InnerText.Trim)
Select Case row("usergroupid")
Case "1" : comm.Parameters.AddWithValue("@usergroup", "1")
Case "2" : comm.Parameters.AddWithValue("@usergroup", "2")
Case "3" : comm.Parameters.AddWithValue("@usergroup", "5")
Case "4" : comm.Parameters.AddWithValue("@usergroup", "5")
Case "5" : comm.Parameters.AddWithValue("@usergroup", "3")
Case "6" : comm.Parameters.AddWithValue("@usergroup", "4")
Case "7" : comm.Parameters.AddWithValue("@usergroup", "6")
Case "8" : comm.Parameters.AddWithValue("@usergroup", "7")
End Select
comm.Parameters.AddWithValue("@additionalgroups", row("membergroupids"))
comm.Parameters.AddWithValue("@signature", toqee.InnerHtml)
comm.Parameters.AddWithValue("@buddylist", "")
comm.Parameters.AddWithValue("@ignorelist", "")
comm.Parameters.AddWithValue("@pmfolders", "")
comm.Parameters.AddWithValue("@notepad", "")
comm.Parameters.AddWithValue("@usernotes", "")
Try
ff("بانتظار تفعيل وتنفيذ الحفظ.....")
conn.Open()
comm.ExecuteNonQuery()
conn.Close()
ff("تم حفظ العضو: " & th.InnerText.Trim) '& " بنجاح" & vbNewLine & "________________________________________")
Catch ex As Exception
ff(Err.Description)
End Try
End Using ' comm
End Using ' conn
Next
End Using ' dt
End Sub
Private Sub tuser_importer_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles tuser_importer.ProgressChanged
offset += limit
End Sub
Private Sub tuser_importer_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles tuser_importer.RunWorkerCompleted
If e.Cancelled Then
ff("تم الايقاف")
ElseIf IsNothing(e.Error) = False Then
ff("عفوا يوجد خطا " & vbNewLine & Err.Description)
ElseIf IsNothing(e.Error) Then
If tuser_importer.IsBusy = False Then
If offset < rowsCount Then
tuser_importer.RunWorkerAsync()
ff("################################" & vbNewLine & "# تم استيراد الاعضاء عدد السجلات المضافة : " & (offset) & vbNewLine & "################################")
Else
ff("################################" & vbNewLine & "# تم استيراد الاعضاء عدد السجلات المضافة : " & (rowsCount) & vbNewLine & "################################")
End If
End If
End If
End Sub.....
12-10-14, 11:47 PM
بارك الله فيك
الان اصبح الامر اوضح بكثير مما قبل...
الان اصبح الامر اوضح بكثير مما قبل...
13-10-14, 01:43 AM
طيب اخي الكريم بالنسبة لجدول الاعضاء فهو استعلام واحد وتم.
لكن كيف التعامل مع استعلامات متداخلة وكل منها يستخدم جملة do while dr.read
مثلا
كيف اطبق الفكرة بحيث يتم العمل بسلاسة ... لقد ذكرت انني اتممت نسخ الاقسام والمنتديات والمواضيع والمشاركات والمرفقات لكنني لم اجربها كما جربت نسخ الاعضاء
فبكل تتاكيد ستحدث مشكلة مماثلة
مع العلم ان كل الاكواد ضمن backgroundworker واحدة بحيث لن يفوتني او لن تضيع المنتديات عن الاقسام وكذلك المواضيع لن تضيع عن المنتديات وكذلك بالنسبة للمشاركات والمرفقات...اقصد انني مضطر لاستخدام هذه الطريقة حيث لن يتم نسخ قسم آخر الا بعد نسخ كافة ما يتعلق بالقسم الذي قبله.
رعاك الله ووفقك لكل مافيه خير..
لكن كيف التعامل مع استعلامات متداخلة وكل منها يستخدم جملة do while dr.read
مثلا
كود :
dim cm1 as new mysqlcommand("")
ثم القاريء و
do while dr.read .....
الان نستعلم عن جدول المنتديات التابعة للقسم
dim cm2 as new mysqlcommand("")
ثم القاريء و
do while dr.read
ثم نستعلم عن عناوين المواضيع المربوطة بالمنتدى
dim cm3 as new mysqlcommand("")
.
.
.
.
.
.وهكذافبكل تتاكيد ستحدث مشكلة مماثلة
مع العلم ان كل الاكواد ضمن backgroundworker واحدة بحيث لن يفوتني او لن تضيع المنتديات عن الاقسام وكذلك المواضيع لن تضيع عن المنتديات وكذلك بالنسبة للمشاركات والمرفقات...اقصد انني مضطر لاستخدام هذه الطريقة حيث لن يتم نسخ قسم آخر الا بعد نسخ كافة ما يتعلق بالقسم الذي قبله.
رعاك الله ووفقك لكل مافيه خير..
13-10-14, 03:42 AM
جا على بالي استفسار هل لديك حل لمشكلة ترميز windows-1256 كيف يتم تحويله الى utf8 علما بانه لايوجد بقاعدة بيانات mysql ترميز . بهذا الاسم windows-1256
لو يوجد حل يمكن يوفر الوقت والجهد.
لو يوجد حل يمكن يوفر الوقت والجهد.
14-10-14, 12:52 AM
.....
بناء على طلبك باستخدام Reader
تم الاستغناء عن LIMIT وOFFSET
تم الاستغناء عن BackgroundWorker واستبدالها بـ Threading.Thread
جرب بنسخة مؤقتة من المشروع، وبدء المهمة يتم بالضغط على زر Button1
بالنسبة لترميزwindows-1256: لم أفهم أين واجهتك المشكلة!
(درس: حل مشكلة اللغة العربية عن التحويل إلى phpbb3)
.....
بناء على طلبك باستخدام Reader
تم الاستغناء عن LIMIT وOFFSET
تم الاستغناء عن BackgroundWorker واستبدالها بـ Threading.Thread
جرب بنسخة مؤقتة من المشروع، وبدء المهمة يتم بالضغط على زر Button1
كود :
' جملة الاتصال مع قاعدة بيانات المصدر
Private connStrVB As String = " Server = localhost; Port = 3306; User id = root; Password = 123; Database = tempdb ; "
' جملة الاتصال مع قاعدة بيانات الهدف
Private connStrBB As String = " Server = localhost; Port = 3306; User id = root; Password = 123; Database = tempdb ; "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' تعطيل فحص تضارب نداء المهمات
Control.CheckForIllegalCrossThreadCalls = False
End Sub
' تعريف متغير مهمة بدون إنشاءها
Private thrd As Threading.Thread
' مجموع أسطر نتائج الاستعلام
Private rowsCount As Integer
' بدء العمل
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' التأكد من أن المهمة ما زالت في قيد العمل
If thrd IsNot Nothing Then
If thrd.ThreadState = Threading.ThreadState.Running _
Or thrd.ThreadState = Threading.ThreadState.Background Then
MsgBox("عفواً... نرجو الانتظار، فما زالت المهمة في قيد العمل")
Exit Sub
End If
End If
ff("الان .. النظر في جدول المستخدمين")
' معرفة المجموع الإجمالي لأسطر النتائج المراد جلب بياناتها كامله
Using conn As New MySqlConnection(connStrVB)
conn.Open()
rowsCount = New MySqlCommand(" SELECT COUNT(`userid`) FROM `user` ", conn).ExecuteScalar
conn.Close()
If rowsCount > 0 Then
ff("تم إيجاد عدد المستخدمين ومجموعهم: " & rowsCount & vbNewLine)
'' تحديد مجال شريط الانتظار
'Me.ProgressBar1.Maximum = rowsCount
' إنشاء مهمة جديدة
thrd = New Threading.Thread(AddressOf thrdTask)
' وضع المهمة في الخلفية
thrd.IsBackground = True
' بدء المهمة
thrd.Start()
End If
End Using
End Sub
' إجراء المهمة
Private Sub thrdTask()
ff("تم البدء في عملية النسخ...")
' connVB إنشاء إتصال مع قاعدة البيانات لـ
Using connVB As New MySqlConnection(connStrVB)
' connBB إنشاء إتصال مع قاعدة البيانات لـ
Using connBB As New MySqlConnection(connStrBB)
' connBB فتح الإتصال مع الهدف
connBB.Open()
' إنشاء أمر الإستعلام من الجدول المصدر
Using commVB As New MySqlCommand(" SELECT * FROM `user` ORDER BY `userid` ", connVB)
' connVB فتح الإتصال مع المصدر
connVB.Open()
'------------------------------
' readerVB تنفيذ أمر القراءة من المصدر
Dim readerVB As MySqlDataReader = commVB.ExecuteReader()
'------------------------------
' أعتقد أن هذين السطرين يكونان قبل الحلقة أي خارجها
Dim wc As New WebClient
wc.Headers.Add("cookie", gco)
'------------------------------
' حلقة القراءة في الوضع المتصل
While readerVB.Read()
' HtmlAgilityPack لم أتطرق لهذا الجزء لعدم استخدامي لـ ----------------------------------------
Dim theid As String = readerVB("userid")
Dim url As String = "http://127.0.0.1/" & gvbfolder & "/member.php?u=" & readerVB("userid")
Dim html As String = ""
'' تم نقل هذين السطرين قبل الحلقة
'Dim wc As New WebClient
'wc.Headers.Add("cookie", gco)
html = wc.DownloadString(url)
Dim hdoc As New HtmlAgilityPack.HtmlDocument
hdoc.LoadHtml(html)
Dim nod As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("userinfo")
Dim u As New HtmlAgilityPack.HtmlDocument
u.LoadHtml(nod.InnerHtml)
Dim th As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='member_username']")
Dim th2 As HtmlAgilityPack.HtmlNode = u.DocumentNode.SelectSingleNode("//span[@class='usertitle']")
Dim about As HtmlAgilityPack.HtmlNode = hdoc.GetElementbyId("view-aboutme")
Dim h As New HtmlAgilityPack.HtmlDocument
h.LoadHtml(about.InnerHtml)
Dim toqee As HtmlAgilityPack.HtmlNode = h.DocumentNode.SelectSingleNode("//div//div")
'----------------------------------------------------------------------------------------------
' تكوين جملة إسكويل للإضافة
Dim sqlBB As String = _
" INSERT INTO `mybb_users` " & _
" ( `username`, `password`, `salt`, `email`, `postnum`, `threadnum`, `website`, `usertitle`, `usergroup`, `additionalgroups`, `signature`, `buddylist`, `ignorelist`, `pmfolders`, `notepad`, `usernotes` ) " & _
" VALUES " & _
" ( @username , @password , @salt , @email , @postnum , @threadnum , @website , @usertitle , @usergroup , @additionalgroups , @signature , @buddylist , @ignorelist , @pmfolders , @notepad , @usernotes ) "
' إنشاء أمر الإضافة في الجدول الهدف
Using commBB As New MySqlCommand(sqlBB, connBB)
ff("________________________________________" & vbNewLine & "حفظ اسم المستخدم: " & th.InnerText.Trim & vbNewLine)
' تمرير قيم البارامترات
commBB.Parameters.AddWithValue("@username", th.InnerText.Trim)
commBB.Parameters.AddWithValue("@password", readerVB("password"))
commBB.Parameters.AddWithValue("@salt", readerVB("salt"))
commBB.Parameters.AddWithValue("@email", readerVB("email"))
commBB.Parameters.AddWithValue("@postnum", "0")
commBB.Parameters.AddWithValue("@threadnum", "0")
commBB.Parameters.AddWithValue("@website", readerVB("homepage"))
commBB.Parameters.AddWithValue("@usertitle", th2.InnerText.Trim)
Select Case readerVB("usergroupid")
Case "1" : commBB.Parameters.AddWithValue("@usergroup", "1")
Case "2" : commBB.Parameters.AddWithValue("@usergroup", "2")
Case "3" : commBB.Parameters.AddWithValue("@usergroup", "5")
Case "4" : commBB.Parameters.AddWithValue("@usergroup", "5")
Case "5" : commBB.Parameters.AddWithValue("@usergroup", "3")
Case "6" : commBB.Parameters.AddWithValue("@usergroup", "4")
Case "7" : commBB.Parameters.AddWithValue("@usergroup", "6")
Case "8" : commBB.Parameters.AddWithValue("@usergroup", "7")
End Select
commBB.Parameters.AddWithValue("@additionalgroups", readerVB("membergroupids"))
commBB.Parameters.AddWithValue("@signature", toqee.InnerHtml)
commBB.Parameters.AddWithValue("@buddylist", "")
commBB.Parameters.AddWithValue("@ignorelist", "")
commBB.Parameters.AddWithValue("@pmfolders", "")
commBB.Parameters.AddWithValue("@notepad", "")
commBB.Parameters.AddWithValue("@usernotes", "")
' تنفيذ أمر الإضافة
commBB.ExecuteNonQuery()
'' تقدم شريط الانتظار
'Me.ProgressBar1.Increment(1)
End Using 'commBB
End While 'readerVB
' connVB إغلاق الاتصال المصدر
connVB.Close()
End Using ' commVB
' connBB إغلاق الاتصال الهدف
connBB.Close()
End Using ' connBB نهاية استخدام الاتصال الهدف
End Using ' connVB نهاية استخدام الاتصال المصدر
ff("################################" & vbNewLine & "# تم استيراد الاعضاء عدد السجلات المضافة : " & (rowsCount) & vbNewLine & "################################")
End Subبالنسبة لترميزwindows-1256: لم أفهم أين واجهتك المشكلة!
(درس: حل مشكلة اللغة العربية عن التحويل إلى phpbb3)
.....