Einzelne werte von DataGrid in Texbox

duti · 25. Mai 2014, 09:18

Hallo ihr Liebenleute.

Bin seit einer zeit an einem kleinem Programm dran.
Mit dem Programm soll mein Kumpel sein Lager verwalten können.

Ich bin an einem Punkt angelangen da komme ich leider nicht mehr weiter und zwar ist das so, dass ich die geladene Tabelle in DataGridView einzeln auf Textboxen durch klick lade.
D.H wenn ich jetzt auf den artikel mit der nummer 12 klicke, soll die artikelnummer auf Textbox1 laden, wenn ich auf den anderen artikel klicke soll die artikelnummer in Textbox2 laden usw.

einfach gesagt : Klick auf artikelnummer 5 in Textbox1, klick auf artikelnummer 10 in Textbox2 usw.

ich hoff ich versteht mich, finde leider nicht im Internet könnt ihr mir helfen?

danke für eure mühe

Mfg Duri

Dksksm · 25. Mai 2014, 09:36

Die erste Frage ist, wie Du denn die Daten verwaltest?
Hast Du ein Dataset mit Tabellen und Bindingsourcen auf dem Formular? Ist das DGV über die Bindingsource an die Daten gebunden?
Wenn ja, und so sollte das sein, dann hast Du über die die Properties der Bindingsource eigentlich alles was du benötigst um die Textboxen ebenfalls zu binden.

VB1963 · 25. Mai 2014, 09:38

Meinst du, wenn im DGV abwechselnd verschiedene Zeilen ausgewählt werden, dass dann die Spalteninhalte der aktiven Zeile in Textboxen außerhalb des DGV visualisiert werden?

Dksksm · 25. Mai 2014, 10:08

Dann müsste Dir so etwas wie CurrentCell.Value.ToString reichen.

duti · 25. Mai 2014, 10:18

Hi Leute

Also verwalten tuh ich das ganze über DataGridView das mit Mysql arbeitet.
Hab es so weit gebracht das ich In Tabelen einfügen,ändern,löschen kann. so wie ein Filter "falls" mehrere artikel mit dem gleichen namen gibt.

Nun möchte ich einfach das wenn ich eben die verschiedenen artikel anklicke nur die artikel nummer in einzelnen Textboxen anzeigt. Dies muss aber abwechselnd geschehn.

@VB1963 ganz genau

sollte doch irgendwie gehnen... wenn Textbox1 ein inhalt hat soll es zu Textbox2 wechseln wenn das auch einen inhalt hat weiter zu Textbox3

irgendwie so oder nicht?

VB1963 · 25. Mai 2014, 10:35

@Dksksm hat's im Post #2 bereits geschrieben...
Wie hast du denn die Daten in das DGV verfrachtet?

duti · 25. Mai 2014, 10:46

Also ich schicke mal mein Vb code.
Im endeffekt sollte eigentlich so sein das wenn Textbox1 gefüllt ist automatisch in Textbox2 ladet und dann im 3 , usw

VB.NET-Quellcode

