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




Public Sub save_All_Toolbox(txtquery As TextBox, dgvTable As DataGridView, dgvfields As DataGridView)
Try
Dim strTableName As String = dgvTable.CurrentRow.Cells(0).Value.ToString()
txtquery.Text = ""
If Search("PictureBox", dgvfields) Then
keyCount = -1
For k As Integer = 0 To dgvfields.Rows.Count - 1
keyCount += 1
Convert(dgvfields)
If dgvfields.Rows(keyCount).Cells("Toolbox").Value = "PictureBox" Then
strSQL += "try" & Environment.NewLine & "Dim byteimage" & keyCount & "() As Byte" & Environment.NewLine
strSQL += "Dim ms" & keyCount & "As New MemorrySstream()" & Environment.NewLine
strSQL += dgvfields.Item("TxtName", keyCount).Value.ToString & "_" & dgvfields.Item("Column_Name", keyCount).Value.ToString & "" & dgvfields.Item("Value", keyCount).Value.ToString & ".Save(ms" & keyCount & " , " & dgvfields.Item("TxtName", keyCount).Value.ToString & "_" & dgvfields.Item("Column_Name", keyCount).Value.ToString & "" & dgvfields.Item("Value", keyCount).Value.ToString & "RawFormat)" & Environment.NewLine
strSQL += "byteimage" & keyCount & " = ms" & keyCount & ".ToArray()" & Environment.NewLine
End If
Next

strSQL &= "Insert" & strTableName & "("
keyCount = -1
For i As Integer = 0 To dgvfields.Rows.Count - 1
keyCount += 1
Convert(dgvfields)
If dgvfields.Rows(keyCount).Cells("Toolbox").Value = "PictureBox" Then
strSQL += "byteimage" & keyCount
If keyCount < dgvfields.Rows.Count - 1 Then
strSQL += ","
Else
strSQL += ""
End If
Else
strSQL += dgvfields.Item("TxtName", i).Value.ToString & "_" & dgvfields.Item("Column_Name", i).Value.ToString & "" & dgvfields.Item("Value", i).Value.ToString
If keyCount < dgvfields.Rows.Count - 1 Then
strSQL += ","
Else
strSQL += ""
End If
End If
Next

strSQL += ")" & Environment.NewLine

strSQL += "Catch ex As Exception" & Environment.NewLine & "MsgBox(ex.Message)" & Environment.NewLine & "End Try"
txtquery.Text = strSQL & Environment.NewLine

keyCount = 0
Else

strSQL = ""

strSQL += "Insert" & strTableName & "("
keyCount = 0
For i As Integer = 0 To dgvfields.Rows.Count - 1  'fred withEvents Toolbox
keyCount += 1
Convert(dgvfields)
strSQL += dgvfields.Item("TxtName", i).Value.ToString & "_" & dgvfields.Item("Column_Name", i).Value.ToString & "" & dgvfields.Item("Value", i).Value.ToString
If keyCount < dgvfields.Rows.Count - 1 Then
strSQL += ","
Else
strSQL += ""
End If

Next
keyCount = 0
strSQL += ")"
txtquery.Text += strSQL & Environment.NewLine

End If
Catch ex As Exception

MessageBox.Show(ex.Message, "Aletr", MessageBoxButtons.OK, MessageBoxIcon.Information)

End Try
End Sub

Public Function Search(ByVal SearchPicture As String, dgvFields As DataGridView) As Boolean
Try
Dim intcount As Integer = 0
For Each row As DataGridViewRow In dgvFields.Rows
If dgvFields.Rows(intcount).Cells(0).Value.ToString = SearchPicture Then
dgvFields.Rows(intcount).Selected = True
Search = True
Exit Function
End If
intcount += 1
Next row
Search = False
Catch ex As Exception

MessageBox.Show(ex.Message, "Aletr", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try

End Function
الرد
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
مع إحترامي لشخصك أخي العزيز، ولكن الكود الذي وضعته في هذا المشاركة ليس إلا تخبيص بهذه الطريقة نضيف البيانات إلى قاعدة البيانات ؟ عجيب !!!
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 57 18-04-18, 02:39 AM
آخر رد: ملهمـ
  برنامج لتوليد الحروف sads 16 415 11-04-18, 07:23 PM
آخر رد: sads
  [مشروع] مطلوب تصميم برنامج مثل هذا elokely 1 161 10-04-18, 10:38 PM
آخر رد: elokely
  [VB.NET] برنامج تشفير النص rootkit 8 134 08-04-18, 04:53 PM
آخر رد: rootkit
  [مشروع] مشكلة في جملة Select لمشروع تسديدات شهرية ارجو المساعدة من كل ذوي الخبرة الحسين احمد 11 376 02-04-18, 03:32 PM
آخر رد: عبدالله الدوسري
  فكره برنامج لتجميع الاحرف وتكوين جمل alaqsa 11 2,924 28-03-18, 12:43 AM
آخر رد: Mr.w
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 192 27-03-18, 03:12 PM
آخر رد: ssayed111
  مساعده في تحميل برنامج الفيجوال بيسك 2015 emamtron2014 4 111 26-03-18, 03:45 AM
آخر رد: عبدالله الدوسري
Information [VB.NET] مطلوب سورس برنامج من سيربح المليون بدر إشتية 5 1,496 23-03-18, 01:50 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] دورة برنامج تقسيط ابو ملاك الخبير 4 140 22-03-18, 09:20 PM
آخر رد: ابو ملاك الخبير

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


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