السلام عليم ورحمة الله وبركاته
المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد
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
المرجو المساعدة كود الاضافة ليعمل في تصميم برنامج صانع الاكواد
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