HOME > .NET Framework > Forum > ช่วยหน่อยครับ พอกด UPDATE แล้วเก็บ DATA ลง SQL แต่มันไม่แสดง DATA ให้ดูอะครับ ช่วยดูให้หน่อยครับทำไงให้แสดง DATA ให้ดูอะครับ
ช่วยหน่อยครับ พอกด UPDATE แล้วเก็บ DATA ลง SQL แต่มันไม่แสดง DATA ให้ดูอะครับ ช่วยดูให้หน่อยครับทำไงให้แสดง DATA ให้ดูอะครับ
ช่วยหน่อยครับ พอกด UPDATE แล้วเก็บ DATA ลง SQL แต่มันไม่แสดง DATA ให้ดูอะครับ ช่วยดูให้หน่อยครับทำไงให้แสดง DATA ให้ดูอะครับ ผมตกอะไรไปหรือป่าว ขอบคุณล่วงหน้าครับ
Partial Class Upload
Inherits System.Web.UI.Page
Private Const ConStr As String = "Data Source=192.168.4.17;Initial Catalog=MIS;Persist Security Info=True;User ID=sa;Connect Timeout=7200;password=sa;Connection lifetime=0;Max Pool Size=100;Min Pool Size=10"
Friend Const ConStrInformix As String = "Dsn=gis_motor;uid=mis_user;database=mis;host=192.168.4.5;srvr=online8;serv=1532;pro=onsoctcp;cloc=th_th.thai620;dloc=th_th.thai620;vmb=1;curb=0;scur=0;icur=0;oac=-0;optofc=0;rkc=0;odtyp=0;ddfp=0"
Protected Sub bt_upload1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_upload1.Click
Dim objFSO, oInStream, sRows, arrRows
Dim Conn, objExec
Dim sFileName
Dim connstring
Dim sSplit() As String
Dim strFileUse As String
Dim dt_file As New DataTable
Dim CurrentLine As String
Dim strValue() As String
Dim sqlTran As SqlTransaction
dt_file.Columns.Add("policy_report", GetType(String))
sqlTran.Commit()
'lbl_error.Text &= "Transfer Data Complete " & CStr(Session("dt_note").rows.count) & " Record(s)"
Catch ex As Exception
'lbl_error.Text = "Error Transfer Record " + vbCrLf + ex.Message
sqlTran.Rollback()
Exit Sub
Finally
If sqlcon.State = ConnectionState.Open Then sqlcon.Close()
End Try
oInStream.Close()
'Conn.Close()
oInStream = Nothing
Conn = Nothing
End Sub
Protected Sub bt_upload2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bt_upload2.Click
Dim objFSO, oInStream, sRows, arrRows
Dim Conn, objExec
Dim sFileName
Dim connstring
Dim sSplit() As String
Dim strFileUse As String
Dim dt_file As New DataTable
Dim CurrentLine As String
Dim strValue() As String
Dim sqlTran As SqlTransaction
dt_file.Columns.Add("endorse_report", GetType(String))
sqlTran.Commit()
'lbl_error.Text &= "Transfer Data Complete " & CStr(Session("dt_note").rows.count) & " Record(s)"
Catch ex As Exception
'lbl_error.Text = "Error Transfer Record " + vbCrLf + ex.Message
sqlTran.Rollback()
Exit Sub
Finally
If sqlcon.State = ConnectionState.Open Then sqlcon.Close()
End Try
oInStream.Close()
'Conn.Close()
oInStream = Nothing
Conn = Nothing
End Sub
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
Dim dt As DataTable
'*** DataTable ***'
dt = ReadTXT()
myRepeater.DataSource = dt
myRepeater.DataBind()
End Sub
Function ReadTXT() As DataTable
Dim dt As New DataTable
Dim dr As DataRow
Dim StrWer As StreamReader
Dim strLine As String
StrWer = File.OpenText(Server.MapPath("c/compulsory/policy.txt"))
Do Until StrWer.EndOfStream
strLine = StrWer.ReadLine()
If Trim(strLine) <> "" Then