Skoči na vsebino

Forum ne deluje več - obiščite nas na racunalniske-novice.com




Slika

Vb Net Prikaz Podatko V Gridu In V Besedilnih Poljih

VB NET DataGridView Data.SqlClient

Odgovorov v temi: 2

#1 ASdominik

ASdominik

    nOObie

  • Members
  • 14 objav

Objavljeno 07 april 2016 - 08:28

Lep pozdrav vsem,

 

že nekaj dni se ubadam s težavo kako prikazati podatke v text polju v povezavi z podatki iz DataGridView kontrole .

 

Zadeva je namreč sledeča:

Podatke sem programsko (brez čarovnikov-samo koda) s poizvedbo iz SQL strežnika preko DataAdapterja prebral v v DataTable in jo povezal na DataGridView, ki mi te podatke tudi prikazuje.

Poizvedba vsebuje vse podatke iz tabele na SQL strežniku medtem ko so v DataGridView-u "ročno" določena in prikazana samo nekatera polja iz te tabele. Zraven pa imam tekstovna in potrditvena polja v katerih bi prikazal vse podatke iz SQL tabele. Ti podatki bi se spreminjali glede na izbrano vrstico v DataGridView kontroli. 

Torej bi rabil neki DataSource, DataBinding ali BindingNavigator za vse kontrole na formi, ki bi spreminjal set podatkov glede na izbrani zapis (Row) v DataGridViewu. V VB6 je to delovalo super v VB net pa se še lovim.

 

Prime kode:

'
ShowCountryData ("SELECT * FROM Sif_Countries ORDER BY Country_Name ASC;")
'

Private Sub ShowCountryData(ByVal SQL_Query As String)
        OpenSQL_Connection()
        Using cmd As New SqlCommand(SQL_Query, SQLConnection)
            cmd.CommandType = CommandType.Text
            Using SifCountryDA As New SqlDataAdapter(cmd)
                Using SifCountryDT As New DataTable()
                    SifCountryDA.Fill(SifCountryDT)
                    grd_Countries.AutoGenerateColumns = False
                    grd_Countries.Columns(0).DataPropertyName = "Country_Name"
                    grd_Countries.Columns(1).DataPropertyName = "ISO_Code"
                    grd_Countries.Columns(2).DataPropertyName = "Valuta"
                    grd_Countries.Columns(3).DataPropertyName = "Valuta_Code"
                    grd_Countries.DataSource = SifCountryDT
                End Using
            End Using
        End Using
        CloseSQLConnection()
	
	'Povezava tekstovnih polj z DataTable - To ne deluje!!!
	'
        txt_CountryName.DataBindings.Add("Text", SifCountryDT, "Country_Name")
	txt_ISOCode.DataBindings.Add("Text", SifCountryDT, "ISO_Code")
	txt_Valuta.DataBindings.Add("Text", SifCountryDT, "Valuta")
	txt_ECBCode.DataBindings.Add("Text", SifCountryDT, "ECB_Code")
	' ..... itn
	'
    End Sub

Še slika forme:

 

printscreen.png

 

Prosim za vašo pomoč kako rešiti sledečo situacijo. Za vse odgovore se vnaprej zahvaljujem.

 

LP, Dominik



#2 bonbon242019

bonbon242019

    Sufler

  • Members
  • 216 objav

Objavljeno 07 avgust 2021 - 09:33

A very creative and great idea, I think your idea will be implemented and invented many other ideas. atari breakout



#3 cocacola899h

cocacola899h

    Raziskovalec

  • Members
  • 70 objav

Objavljeno 19 avgust 2021 - 08:59

There are many blogs on the Internet. But I can definitely say that your blog is amazing. It has all the qualities a perfect blog should have.

wuxiaworld





Dodaj odgovor



  


0 član(ov) bere to temo

0 članov, 0 gostov, 0 anonimnih uporabnikov