Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'บันทึก
Dim Data, Series, Year, ModelSerial, URL As String
Dim td As New ConnectDb
td.OpenConn()
Dim dtm As New DataTable
For i As Integer = 0 To Me.DataGridView2.Rows.Count - 2
Data = Me.DataGridView2.Rows(i).Cells(0).Value
Series = Me.DataGridView2.Rows(i).Cells(1).Value
Year = Me.DataGridView2.Rows(i).Cells(2).Value
ModelSerial = Me.DataGridView2.Rows(i).Cells(3).Value
URL = Me.DataGridView2.Rows(i).Cells(4).Value
dtm = td.ReadData("INSERT INTO Model(Data,Series,Year,ModelSerial,URL)VALUES('" & Data & "','" & Series & "','" & Year & "','" & ModelSerial & "','" & URL & "')")
td.CloseConn()
MessageBox.Show("555") 'เทสวนรูป
Next i
MessageBox.Show(" บันทึกข้อมูลเรียบร้อยแล้ว", " ข้อความจากระบบ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub
Public Class Insert
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'เพิ่มไฟล์
Dim dialogOpenFiles As New OpenFileDialog()
dialogOpenFiles.Multiselect = True
dialogOpenFiles.Filter = "All Files (*.*)|*.*"
If dialogOpenFiles.ShowDialog Then
Dim i As String
For Each i In dialogOpenFiles.FileNames
Dim s() As String = i.Split("\")
For j As Integer = 0 To UBound(s)
If j = 8 Then
'Me.ListBox1.Items.Add(s(8))
ElseIf j = 7 Then
'Me.ListBox2.Items.Add(s(7))
ElseIf j = 6 Then
'Me.ListBox3.Items.Add(s(6))
ElseIf j = 5 Then
'Me.ListBox4.Items.Add(s(5))
End If
Next j
Me.DataGridView2.Rows.Add(s(5), s(6), s(7), s(8), i)
Next i
End If
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dataAdapter As New Data.SqlClient.SqlDataAdapter
'บันทึก
Dim Data, Series, Year, ModelSerial, URL As String
Dim td As New ConnectDb
td.OpenConn()
Dim dtm As New DataTable
For i As Integer = 0 To Me.DataGridView2.Rows.Count - 2
Data = Me.DataGridView2.Rows(i).Cells(0).Value.ToString
Series = Me.DataGridView2.Rows(i).Cells(1).Value.ToString
Year = Me.DataGridView2.Rows(i).Cells(2).Value.ToString
ModelSerial = Me.DataGridView2.Rows(i).Cells(3).Value.ToString
URL = Me.DataGridView2.Rows(i).Cells(4).Value.ToString
'dataAdapter.InsertCommand.Parameters(0).Value = DataGridView2.Rows(i).Cells(0).Value
'dataAdapter.InsertCommand.Parameters(1).Value = DataGridView2.Rows(i).Cells(1).Value
'dataAdapter.InsertCommand.Parameters(2).Value = DataGridView2.Rows(i).Cells(2).Value
'dataAdapter.InsertCommand.Parameters(3).Value = DataGridView2.Rows(i).Cells(3).Value
dtm = td.ReadData("INSERT INTO Model(Data,Series,Year,ModelSerial,URL)VALUES('" & Data & "','" & Series & "','" & Year & "','" & ModelSerial & "','" & URL & "')")
MessageBox.Show(DataGridView2.Rows.Count) 'เทสวนรูป
Next i
td.CloseConn()
MessageBox.Show(" บันทึกข้อมูลเรียบร้อยแล้ว", " ข้อความจากระบบ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub
Private Sub Insert_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'TestDataDataSet.Model' table. You can move, or remove it, as needed.
Me.ModelTableAdapter.Fill(Me.TestDataDataSet.Model)
End Sub
End Class
หลาย record ครับ คือเหมือนพอผมกดปุ่มเลือกไฟล์ผมก็ broweอมา สมมติ ไฟล์เป็น pdf คือ มี pdf 20 ไฟล์
ผมก็ browe มันมาลงใน datagridview (อันล่าง) มันก็มี20 record ตามที่เรา browe มันมา
แต่พอกด บันทึกลง database แล้ว มันกลายเป็น 1record มีอีก 1record ที่เหมือนกัน
ก็กลายเป็น 40ไฟล์ที่อยู่ใน database ครับ
เช่น ผม browe ไฟล์มาชื่อ a,b,c,d
ตอนอยู่ใน datagridview(อันล่าง) มันก็ขึ้นเป็น
a
b
c
d
แต่พอกดบันทึกลง database แล้วมาเปิดดู
มันเป็น
a
a
b
b
c
c
d
d
ครับผม ><
Public Class Insert
Dim isPress As Boolean = false;
Code (VB.NET)
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
if not isPress then
isPress = true
doevent(); // ไม่แน่ใจว่าคำสั่งนี้เท่าไหร่ ความหมายคือให้ทำ process อื่นก่อนครับ ผมไม่ได้ใช้นานแล้ว
' ทำงานต่อตามปกติ
isPress = false
endif
end sub
Public Class Insert
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'เพิ่มไฟล์
Dim dialogOpenFiles As New OpenFileDialog()
dialogOpenFiles.Multiselect = True
dialogOpenFiles.Filter = "All Files (*.*)|*.*"
If dialogOpenFiles.ShowDialog Then
Dim i As String
For Each i In dialogOpenFiles.FileNames
Dim s() As String = i.Split("\")
For j As Integer = 0 To UBound(s)
If j = 8 Then
'Me.ListBox1.Items.Add(s(8))
ElseIf j = 7 Then
'Me.ListBox2.Items.Add(s(7))
ElseIf j = 6 Then
'Me.ListBox3.Items.Add(s(6))
ElseIf j = 5 Then
'Me.ListBox4.Items.Add(s(5))
End If
Next j
Me.DataGridView2.Rows.Add(s(5), s(6), s(7), s(8), i)
Next i
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'บันทึก
Dim Datas, Seriess, Years, ModelSerials, URLs As String
Dim td As New ConnectDb
td.OpenConn()
Dim dtm As New DataTable
For i As Integer = 0 To Me.DataGridView2.Rows.Count - 2
Datas = Me.DataGridView2.Rows(i).Cells(0).Value.ToString
Seriess = Me.DataGridView2.Rows(i).Cells(1).Value.ToString
Years = Me.DataGridView2.Rows(i).Cells(2).Value.ToString
ModelSerials = Me.DataGridView2.Rows(i).Cells(3).Value.ToString
URLs = Me.DataGridView2.Rows(i).Cells(4).Value.ToString
dtm = td.ReadData("INSERT INTO Model(Data,Series,Year,ModelSerial,URL)VALUES('" & Datas & "','" & Seriess & "','" & Years & "','" & ModelSerials & "','" & URLs & "')")
td.CloseConn()
'MessageBox.Show(DataGridView2.Rows.Count - 2) 'เทสวนรูป
Next
MessageBox.Show(" บันทึกข้อมูลเรียบร้อยแล้ว", " ข้อความจากระบบ", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
End Sub
Private Sub Insert_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'TestDataDataSet.Model' table. You can move, or remove it, as needed.
Me.ModelTableAdapter.Fill(Me.TestDataDataSet.Model)
End Sub
End Class
Load balance : Server 01
