Hi, thanks for the video. But it does not solve my problem Here is some of my code dt3.Clear() Dim SetaString As String If cmbSetaSelection.Text <> "" Then SetaString = "b.[SETA] = '" & cmbSetaSelection.Text & "'" Else SetaString = "b.[SETA] is NOT NULL " End If ' ''''''''''''''''''''''''''''''''' ' ''JOIN SQL statemnt ''''''''''''''''''''''''''''''''''''''' FieldsString = "a.[id] , a.[National_Id] , a.[Alternative_Id_Type], a.[Person_Alternate_Id] ,a.[Person_First_Name] ,a.[Person_Middle_Name], a.[Person_Last_Name], a.[Equity_Code] , a.[Person_Birth_Date] , a.[Person_Title] , a.[Gender_Code] ,a.[Citizen_Resident_Status_Code] , a.[Disability_Status_Code], a.[Home_Language_Code], a.[Nationality_Code], a.[Socioeconomic_Status_Code], b.[id], b.[seta], b.[OFO_Code], b.[ProgramName], b.[DateRegis], b.[datecomp], a.[Person_Home_Address_1] , a.[Person_Home_Addr_Postal_Code],a.[Person_Home_Address_2], a.[Person_Home_Address_3], a.[Person_Postal_Address_1], a.[Person_Postal_Addr_Post_Code], a.[Municipality], a.[Person_Postal_Address_2], a.[Person_Postal_Address_3], a.[Province_Code], a.[Person_Phone_Number], a.[Person_Cell_Phone_Number], a.[Person_Fax_Number], a.[Person_Email_Address], a.[Campus], a.[CollegeID], a.[Level_grade]" FieldString2 = "SELECT distinct " & FieldsString & " FROM Student a right JOIN QUALIFICATION b ON a.[id] = b.[id] where " & SetaString & " group by a.[id] , a.[National_Id] , a.[Alternative_Id_Type], a.[Person_Alternate_Id] ,a.[Person_First_Name] ,a.[Person_Middle_Name], a.[Person_Last_Name], a.[Equity_Code] , a.[Person_Birth_Date] , a.[Person_Title] , a.[Gender_Code] ,a.[Citizen_Resident_Status_Code] , a.[Disability_Status_Code], a.[Home_Language_Code], a.[Nationality_Code], a.[Socioeconomic_Status_Code], b.[id], b.[seta], b.[OFO_Code], b.[ProgramName], b.[DateRegis], b.[datecomp], a.[Person_Home_Address_1] , a.[Person_Home_Addr_Postal_Code],a.[Person_Home_Address_2], a.[Person_Home_Address_3], a.[Person_Postal_Address_1], a.[Person_Postal_Addr_Post_Code], a.[Municipality], a.[Person_Postal_Address_2], a.[Person_Postal_Address_3], a.[Province_Code], a.[Person_Phone_Number], a.[Person_Cell_Phone_Number], a.[Person_Fax_Number], a.[Person_Email_Address], a.[Campus], a.[CollegeID], a.[Level_grade] " myCommand = New SqlClient.SqlCommand(FieldString2, con) adp2 = New SqlDataAdapter(myCommand) adp2.Fill(dt3) Grid_Select_Student_For_Edit.DataSource = dt3 Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "Excel File 2003|*.xlsx|Excel File 2007|*.xlsx" saveFileDialog1.Title = "Save an Excel File" saveFileDialog1.FileName = ExFileName saveFileDialog1.ShowDialog()

OK. In this case you should build your SQLCommand using SHAP. For example:

string sqlcommand = "SHAPE { SELECT ID, sText FROM dbItems  WHERE ID =10}   APPEND ({SELECT ID, sDescription FROM dbRows }  RELATE ID TO ID) as Relation";

DataSet ds = new DataSet();

 

System.Data.OleDb.OleDbConnection nwindConn = new System.Data.OleDb.OleDbConnection("Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=IGBGSOFDS22;Integrated Security=SSPI;Initial Catalog=Test");

System.Data.OleDb.OleDbDataAdapter adap = new System.Data.OleDb.OleDbDataAdapter(sqlcommand, nwindConn);

adap.Fill(ds); 

ds.Tables[1].TableName = "BBB";

ds.Tables[0].TableName = "AAA";

ds.Relations[0].RelationName = "HHH";

ultraGrid1.DataSource = ds;

 

Let me know if you have any further questions.

Ok, but the following is my connection string: Data Source=192.168.8.15;Initial Catalog=StuentPlacement20131;Integrated Security=True;Connect Timeout=15;Encrypt=False;TrustServerCertificate=False Should I now change my connection string for my entire project?

No, You could use your connection string.  I just copy this code from one of my samples. The connection string is not related with our scenario and task.

 

Let me know if you have any questions.

Hi,

If you use a SHAPE / APPEND  syntaxes  in your SQL command, then you should remove :

  DS.Tables.Add("Student") 

 DS.Tables.Add("Qualification")

  DS.Tables.Add("Relation")

 

I didn`t use Add() method in my snippet code (take a look on the previous response) Could you please upload your sample, I`ll be glad to research it for you.

Let me know if you have any questions.

Hi

 

I am not getting data in my datagrid view.

 

Here is my code

        FieldsString = "SHAPE {SELECT [id] , [National_Id] from student }  APPEND ( {  SELECT [SETA], [OFO_Code] ,[ProgramName] FROM Qualification } RELATE ID TO ID) as relation "

 Dim DS As DataSet = New DataSet

        adp.Fill(DS)

        DS.Tables.Add("Student")

        DS.Tables.Add("Qualification")

        DS.Tables.Add("Relation") ---> Where do you get the name ???

        Grid_Select_Student_For_Edit.DataSource = DS