ปัญหาตอนนี้ลอง run แล้ว แต่เรียกข้อมูลไม่ออกครับ พอจะมีวิธีช่วยไหม
Dim constr As String = "Data Source=TCJSRVDB02;Initial Catalog=BussinessApplication;User ID=sa"
Dim conFSNEW As String = "Data Source=TCJSRVDB02;Initial Catalog=FSNEW;User ID=sa"
Dim connection As New SqlConnection(constr)
If connection.State = ConnectionState.Closed Then
connection.Open()
End If
Dim connectionFSnew As New SqlConnection(conFSNEW)
If connectionFSnew.State = ConnectionState.Closed Then
connectionFSnew.Open()
End If
Dim consql As String = ""
Dim Reader As SqlDataReader
Dim Datatb As New System.Data.DataTable