Visual Basic

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]

Ganesh RV wrote:

can an object created for abstract class and interface?

Ganesh RV wrote:

can i use a static method in abstract class?

Ganesh RV wrote:

if i am using all methods in abstract class as abstract method then how it vary from interface.why cannot i use an interface instead.

QPun wrote:

I mean, when we install the VB.Net application, we can't determine where the form path is, right?