05. april 2005 - 09:10
Der er
4 kommentarer
Windows form med datagrids
Jeg er ny i VB.net.
Er der noget der har et eks. på en applikation der bruger en Access DB. (Eller et sted der ligger et eks.) Den skal kunne læse/skrive/slette (alle database operationer)
Min database har en hoved tabel & en trans tabel. Disse skal kunne sync. mellem to forskellige data grids.
05. april 2005 - 09:12
#1
Jeg har et eksempel med en tabel liggende:
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms
Namespace DefaultNamespace
Public Class MainForm
Inherits Form
Private dg As DataGrid
Private save As Button
Private con As OleDbConnection
Private da As OleDbDataAdapter
Private cb As OleDbCommandBuilder
Private ds As DataSet
Public Shared Sub Main
Dim fMainForm As New MainForm
fMainForm.ShowDialog()
End Sub
Public Sub New()
MyBase.New
Me.InitializeComponent
End Sub
Private Sub InitializeComponent()
con = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb;UserId=admin;Password=")
con.Open
da = New OleDbDataAdapter("SELECT * FROM T1", con)
cb = New OleDbCommandBuilder(da)
da.InsertCommand = cb.GetInsertCommand
da.UpdateCommand = cb.GetUpdateCommand
da.DeleteCommand = cb.GetDeleteCommand
ds = New DataSet
da.Fill(ds, "T1")
dg = New DataGrid
save = New Button
SuspendLayout
dg.Location = New Point(50, 50)
dg.Size = New Size(300, 200)
dg.SetDataBinding(ds, "T1")
save.Location = New Point (50, 300)
save.Size = New Size (100, 25)
save.Text = "Save"
AddHandler save.Click, AddressOf SaveClick
ClientSize = New Size(400, 400)
Controls.Add(dg)
Controls.Add(save)
Text = "Main Form"
ResumeLayout(false)
End Sub
Sub SaveClick(ByVal sender As Object, ByVal e As EventArgs)
da.Update(ds, "T1")
ds.AcceptChanges
dg.Refresh
End Sub
End Class
End Namespace
05. april 2005 - 09:21
#2
Jeg leder efter et eks. i projekt form, sådan jeg kan se det hele. Det skulle gerne være med to grids, der er forbunden.
Har du et projekt som du evt. kunne sende ?