รายละเอียดของการตอบ ::
นี่ค่ะ ส่วนของการอิมพอตเข้ามา จากแนวคิดของคุณ 01000010 พอมองเห็นภาพนะคะ แต่เพิ่งลองหัดเขียน vb เลยยัง งง ในบางส่วน
แต่ก็ขอบคุณนะคะ สำหรับคำแนะนำค่ะ
Private Sub _browse()
'Try
'If ss = "" Then
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.InitialDirectory = "d:\"
OpenFileDialog1.Filter = "Excel files (*.xls)|*.xls|All files (*.*)|*.*"
OpenFileDialog1.FilterIndex = 1
OpenFileDialog1.RestoreDirectory = True
If (OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
ss = OpenFileDialog1.FileName
TextBox1.Text = ss
End If
' End If
strconn2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ss & "; Extended Properties='Excel 8.0;HDR=YES;IMEX=1;';"
If ss <> "" Then
connect2()
Dim aa As String = "[Score$]"
Dim s As String = ""
s = "SELECT id as รหัสนิสิต,name as ชื่อนามสกุล" & value1 & " FROM " & aa & " "
'MsgBox(s)
Dim i As Integer = 0
i = daa2(s, "show_1_1")
If i <> 0 Then
find_show1_1 = True
DataGridView1.DataSource = ds.Tables("show_1_1")
For p As Integer = 0 To DataGridView1.Rows.Count - 1
DataGridView1.Rows(p).Cells(0).Value = p + 1
Next
_sum()
Else
MessageBox.Show("ไม่พบข้อมูล")
End If
End If
'Catch ex As Exception
'End Try
End Sub