16,554
社区成员
发帖
与我相关
我的任务
分享
Private Sub MinecMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqlconn.ConnectionString = "server=(local);database=Northwind;integrated security=sspi"
sqlconn.Open()
sqlcomm.CommandText = "select * from Customers"
sqlcomm.CommandType = CommandType.Text
sqlcomm.Connection = sqlconn
sqldt.SelectCommand = sqlcomm
sqldt.Fill(sqldataset, "Customers")
DataGridView1.DataSource = sqldataset.Tables("Customers")
DataGridView1.AutoGenerateColumns = True
End Sub
Dim n As Integer = 0
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
n += 1
MessageBox.Show(n)
End Sub
Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
End Sub
Imports System.Data.SqlClient
Imports System.Drawing
Public Class MinecMain
Dim sqlconn As New SqlConnection
Dim sqldt As New SqlDataAdapter
Dim sqldr As SqlDataReader
Dim sqlcomm As New SqlCommand
Dim sqldataset As New DataSet
Private Sub MinecMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sqlconn.ConnectionString = "server=(local);database=Northwind;integrated security=sspi"
sqlconn.Open()
sqlcomm.CommandText = "select * from Customers"
sqlcomm.CommandType = CommandType.Text
sqlcomm.Connection = sqlconn
sqldt.SelectCommand = sqlcomm
sqldt.Fill(sqldataset, "Customers")
DataGridView1.DataSource = sqldataset.Tables("Customers")
DataGridView1.AutoGenerateColumns = True
End Sub
Dim n As Integer = 0
Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
n += 1
MessageBox.Show(n)
End Sub