vec 3 godine koristim ovaj kod za pregled dve forme u jednom datagridu... dosadio je a i ne odgovara mojim danasnjim potrebama, sto je glavni uzrok promene... naime, treba mi pomoc da prikazem dve tabele u datagridview objektu. znaci da nema ovaj plusic sa strane i te gluposti vec da sve bude u jednom. hvala vam drugari.
Dim adresabaze As String = Application.StartupPath & "\ERiN_db_1.accdb"
Dim conne As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & adresabaze)
conne.Open()
Dim ds As New DataSet
Dim ocd1 As OleDbCommand
Dim ocd2 As OleDbCommand
Dim adp1 As OleDbDataAdapter
Dim adp2 As OleDbDataAdapter
Dim datarelation As DataRelation
Dim dc1 As DataColumn
Dim dc2 As DataColumn
ds.CaseSensitive = True
ocd1 = New OleDbCommand
ocd1.Connection = conne
ocd1.CommandText = "SELECT * FROM TBL_nalozi"
ocd2 = New OleDbCommand
ocd2.Connection = conne
ocd2.CommandText = "SELECT * FROM TBL_vlasnici"
adp1 = New OleDbDataAdapter
adp1.SelectCommand = ocd1
adp1.TableMappings.Add("Table", "TBL_nalozi")
adp1.Fill(ds)
adp2 = New OleDbDataAdapter
adp2.SelectCommand = ocd1
adp2.TableMappings.Add("Table", "TBL_vlasnici")
adp2.Fill(ds)
dc1 = ds.Tables("TBL_nalozi").Columns("idvlasnika")
dc2 = ds.Tables("TBL_vlasnici").Columns("idvlasnika")
datarelation = New DataRelation("Detalji o vozilu", dc1, dc2)
ds.Relations.Add(datarelation)
DataGrid1.DataSource = ds.DefaultViewManager
DataGrid1.DataMember = "TBL_nalozi"
hvala jos jednom. znacilo bi mi puno.
|