Dunk

Partial Class Default2
    Inherits System.Web.UI.Page
    <System.Web.Services.WebMethodAttribute()> _
   <System.Web.Script.Services.ScriptMethodAttribute()> _
    Public Shared Function GetCompleteList(ByVal prefixText As String, _
ByVal count As Integer, ByVal contextKey As String) As String()

        Dim al As New List(Of String)
        '使用程式擷取資料庫
        Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings("Northwind").ToString())
            cn.Open()
            '從customers取得產品名稱
            Dim cmd As New SqlCommand(" SELECT CompanyName FROM Customers where CompanyName like'" & prefixText & "%'", cn)
            Dim dr As SqlDataReader = cmd.ExecuteReader()
            If (dr.HasRows) Then
                While (dr.Read())
                    al.Add(dr("CompanyName").ToString())
                End While
            End If
        End Using
        Dim i As Integer = 0
        If (al.Count - 1 >= 0) Then
            i = al.Count - 1
        End If
        Dim str As String() = New String(i) {}

        For index As Integer = 0 To i
            str(index) = al(index)
        Next

        Return (str)
    End Function
End Class