Mr, Stephen Russell.
u're confuse i dont want to use a store procedure for this case. I want to
know how can i use a Array with Variables
such as an array that has 5 variables or x variables then when i get a
result about a consult i run this array and my variables
inside of my array get the value and i can watch in my VARIABLE.
string nombre, apellido;
ArrayList { nombre,apellido } , i want to know if is possible in an array
has variables of differents kind of type.[string,int, boolean, etc]
ArrayList(0)= "manuel"
ArrayList(1)= "lazo"
then
i can get the value for this variable --> nombre , my result would be
"manuel"? .
Bless!
Manuel Lazo.
2012/3/29 Stephen Russell <srussell...@gmail.com>
> On Wed, Mar 28, 2012 at 10:40 AM, gardo <gardo...@gmail.com> wrote:
> > Hello everyone, i have a question about if this is possible or maybe
> > im wrong , because i try but the variables not get the values for
> > example:
> >
> > this is an array with 5 variables of my class "Distritos".
> >
> > Private Function FieldsDistritos() As ArrayList
> > Dim list As New ArrayList
> > list.AddRange(New String() {Me.codigo, _
> > Me.distrito, _
> > Me.provincia, _
> > Me.departamento, _
> > Me.region})
> > Return List
> > End Function
> >
> > and I do this.
> >
> >
> > Public Sub GetDistrito(ByVal xcod As String)
> > Dim da As New MySqlDataAdapter("select*from t_distritos where
> > codigo='" + xcod + "'", cn), dt As New DataTable
> > da.Fill(dt)
> > Dim lfields As New ArrayList, xcolumn As Integer = 0
> > lfields = Me.FieldsDistritos
> > Try
> > If dt.Rows.Count > 0 Then
> > For xfield As Integer = 0 To lfields.Count - 1
> > lfields(xfield) = dt.Rows(0)(xcolumn).ToString
> > xcolumn += 1
> > Next
> > End If
> > Catch ex As Exception
> > MsgBox(ex.Message)
> > End Try
> > End Sub
> -------------------------
>
> We do something like this:
>
> Public Function Get_InvoiceLines_By_InvoiceID(ByVal var As
> InvoiceLinesInfo) As InvoiceLinesInfo()
> Dim params() As SqlParameter = New SqlParameter(0) {}
> params(0) = New SqlParameter("@InvoiceID", var.InvoiceID)
> Dim d As SqlDataReader =
> SqlHelper.ExecuteReader(My.Settings.cnRingEDIEngine,
> CommandType.StoredProcedure, "InvoiceLines_sel_InvoiceID", params)
> Dim c As New ArrayList
> Try
> While d.Read
> Dim al As InvoiceLinesInfo = New InvoiceLinesInfo
> al.InvoiceLineID =
> IIf(IsDBNull(d("InvoiceLineID")), 0, d("InvoiceLineID"))
> al.InvoiceID = IIf(IsDBNull(d("InvoiceID")), 0,
> d("InvoiceID"))
> al.PositionNumber =
> IIf(IsDBNull(d("PositionNumber")), "", d("PositionNumber"))
> al.SequenceNumber =
> IIf(IsDBNull(d("SequenceNumber")), "", d("SequenceNumber"))
> <skip>
> c.Add(al)
> End While
> d.Close()
> Catch ex As Exception
> Dim s As String = ex.Message
> Throw New ApplicationException(ex.Message)
> End Try
> Return CType(c.ToArray(GetType(InvoiceLinesInfo)),
> InvoiceLinesInfo())
> End Function
>
>
>
> --
> Stephen Russell
>
> 901.246-0159 cell
>
> --
> You received this message because you are subscribed to the Google
> Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML
> Web Services,.NET Remoting" group.
> To post to this group, send email to dotnetdevelopment@googlegroups.com
> To unsubscribe from this group, send email to
> dotnetdevelopment+unsubscr...@googlegroups.com
> For more options, visit this group at
> http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
> or visit the group website at http://megasolutions.net
>
--
Manuel Lazo.
--
You received this message because you are subscribed to the Google
Groups "DotNetDevelopment, VB.NET, C# .NET, ADO.NET, ASP.NET, XML, XML
Web Services,.NET Remoting" group.
To post to this group, send email to dotnetdevelopment@googlegroups.com
To unsubscribe from this group, send email to
dotnetdevelopment+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/dotnetdevelopment?hl=en?hl=en
or visit the group website at http://megasolutions.net
