Javascript Function :: ตรวจสอบอิลิเมนต์ชนิด checkBox

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>

Javascript Function :: เปลี่ยนสีพื้นหลังหน้าเว็บ

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()" />

Move File Upload in aspx.vb

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

NAV :: การสร้าง Navigation Menu นำทางเว็บไซต์

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>

NAV :: การสร้างเมนูลำดับชั้นด้วย TreeView

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>

SQL :: ขั้นตอนการดึงข้อมูลจาก Database 5 ขั้นตอน

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

SQL :: classConn

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

SQL :: Insert

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

SQL :: Load data to Dropdownlist

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

SQL :: Web.Config

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>