Γιατί δεν θέλεις να χρησιμοποιήσεις τον wizard?
κάνεις ένα νέο window forms application... εγώ εδώ σου έχω κάτι σε Vb.
κάνεις μια μέθοδο(
Private Sub GetDataFromDB(ByVal selectCommand As String)), που σε αυτή συνδέεσαι στην βάση,εκτελείς το ερώτημα, κάνεις populate with data ένα datatable, και δένεις το data table με ένα bindingsource.
τώρα στο form2_load event απλά θέτεις το datascource του gridview στο bindingsource
και μετά καλείς την μέθοδο που έχεις ήδη φτιάξει και περνάς σαν παράμετρο στην μέθοδο το sql clause.
απλά σύρε ένα datagridview control, και στο form2.vb (form2 είπα εγώ
την φόρμα μου), σου παραθέτω τοn κώδικα παρακάτω με κάποια σχόλια
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| Imports System.Data.SqlClient
Public Class Form2
Private bindingSource1 As New BindingSource()
Private dataAdapter As New SqlDataAdapter()
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.DataGridView1.DataSource = Me.bindingSource1
GetDataFromDB("select * from Authors")
End Sub
Private Sub GetDataFromDB(ByVal selectCommand As String)
Try
' Specify a connection string. i use pubs sample db
Dim connectionString As String = _
"Integrated Security=SSPI;Persist Security Info=False;" + _
"Initial Catalog=Pubs;Data Source=."
' Create a new data adapter object
Me.dataAdapter = New SqlDataAdapter(selectCommand, connectionString)
' Populate the new data table and bind it to the BindingSource.
Dim table As New DataTable()
Me.dataAdapter.Fill(table)
Me.bindingSource1.DataSource = table
Me.DataGridView1.AutoResizeColumns( _
DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader)
Catch ex As SqlException
MessageBox.Show(ex.Message)
End Try
End Sub
End Class |
Νικόλαος Καντζέλης
BSc, MSc, MCAS, MCPD, MCITP, MCTS,MCP, MCT