Hjælp til SelectCommand.Parameters.Add i datafunktion

Utestet men prøv:

public function dspm(ds as dataset,udtryk as string, typ as SqlDbType, val as String)
try 
dim adap As new SQLDataAdapter (udtryk,conn)
adap.SelectCommand.Parameters.Add("@nyhedid", typ).Value = val
adap.Fill(ds, "dt")
conn.Open()
catch t as exception     
System.Web.HttpContext.Current.response.write(t.tostring)     
Finally
conn.Close()
End Try
end function

jeps - den have jeg selv regnet ud. Men hvis jeg nu skal have flere parametere i den samme sql-sætning? f.eks:

"SELECT * FROM nyhed WHERE nyhedid = @nyhedid And katid= @katid"

Men ellers tak for forsøget :-)

Du skrev jo "erklæringen" og det er jo ental så det var lidt svært at gætte
at du mente variabelt antal argumenter.

det kan du have ret i - sorry

Men er det så ikke bare at gøre typ og val til arrays ?

joo - nu er jeg ikke så mget inde i collections. Findes der en der kan acceptere 3 værdier for hver række?

Skal jo bruge 3 værdier hver gang:
adap.SelectCommand.Parameters.Add(værdi1, værdi2).Value = værdi3

3 argumenter som alle er arrays

en for løkke

element nummer i fra hvert array

public function dspm(ds as dataset,udtryk as string, nam as String(), typ as SqlDbType(), val as String())
try
dim adap As new SQLDataAdapter (udtryk,conn)
dim i as Integer
for i = 0 to (nam.Length - 1)
  adap.SelectCommand.Parameters.Add(nam(i), typ(i)).Value = val(i)
next
adap.Fill(ds, "dt")
conn.Open()
catch t as exception   
System.Web.HttpContext.Current.response.write(t.tostring)   
Finally
conn.Close()
End Try
end function

jeps - det var nu bare for at spare en masse arbejde - ville have været skønt hvis man kunne sige:

add("værdi","værdi","værdi")

Det ville spare nogle linier

Lav din egen klasse som indeholder 3 ArrayList's og har en Add, GetFirst, GetSecond
og GetThird metoder.

vil gerne give dit 50 point xtra hvis du kan lave den - bøvler helt vild med lortet

Du kan ikke give mere end 200.

Men jeg vil gerne lave den.

Giv mig 10 minutter.

¨fino

Imports System
Imports System.Collections

Public Class ThreeInOne
    Private list1 As ArrayList
    Private list2 As ArrayList
    Private list3 As ArrayList

    Public Sub New()
        list1 = New ArrayList
        list2 = New ArrayList
        list3 = New ArrayList
    End Sub

    Public Sub Add(ByVal o1 As Object, ByVal o2 As Object, ByVal o3 As Object)
        list1.Add(o1)
        list2.Add(o2)
        list3.Add(o3)
    End Sub

    Public Function GetFirst(ByVal ix As Integer) As Object
        Return list1(ix)
    End Function

    Public Function GetSecond(ByVal ix As Integer) As Object
        Return list2(ix)
    End Function

    Public Function GetThird(ByVal ix As Integer) As Object
        Return list3(ix)
    End Function

    Public ReadOnly Property Count() As Integer
        Get
            Return list1.Count
        End Get
    End Property
End Class

Class TestClass
    Public Shared Sub Main(ByVal args As String())
        Dim superlist As ThreeInOne = New ThreeInOne
        superlist.Add("a", 1, 1.2)
        superlist.Add("bb", 12, 12.34)
        Dim i As Integer
        For i = 0 To (superlist.Count - 1)
            Console.WriteLine(superlist.GetFirst(i) & " " & superlist.GetSecond(i) & " " & superlist.GetThird(i))
        Next
    End Sub
End Class

Jeg ved ikke om du har behov for mere end Add, Get og Count ...

noop perfekt - smid et svar :-)

kommer her