Visual Basic

Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   if lstCust.Items.Count<>0 then
      txtCustID.Text = lstCust.Items(0).Item(0).Text
      txtCompName.Text = lstCust.Item(0).SubItems(1).Text
      ...
   end if
End sub

With Me
...
End With

Private Function JoinArrays(Array1() as string, Array2() as string) as string()<br />
  dim Array3() as string<br />
  for count as integer = 0 to Array1.length - 1<br />
    Array3(count)=Array1(count)<br />
  next count<br />
<br />
  for count =0 to array2.length - 1<br />
    array3(array1.length+count)=array2(count)<br />
  next count<br />
  return array3<br />
End Sub

Public Shared Function JoinStringArrays(ByVal source1 As String(), ByVal source2 As String()) As String()
    Dim newArray(source1.Length + source2.Length - 1)
    source1.CopyTo(newArray, 0)
    source2.CopyTo(newArray, source1.Length)
    return newArray
End Function

Vuyiswamb wrote:

i would like to know how to design a Function that accept parameters and return a dataset. Inputs are from a textbox.

Public Function MyFunction(someText As String) As DataSet
    Dim result As DataSet 
    ' Do stuff to generate the dataset and assign it to result
    Return result
End Function

SELECT Primary_ID, Boundary_area, Attrib_Code, Lis_Key, Func_Key, Actual_Extent, Improved_Value, Site_Value, Purchase_price, Purchase_date, prop_id, confidence_score, fin_ls_prediction, new_lis_key, new_func_key, Tshwane_Prediction FROM Property_mass WHERE (SUBSTRING(Lis_Key, 1, 4) = @Lis_key)

Public Function GetdataProperties_lissearch(ByVal strSearched As String) As Dataset<br />
<br />
        Dim dsdata As dssearchlis<br />
<br />
        Try<br />
            dsdata = New dssearchlis<br />
            dasearchlis.Fill(dsdata)<br />
<br />
        Catch ex As SqlClient.SqlException<br />
            MsgBox(ex.Message)<br />
        End Try<br />
<br />
        Return dsdata<br />
<br />
    End Function<br />
<br />

Vuyiswamb wrote:

I want to know how will i get the Adapter to Accept the Parameter passed.

Public Function GetdataProperties_lissearch(ByVal strSearched As String) As DataSet

    Dim dsdata As dssearchlis
    Try
        dsdata = New dssearchlis
        dasearchlis.SelectCommand.Parameters("@Lis_key").Value = strSearched

        dasearchlis.Fill(dsdata)
        If dsdata.Tables("Property_Mass").Rows.Count = 0 Then
            MsgBox("Township not Found", MsgBoxStyle.OKOnly, "Warning")
        Else
            dsdata.Clear()
            dasearchlis.Fill(dsdata)
            Return dsdata

        End If
    Catch ex As SqlClient.SqlException
        MsgBox(ex.Message)
    End Try
    Return dsdata
End Function

Public Function Getdata_Lis_search(ByVal strSearched As String) As DataSet


    Dim ws As PropDAL.Properties
    Dim dsdata As DataSet

    Try
        ws = New PropDAL.Properties
        dsdata = New DataSet
        dsdata = ws.GetdataProperties_lissearch(strSearched)
        Return dsdata

    Catch ex As SqlClient.SqlException

        MsgBox(ex.Message)

    End Try

End Function

mResvalue = txtlisSearch.Text

 Dim objBUs As ProBusiness.Properties
 Try
     mdsprops_lis = New PropDAL.dssearchlis

     objBUs = New ProBusiness.Properties
     objBUs.Getdata_Lis_search(Resvalue)
     mdsprops_lis = objBUs.Getdata_Lis_search(mResvalue)

     dgr.DataMember = "Property_Mass"
     dgr.DataSource = mdsprops_lis

 Catch ex As SqlClient.SqlException
     MessageBox.Show(ex.Message)

 End Try

Private mdsprops_lis As PropDAL.dssearchlis

Vuyiswamb wrote:

i have a Function in my DAL layer. coded like this

Vuyiswamb wrote:

If dsdata.Tables("Property_Mass").Rows.Count = 0 Then MsgBox("Township not Found", MsgBoxStyle.OKOnly, "Warning")

Vuyiswamb wrote:

PLease comment on this one, because it gives me Errors when i instatiate from BLL

|Colin wrote
Invoking a message box from the DAL is highly inappropriate. You should have zero user interface code in there. To do otherwise would break the concept of abstracting away the Data layer away from the presentation layer.

|Colin wrote
What sort of errors?

Private mdsprops_lis As PropDAL.dssearchlis

Private mdsprops_lis As ProBLL.PropDAL.dssearchlis

twsted f8 wrote:

Dim mytablelogoninfo As TableLogOnInfos = myCrystalReportViewer.LogOnInfo

twsted f8 wrote:

For Each myTableLogOnInfo As TableLogOnInfo In [myTableLogOnInfos]