Imports MySql.Data.MySqlClient
Public Class Form2
Dim MysqlConn As MySqlConnection
Dim SDA As MySqlDataAdapter
Dim COMMAND As MySqlCommand
Dim READER As MySqlDataReader
Dim dbDataSet As New DataTable
Private Sub load_table()
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server="
Dim SDA As New MySqlDataAdapter
Dim dbDataSet As New DataTable
Dim bSource As New BindingSource
Try
MysqlConn.Open()
Dim Query As String
Query = "select * from vb_test.artikel"
COMMAND = New MySqlCommand(Query, MysqlConn)
SDA.SelectCommand = COMMAND
SDA.Fill(dbDataSet)
bSource.DataSource = dbDataSet
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = bSource
SDA.Update(dbDataSet)
MysqlConn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server="
Dim READER As MySqlDataReader
Try
MysqlConn.Open()
Dim Query As String
Query = "select * from vb_test.artikel"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
While READER.Read()
End While
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
load_table()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server="
Dim READER As MySqlDataReader
Try
MysqlConn.Open()
Dim Query As String
Query = "insert into vb_test.artikel (id,kategorie,artikelname,hersteller,anzahl,reserviert,preis) values ('" & TextBox_id.Text & "','" & ComboBox1.Text & "','" & TextBox_artikelname.Text & "','" & TextBox_hersteller.Text & "','" & TextBox_anzahl.Text & "','" & TextBox_res.Text & "','" & TextBox_preis.Text & "')"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
MessageBox.Show("Eintrag erfolgreich")
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
load_table()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show()
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
""
Dim READER As MySqlDataReader
Try
MysqlConn.Open()
Dim Query As String
Query = "update vb_test.artikel set id='" & TextBox_id.Text & "',kategorie='" & ComboBox1.Text & "',artikelname='" & TextBox_artikelname.Text & "',hersteller='" & TextBox_hersteller.Text & "',anzahl='" & TextBox_anzahl.Text & "',reserviert='" & TextBox_res.Text & "',preis='" & TextBox_preis.Text & "' where id='" & TextBox_id.Text & "'"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
MessageBox.Show("Artikel erfolgreich geändert")
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
MysqlConn = New MySqlConnection
MysqlConn.ConnectionString =
"server="
Dim READER As MySqlDataReader
Try
MysqlConn.Open()
Dim Query As String
Query = "Delete from vb_test.artikel where id='" & TextBox_id.Text & "'"
COMMAND = New MySqlCommand(Query, MysqlConn)
READER = COMMAND.ExecuteReader
MessageBox.Show("Artikel erfolgreich gelöscht")
MysqlConn.Close()
Catch ex As MySqlException
MessageBox.Show(ex.Message)
Finally
MysqlConn.Dispose()
End Try
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
If e.RowIndex >= 0 Then
Dim row As DataGridViewRow
row = Me.DataGridView1.Rows(e.RowIndex)
TextBox_id.Text = row.Cells("id").Value.ToString
If TextBox_id.Text = "" Then
TextBox_artikelname.Text = row.Cells("id").Value.ToString
End If
ComboBox1.Text = row.Cells("kategorie").Value.ToString
TextBox_hersteller.Text = row.Cells("hersteller").Value.ToString
TextBox_anzahl.Text = row.Cells("anzahl").Value.ToString
TextBox_res.Text = row.Cells("reserviert").Value.ToString
TextBox_preis.Text = row.Cells("preis").Value.ToString
End If
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
load_table()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox_id.Text = ""
ComboBox1.Text = ""
TextBox_artikelname.Text = ""
TextBox_hersteller.Text = ""
TextBox_anzahl.Text = ""
TextBox_res.Text = ""
TextBox_preis.Text = ""
End Sub
Private Sub TextBox_id_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox_id.TextChanged
End Sub
End Class

ich versuche gerade was mit if / then zu machen aber klappt auch irgendwie nicht

VB1963 · 25. Mai 2014, 11:24

Ist leider eine untypisierte Vorgehensweise.
Im folgenden Link wird beschrieben und auch an Beispielen gezeigt, wie du Daten an eine Textbox binden kannst:
msdn.microsoft.com/de-de/libra…cs-lang=vb#code-snippet-2
Schaue dir einmal die Filme vom @ErfinderDesRades an...

duti · 25. Mai 2014, 11:51

danke für den hinweis. ich werd es mir mal anschauen. danke

Edit:
So hab es mir mal angeschaut nur finde ich leider nicht das was ich suche .. Leider

Ich mag mich zu erinnern das ich mal vor ein paar vielen Monaten das selbe mal gemacht habe. Ich hab das irgendwo in Youtube gefunden nur finde ich es leider nicht mehr.

also nochmal

Wenn die Textbox1 schon einen wert hat soll es automatisch weiter zur nächten Textbox gehen. usw.

