1、 数据库连接
在app.config中写入连接字符串,可通过DataGridView1的任务建立,添加项目数据源!
<connectionStrings>
<add name="根命名空间.My.MySettings.YarnStoreConnectionString"
connectionString="Data Source=192.168.0.2\home,7789(端口);Initial Catalog=根命名空间;Persist Security Info=True;User ID=sa;Password=power"
providerName="System.Data.SqlClient" />
</connectionStrings>
××××
<connectionStrings>
<add name="ttttt.My.MySettings.shanhuaConnectionString" connectionString="Data Source=192.168.0.5;Initial Catalog=shanhua;User ID=sa;Password="qaz123=-""
providerName="System.Data.SqlClient" />
</connectionStrings>
2、 用代码连接数据库到DataGridView
Dim strsql AsString
Strsql=“sql语句”
Dim da As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(strsql, My.Settings.YarnStoreConnectionString)
Dim dt AsNew Data.DataSet
da.Fill(dt, "p_dj")
DataGridView1.DataSource = dt
DataGridView1.DataMember = "p_dj"
×××××
也可以通过DataGridView1的任务建立——
代码:
Dim ccc AsNew shanhuaDataSet.DepartmentDataTable
DepartmentTableAdapter.Fill(ccc)
DataGridView1.DataSource = ccc
其中FILL函数为shanhuaDataSet.xsd中设置的查询函数,可以灵活设置!
3、 动态生成控件代码,并添加控件响应事件
Dim bbb AsNew DataGridView(控件类型)
bbb.Top = 200
bbb.Left = 200
bbb.Height = 200
bbb.Width = 300
Me.Controls.Add(bbb)
AddHandler bbb.MouseUp, AddressOf MouseUp1
——bbb.MouseUp为该控件的系统事件;MouseUp1为事件过程名称