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

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
adlen
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 DataSetsorgu =
"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 DataColumnp = a1.Tables(
"StokKartTbl").Columns("StokID")c = a1.Tables(
"SarzKartTbl").Columns("StokID")iliski =
New DataRelation("Elemanlar", p, c)a1.Relations.Add(iliski)
'iliski.Nested = Truegoruntu = a1.Tables(
"StokKartTbl").DefaultViewDataGridStokKartTbl.DataSource = goruntu
'A1.Tables("StokKartTbl")