ich danke euch viel mals!!!!

duti · 25. Mai 2014, 23:07

hallo leute.

ich hab da einbischen rumgeforscht und gesehn das was ich will, am besten mit einem zweiten DGV geht.
Die "Zeilen" die ich von DGV1 anklicke in DGV2 gelistet werden.

könnte euch das vieleicht einbisschen mein problem vereinfachen?

ps: sorry für noch ein post. ich dachte das es so übersichtlicher währe.
mfg duti

VB1963 · 26. Mai 2014, 07:35

Das klingt nach Drag And Drop - suche einmal danach...

duti · 26. Mai 2014, 18:32

@VB1963

alter!! du hast es geschaft!!!.. danke danke dankkee dir VIEL VIEL MALS!!!!!!
hab nur in ytube "vb datagridview drag and drop" eigegeben und TADDDAAAAA.. genau das was ich suche!!!!

thread close grosses LOB an vb-paradise!!!!!

mfg duti

ErfinderDesRades · 26. Mai 2014, 19:33

sag blos, du hast auf yt ein Tut gefunden, anhand dessen du erfolgreich Drag & Drop zwischen 2 Datagridviews implementiert hast?

Verrätst du mir den Link?

duti · 26. Mai 2014, 19:56

hallo

also sowas suchte ich youtube.com/watch?v=s018WwLOyyg

ErfinderDesRades · 26. Mai 2014, 20:08

ah, ok - wenns das ist, was dir vorschwebte.
Es ist allerdings kein Drag & Drop.

Und nochmal doof nachgefragt: Damit hast du tatsächlich bereits eine Lösung für dein Prob gecodet?

duti · 26. Mai 2014, 20:13

nochnicht gecodet . ich denke nur das ich auf dem richtigem weg bin. den das video zeigt mir nicht wie ich meine geladenen tabellen über select in die zweite DGV übertrage.
ich versuche dies um zu strukturieren.

bin natürlich offen für alles. also falls jemand eine idee hat kann sie gerne posten..

ich weis, ich bin sehr kompliziert. aber ich denke meiner meinung nach das ich das schon richtig überdenke

aber danke viel mals für die antworten.
ich will euch ja nicht nerven mit meinem Problem.

ErfinderDesRades · 26. Mai 2014, 20:32

nur soviel: im yt-tut codet er ziemlich schlecht.
zb. erstellt er codeseits Objekte, die bereits der Form-Designer für ihn generiert hat.
Und er programmiert untypisiert an einem typisiserten Dataset.

also ich kann anbieten, wenn dein Teil ferig ist, es mal zu überarbeiten, denn sonst gewöhnst du dir die ganzen Fehler an, die dir in dem Tut vorgemacht werden.

duti · 28. Mai 2014, 11:01

habs hinbekommen. hab ein spanisches Tutorial angeschaut. zwar nichts verstanden aber man versteht den code.
und zwar so:

VB.NET-Quellcode

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim id, kategorie, artikelname, hersteller, anzahl, reserviert, preis As String
id = DataGridView1(0, DataGridView1.CurrentRow.Index).Value
kategorie = DataGridView1(1, DataGridView1.CurrentRow.Index).Value
artikelname = DataGridView1(2, DataGridView1.CurrentRow.Index).Value
hersteller = DataGridView1(3, DataGridView1.CurrentRow.Index).Value
anzahl = DataGridView1(4, DataGridView1.CurrentRow.Index).Value
reserviert = DataGridView1(5, DataGridView1.CurrentRow.Index).Value
preis = DataGridView1(6, DataGridView1.CurrentRow.Index).Value
DataGridView2.Rows.Add(id, kategorie, artikelname, hersteller, anzahl, reserviert, preis)
End Sub

ich danke euch für ideen und vorschläge.

mfg duti

Einzelne werte von DataGrid in Texbox

Einzelne werte von DataGrid in Texbox

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben