Parametre And DataRelation Error

Dim a1 As DataSet

Dim parametre(2) As SqlCeParameter

Dim iliski As DataRelation

Dim verial1, verial2 As SqlCeDataAdapter

Dim sorgu As String

Dim goruntu As DataView

Dim ssceconn As New SqlCeConnection("Data Source =\Program files\AtisoftDA\atisoft.sdf")

ssceconn.Open()

a1 = New DataSet

sorgu = "SELECT * FROM StokKartTbl WHERE StokGrupKodu like StokGrupKodu"

verial1 = New SqlCeDataAdapter(sorgu, ssceconn)

parametre(1) = New SqlCeParameter("@StokGrupKodu", SqlDbType.NText, 25)

parametre(1).Value = "08"

verial1.SelectCommand.Parameters.Add(parametre(1))

verial1.Fill(a1, "StokKartTbl")

sorgu = "SELECT * FROM SarzKartTbl WHERE SarzID like @SarzID"

verial2 = New SqlCeDataAdapter(sorgu, ssceconn)

parametre(2) = New SqlCeParameter("@SarzID", SqlDbType.NText, 50)

parametre(2).Value = "01"

verial2.SelectCommand.Parameters.Add(parametre(2))

verial2.Fill(a1, "SarzKartTbl")

Dim p As DataColumn

Dim c As DataColumn

p = a1.Tables("StokKartTbl").Columns("StokID")

c = a1.Tables("SarzKartTbl").Columns("StokID")

iliski = New DataRelation("Elemanlar", p, c)

a1.Relations.Add(iliski)

goruntu = a1.Tables("StokKartTbl").DefaultView

DataGridStokKartTbl.DataSource = goruntu




Answer this question

Parametre And DataRelation Error

  • Adam Getchell

    Error

    System.ArgumentException was unhandled
    Message="Hata iletisi iceren iste e ba l bir kaynak derlemesi bulunamad ndan bir hata iletisi goruntulenemiyor"
    StackTrace:
    System.Data.ConstraintCollection.AddForeignKeyConstraint()
    System.Data.ConstraintCollection.Add()
    System.Data.ConstraintCollection.Add()
    at DataSetRelationCollection.AddCore()
    System.Data.DataRelationCollection.Add()
    AtisoftDA.siparis.Button2_Click()
    System.Windows.Forms.Control.OnClick()
    System.Windows.Forms.Button.OnClick()
    System.Windows.Forms.ButtonBase.WnProc()
    System.Windows.Forms.Control._InternalWnProc()
    Microsoft.AGL.Forms.EVL.EnterMainLoop()
    System.Windows.Forms.Application.Run()
    AtisoftDA.siparis.Main()



  • Tuan Nguyen

    This is English forum. Based on error it looks like incorrect value passed as a parameter of the relation creation, but you did not provide any info where it fails.

  • adlen

    Could you provide more info Just posting the code is not enough. You need to describe the issue and post the error you get.

  • Bulk

    Dim a1 As DataSet

    Dim parametre(2) As SqlCeParameter

    Dim iliski As DataRelation

    Dim verial1, verial2 As SqlCeDataAdapter

    Dim sorgu As String

    Dim goruntu As DataView

    Dim ssceconn As New SqlCeConnection("Data Source =\Program Files\AtisoftDA\atisoft.sdf")

    ssceconn.Open()

    a1 = New DataSet

    sorgu = "SELECT * FROM StokKartTbl WHERE StokGrupKodu like @StokGrupKodu;"

    'sorgu = "SELECT * FROM StokKartTbl"

    verial1 = New SqlCeDataAdapter(sorgu, ssceconn)

    parametre(1) = New SqlCeParameter("@StokGrupKodu", SqlDbType.NText, 25)

    parametre(1).Value = "08" ' Trim(Mid(CBStGrupAciklama.Text, 1, 6)) + "%"

    verial1.SelectCommand.Parameters.Add(parametre(1))

    verial1.Fill(a1, "StokKartTbl")

    sorgu = "SELECT * FROM SarzKartTbl WHERE SarzID like @Sarzid"

    'sorgu = "SELECT * FROM SarzKartTbl"

    verial2 = New SqlCeDataAdapter(sorgu, ssceconn)

    parametre(2) = New SqlCeParameter("@Sarzid", SqlDbType.NText, 50)

    parametre(2).Value = "TUM" 'Trim(Mid(CBSarzID.Text, 1, 25)) + "%"

    verial2.SelectCommand.Parameters.Add(parametre(2))

    verial2.Fill(a1, "SarzKartTbl")

    Dim p As DataColumn

    Dim c As DataColumn

    p = a1.Tables("StokKartTbl").Columns("StokID")

    c = a1.Tables("SarzKartTbl").Columns("StokID")

    iliski = New DataRelation("Elemanlar", p, c)

    a1.Relations.Add(iliski)

    'iliski.Nested = True

    goruntu = a1.Tables("StokKartTbl").DefaultView

    DataGridStokKartTbl.DataSource = goruntu 'A1.Tables("StokKartTbl")



  • Parametre And DataRelation Error