Database

<br />
Public Function GetDataTable(ByVal strConnectionString As String, ByVal strProcName As String) As DataTable<br />
        Dim Conn As New SqlConnection<br />
        Conn.ConnectionString = strConnectionString<br />
<br />
        Dim Cmd As New SqlCommand<br />
        Cmd.Connection = Conn<br />
        Cmd.CommandType = CommandType.StoredProcedure<br />
        Cmd.CommandText = strProcName<br />
        Dim DA As New SqlDataAdapter<br />
        DA.SelectCommand = Cmd<br />
        Dim DT As New DataTable<br />
        DA.Fill(DT)<br />
        DA.Dispose()<br />
        Cmd.Dispose()<br />
        Return DT<br />
<br />
<br />
    End Function<br />
<br />
<br />
Public Function FillDropDownList(ByRef DDL As DropDownList, ByVal strConnectionString As String, ByVal strProcName As String) As Boolean<br />
        DDL.Items.Clear()<br />
        Dim Conn As New SqlConnection<br />
        Conn.ConnectionString = strConnectionString<br />
<br />
        Dim Cmd As New SqlCommand<br />
        Cmd.Connection = Conn<br />
        Cmd.CommandType = CommandType.StoredProcedure<br />
        Cmd.CommandText = strProcName<br />
        Dim DR As SqlDataReader<br />
        Conn.Open()<br />
        DR = Cmd.ExecuteReader<br />
        DDL.DataSource = DR<br />
        DDL.DataValueField = DR.GetName(0)<br />
        If DR.FieldCount > 1 Then<br />
            DDL.DataTextField = DR.GetName(1)<br />
        Else<br />
            DDL.DataTextField = DR.GetName(0)<br />
        End If<br />
<br />
        DDL.DataBind()<br />
        DR.Close()<br />
        Conn.Dispose()<br />
        Cmd.Dispose()<br />
        DDL.Items.Insert(0, "")<br />
<br />
<br />
    End Function<br />

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More