connection

Imports System.Data
Imports System.Data.SqlClient

Partial Class vendor_ListCheck
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection(Udf.WKConnectionString)
    Dim dt As New DataTable
    Sub bindata()
        Dim ad As New SqlDataAdapter("select * from dbo.ListData", con)
        ad.Fill(dt)

        With GridView1
            .DataSource = dt
            .DataBind()
        End With
    End Sub


Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient


Partial Public Class Udf
    Public Shared Function WKConnectionString() As String
        '資料庫連線字串
        Dim connString As String = ConfigurationManager.ConnectionStrings("WorkOrderConnectionString").ConnectionString
        Return connString
    End Function
    Public Shared Function Get_us(ByVal st1 As String) As String
        Dim DB As String
        DB = ""
        Dim connStr As String
        connStr = "Password=123;Persist Security Info=True;User ID=jea22s;Initial Catalog=222r;Data Source=12222"
        Dim conn As New SqlConnection(connStr)
        conn.Open()
        Dim SQLStr As String
        SQLStr = "SELECT unit.name_ FROM unit INNER JOIN us ON unit.unid = us.unit WHERE (us.uid = '" & st1 & "')"
        Dim cmd As New SqlCommand(SQLStr, conn)
        Dim reader As SqlDataReader = cmd.ExecuteReader()
        If reader.Read() Then
            DB = reader.Item(0)

        End If
        reader.Close()
        conn.Close()
        conn = Nothing

        Return DB
    End Function