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

 

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

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.