hmmm…
baru posting tentang ASP.NET bukannya perkenalan tentang ASP.NET dan dasar-dasar form atau koneksi database(insert, update dan delete) malah langsung membuat file txt π
ya, mungkin kalau untuk form2 pada ASP.NET sama dengan HTML dan bisa menggunakan Visual Studio tinggal drag and drop :p
kalau untuk koneksi, mungkin sambil berjalan :p.
source pada vb script untuk membuat file txt :
Imports System Imports System.Data Imports System.IO Imports System.Data.OracleClient Imports System.Collections Partial Public Class FormKu Inherits System.Web.UI.Page Dim myConnection As New OracleConnection Dim dstam As New DataSet Dim sql As String Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sw As New System.IO.StreamWriter(Server.MapPath("yourfile.txt"), False) myConnection = New OracleConnection("data source=rifkyiip;User ID=punyaku;password=pass;") sql = "select x.a,x.b,x.c from tabelku x where x.id='" + LBLno.Text + "'" myConnection.Open() Dim i As Integer Dim penghubungku As OracleDataAdapter penghubungku = New OracleDataAdapter(sql, myConnection) penghubungku.Fill(dstam, "tabelku x") Try For i = 0 To dstam.Tables(0).Rows.Count - 1 With dstam.Tables(0).Rows(i) sw.WriteLine("Nama :" & .Item(0) & "<BR>") sw.WriteLine("Alamat :" & .Item(1) & "<BR>") End With Next Catch myException As Exception Response.Write("Error...") Finally sw.Close() End Try myConnection.Close() End Sub End Class
membaca file txt :
Dim FileName As String Dim fp As StreamReader FileName = "yourfile.txt" Dim myWriter As System.IO.TextWriter Try fp = File.OpenText(Server.MapPath(FileName)) myWriter = Response.Output myWriter.WriteLine(fp.ReadToEnd()) 'txtBOX.Text = fp.ReadToEnd() fp.Close() ClientScript.RegisterStartupScript(Me.GetType(), "onclick", "<script language=javascript>window.print();</script>") Catch err As Exception lblIIP.Text = "File Read Failed. Reason is as follows " & err.ToString() Finally End Try
semoga bermanfaat π