Post by Goborijung at 2019-09-30 16:32:31 | ID: 129
<script> function chkcheckBox() { if (document.forms[0]['chkVB'].checked == false) { alert("กรุณาเลือก VB ด้วยครับ"); return false; } if (document.forms[0]['chkCS'].checked == false) { alert("กรุณาเลือก CS ด้วยครับ"); return false; } document.form1.submit(); } </script> <form id="form1" runat="server" onsubmit="chkcheckBox()"> VB: <input type="checkbox" name="chkVB" id="chkVB" value="VisualBasic" /><br /> CS: <input type="checkbox" name="chkCS" id="chkCS" value="Visual C#" /><br /> <input type="submit" name="submit" value="click" /> </form>
Post by Goborijung at 2019-09-30 15:41:18 | ID: 127
>>> Javascript function changeBackgroundColor <script> function changeBackground() { document.body.style.backgroundColor = "green"; document.getElementById("div1").style.color = "blue"; } </script> <input id="btnClick" type="button" name="btnClick" value="Click" onclick="changeBackground()" />
Post by Goborijung at 2019-10-07 13:23:59 | ID: 148
<asp:FileUpload ID="fuFileUploadImage" runat="server" /> '** Move Upload Files **' If Me.fuFileUploadImage.HasFile Then ' Me.fuFileUploadImage.SaveAs(Server.MapPath("Myfiles/" & fuFileUploadImage.FileName)) Me.fuFileUploadImage.SaveAs(Server.MapPath(imgPath & fuFileUploadImage.FileName)) End If
Post by Goborijung at 2019-10-01 06:45:42 | ID: 138
<form id="form1" runat="server" method="post" action="FormReceived.aspx"> <div> <nav> <asp:Menu ID="Menu1" runat="server"> <Items> <asp:MenuItem NavigateUrl="Default.aspx" Text="หน้าแรก" Value="หน้าแรก"></asp:MenuItem> <asp:MenuItem Text="เว็บบอร์ด" Value="เว็บบอร์ด"> <asp:MenuItem NavigateUrl="#" Target="_blank" Text="พันทิพย์" Value="พันทิพย์"></asp:MenuItem> </asp:MenuItem> <asp:MenuItem Text="เขียนโปรแกรม" Value="เขียนโปรแกรม"> <asp:MenuItem NavigateUrl="#" Target="_blank" Text="เขียนโปรแกรม" Value="เขียนโปรแกรม"></asp:MenuItem> </asp:MenuItem> </Items> </asp:Menu> </nav> </div> </form>
Post by Goborijung at 2019-10-01 09:05:00 | ID: 139
<form id="form1" runat="server"> <nav> <asp:TreeView ID="TreeView1" runat="server" ShowLines="true"> <Nodes> <asp:TreeNode NavigateUrl="~/Default.aspx" Text="หน้าแรก" Value="หน้าแรก"></asp:TreeNode> <asp:TreeNode Text="เว็บบอร์ด" Value="เว็บบอร์ด"> <asp:TreeNode NavigateUrl="#" Target="_blank" Text="พันทิพย์" Value="พันทิพย์"></asp:TreeNode> </asp:TreeNode> <asp:TreeNode Text="เขียนโปรแกรม" Value="เขียนโปรแกรม"> <asp:TreeNode NavigateUrl="#" Target="_blank" Text="เขียนโปรแกรม" Value="เขียนโปรแกรม"></asp:TreeNode> </asp:TreeNode> </Nodes> </asp:TreeView> </nav> </form>
Post by Goborijung at 2020-07-14 12:35:54 | ID: 145
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '** การดึงข้อมูลจากฐานข้อมูล ทั้งหมด 5 ขั้นตอนดังนี้ **' '** 1. Create Connection String **' Dim strCon As String = "Data Source=S410717NB0201MSSQLSERVER2; Initial Catalog=GSSv2_Prod; User ID=sa; Password=gik8nv@tpf" Dim conn As New SqlConnection(strCon) With conn If .State = ConnectionState.Open Then .Close() .ConnectionString = strCon .Open() End With '** 2. Create SQL Statement **' Dim sql As String = "" sql = "SELECT TOP 10 * FROM UserReportProblem" '** 3. Create Execute SQL **' Dim da As New SqlDataAdapter(sql, conn) Dim ds As New DataSet da.Fill(ds, "userReport") '** 4. Create Retrive Data แสดงผลข้อมูล **' ' DGV_Name.DataSource = ds.Tables("userReport") '** 5. Close Connectiong **' conn.Close() End Sub
Post by Goborijung at 2019-10-05 08:21:40 | ID: 142
Imports System.Data Imports System.Data.SqlClient Imports System.Configuration Public Class classConn Public ReadOnly Property conn_GSSv2_Prod() As String Get Return "Data Source ='S410717NB0201MSSQLSERVER2';Initial Catalog='GSSv2_Prod';" & "User ID='sa';Password='gik8nv@tpf';" End Get End Property Public Sub New() strConnString = ConfigurationManager.ConnectionStrings("InventorySupplier").ConnectionString End Sub Private objConn As SqlConnection Private objCmd As SqlCommand Private Trans As SqlTransaction Private strConnString As String '** DataSet **' Public Function QueryDataSet(ByVal strSQL As String) As DataSet Dim ds As New DataSet Dim dtAdapter As New SqlDataAdapter objConn = New SqlConnection With objConn If .State = ConnectionState.Open Then .Close() .ConnectionString = strConnString .Open() End With objCmd = New SqlCommand With objCmd .Connection = objConn .CommandText = strSQL .CommandType = CommandType.Text End With dtAdapter.SelectCommand = objCmd dtAdapter.Fill(ds) Return ds '*** Return DataSet ***' End Function '** DataReader **' Public Function QueryDataReader(ByVal strSQL As String) As SqlDataReader Dim dtReader As SqlDataReader objConn = New SqlConnection With objConn If .State = ConnectionState.Open Then .Close() .ConnectionString = strConnString .Open() End With objCmd = New SqlCommand(strSQL, objConn) dtReader = objCmd.ExecuteReader() Return dtReader '*** Return DataReader ***' End Function '** DataTable **' Public Function QueryDataTable(ByVal strSQL As String) As DataTable Dim dtAdapter As SqlDataAdapter Dim dt As New DataTable objConn = New SqlConnection With objConn If .State = ConnectionState.Open Then .Close() .ConnectionString = strConnString .Open() End With dtAdapter = New SqlDataAdapter(strSQL, objConn) dtAdapter.Fill(dt) Return dt '*** Return DataTable ***' End Function '** ExecuteNonQuery **' Public Function QueryExecuteNonQuery(ByVal strSQL As String) As Boolean objConn = New SqlConnection With objConn If .State = ConnectionState.Open Then .Close() .ConnectionString = strConnString .Open() End With Try objCmd = New SqlCommand With objCmd .Connection = objConn .CommandType = CommandType.Text .CommandText = strSQL End With objCmd.ExecuteNonQuery() Return True '*** Return True ***' Catch ex As Exception Return False '*** Return False ***' End Try End Function End Class
Post by Goborijung at 2019-10-07 13:27:54 | ID: 149
Protected Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click Dim sql As String = "" sql = "INSERT INTO UserReportProblem(SysProblem,[Name],[Image],Detail,UserName,DateReport,Branch,Department,Phone,[Status]) " ' sql &= " VALUES(@OID,@SysProblem,@Name,@Detail,@UserName,@DateReport,@Branch,@Department,@Phone,@Status)" sql &= " VALUES(" sql &= "'" & Trim(rdoSystem.Text) & "'," sql &= "N'" & txtProblemName.Text & "'," sql &= "N'" & imgPath & fuFileUploadImage.FileName & "'," sql &= "N'" & txtaDetail.Text & "'," sql &= "N'" & txtUserReport.Text & "'," sql &= "'" & txtDate.Text & "'," sql &= "'" & frm_ddBranch.Text & "'," sql &= "'" & frm_ddDepartment.Text & "'," sql &= "N'" & Trim(txtPhone.Text) & "'," sql &= "N'" & Trim(txtStatus.Text) & "') " ' Response.Write("SQL Query: " & sql) If conn.QueryExecuteNonQuery(sql) = True Then '*** Condition Success ***' Response.Write("<script>alert('บันทึกข้อมูลเรียบร้อย..');</script>") showUserRequest() Else '*** Condition Error ***' Response.Write("<script>alert('บันทึกไม่ได้ โปรติดต่อแผนก IT Software เบอร์ติดต่อ 108 !');</script>") conn.Close() End If ' conn.Close() End If End Sub
Post by Goborijung at 2019-10-10 14:06:50 | ID: 153
Sub load_ddDepartment() Dim ds As New DataSet Dim sql As String = "" sql = "SELECT DISTINCT OID,Name FROM Department ORDER BY Name ASC" ds = conn.QueryDataSet(sql) ddDepartment.DataSource = ds ddDepartment.DataValueField = "OID" ddDepartment.DataTextField = "Name" ddDepartment.DataBind() conn.Close() End Sub
Post by Goborijung at 2019-10-01 21:42:23 | ID: 141
>>> เอาวางไว้บน <system.web> -- Windows Authen <connectionStrings> <add name="InventorySupplier" connectionString="Data Source=DESKTOP-4OO907ISQLEXPRESS2; Initial Catalog=testdb; integrated security=true" providerName="System.Data.SqlClient" /> </connectionStrings> -- Database Authen <connectionStrings> <add name="InventorySupplier" connectionString="Data Source=S410717NB0201MSSQLSERVER2; Initial Catalog=GSSv2_Prod; User ID=sa; Password=gik8nv@tpf" providerName="System.Data.SqlClient" /> </connectionStrings>