Dim
AuthCheck As New MySql.Data.MySqlClient.MySqlConnection(Conn)
Dim AuthGo As New MySql.Data.MySqlClient.MySqlCommand("Auth", AuthCheck)
AuthGo.CommandType = Data.CommandType.Text
Dim AuthGo2 As New MySql.Data.MySqlClient.MySqlCommand("Auth", AuthCheck)
AuthGo2.CommandType = Data.CommandType.Text
AuthGo.CommandText =
"SELECT recipe as Recipe, ingredients as Ingredients, id as ID FROM book"
AuthGo2.CommandText = "SELECT ingredients as Ingredients, id FROM book"
Dim AuthGoAdapter As New MySql.Data.MySqlClient.MySqlDataAdapter(AuthGo)
Dim DS As New Data.DataSet()
Dim DST As New Data.DataTable()
Dim DST2 As New Data.DataTable()
Dim AuthGoAdapter2 As New MySql.Data.MySqlClient.MySqlDataAdapter(AuthGo2)
AuthGoAdapter2.Fill(DS,
"DST2")
AuthGoAdapter.Fill(DS,
"DST")
DS.Relations.Add(
"DST6", DS.Tables("DST").Columns("id"), DS.Tables("DST2").Columns("id"))
rgv.DataSource = DS.Tables(
"DST")