Comments by Ahmad Al Halabi (Top 23 by date)

Sorry about that, i write an example.

I want to copy function in another project

i don't think this is the best solution what if the client add 10 or 20 new field,than i must add 20 field in the SQl !!
and what if client want to add a "boolean field" or "date field" ?!

I improved my question Garth

>SetPersonDetails(Person)


>
Public Shared Function SetPersonDetails(ByVal PersonDetailsList As List(Of PersonVO)) As DataTable
Dim dt As New DataTable()
Try
dt.TableName = "Person"

For Each [property] As PropertyInfo In PersonDetailsList(0).[GetType]().GetProperties()
dt.Columns.Add(New DataColumn([property].Name, [property].PropertyType))
Next

For Each vehicle As PersonVO In PersonDetailsList
Dim newRow As DataRow = dt.NewRow()
For Each [property] As PropertyInfo In vehicle.[GetType]().GetProperties()
newRow([property].Name) = vehicle.[GetType]().GetProperty([property].Name).GetValue(vehicle, Nothing)
Next
dt.Rows.Add(newRow)
Next
Return dt
Catch ex As Exception
Console.WriteLine(ex.ToString())
Return Nothing
End Try
End Function
....
I am tring this solution, but it is give an error on : SetPersonDetails(Person)

Value of type 'TravelAgency.PersonVO' cannot be converted to 'System.Collections.Generic.List(Of TravelAgency.PersonVO)'

I rewrite My Question

are you have any example ?

Thank's :) it's Work

thank's Mike, but how i can implement it in query :

SELECT TOP 1000 [ID]
,[Num]
,[FirstName]
,[Nickname]
,[LastName]
,[Gender]
FROM [TravelAgency].[dbo].[CustomersViews]

how i can set 'Male' on this select ?

I Found the Problem, I am creating stream reader before this function, and i mess to close the reader, because that i can't write any thing ooops

the file created, but the value not written

PassPath = "C:\Program Files\Sana Computers\SanaPassword.txt"

My Error in "myCommand.ExecuteNonQuery()" >>
myCommand.ExecuteNonQuery() Run-time exception thrown : System.Data.OleDb.OleDbException - Must declare the scalar variable "@ImageData".

---------------------------------------------------------------------------
_query : update Company set CompanyLogo = (@ImageData) where CompanyID = 1
OleDbParameter : length=1
name =@ImageData
value={System.Array}
myCommand : update Company set CompanyLogo = (@ImageData) where CompanyID = 1

okay thank OriginalGriff :)
i should use :
_userCompanyBar1.setData(_CompanyVO.CompanyName, _CompanyVO.CompanyAddress,_CompanyVO.CompanyPhone)

Dim mb As New _userCompanyBar()

i write it in the Main Form

If Not (_CompanyVO Is Nothing) Then
mb.setData(_CompanyVO.CompanyName, _CompanyVO.CompanyAddress, _CompanyVO.CompanyPhone)
end if

i Call "setData" in the user control

Sub setData(ByVal Name As String, ByVal Address As String, ByVal Phone As String)

_lbCompanyName.Text = Name
_lbCompanyAddress.Text = Address
_lbCompanyTelp.Text = Phone
End Sub