1、建立数据库连接
Windows系统下：管理---->ODBC数据源（32/64位）---->添加---->SQL Sever---->数据库名，密码，服务器名称（打开SQL Server Management Studio---->对象管理服务器栏下右键属性---->常规---->名称）
在VB中，用工具栏添加Bindingsource---->属性---->Datasource---->添加项目数据源---->数据库---->数据集---->新建连接---->服务器名称（同上）、选择或输入数据库名称（选择自己建立的数据库）
2、在VB中设置
Private cn As SqlConnection '创建新的SqlConnection
Private da As SqlDataAdapter '创建新的SqlDataAdapter
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim cnStr As String = "Data Source=WINDOWS-T8QLU6M;Initial Catalog=dati;Integrated Security=true;User ID=sa;Password=900427" '数据库连接字符串，若Integrated Security=true表示使用Windows验证登录数据库，此时可以不写User ID和Password，若为false则表示使用SQL验证方式登录数据库，此时必须在后面写上User ID和Password
cn = New SqlConnection(cnStr)
da = New SqlDataAdapter("select * from text", cn) 'text为所连接的数据库中的表
da.Fill(DataSet, "tiku") 'DataSet为数据集连接名，在Bindingsource的Datasource属性后，tiku为text在本程序中的映射，名称随意
DataGridView1.DataSource =DataSet 'DataSet同上
DataGridView1.DataMember = "tiku" 'tiku同上
Textbox1.DataBindings.Add("text", DataSet, "tiku.题干", True) 'Textbox1控件绑定tiku表中的题干列
End Sub
3、在Dategirdview中插入记录
Dim AddRow As DataRow '实例化一个DataRow数据行
Dim RowValues(i) As Object '定义一维数组
RowValues(0) = 待插入的数据 '第一列插入的数据，注意该数据类型必须与表对应列数据类型相同
RowValues(1) = 待插入的数据
......
RowValues(i) = 待插入的数据 '第i+1列插入的数据
AddRow = DatiDataSet2.Tables("tiku").NewRow
AddRow.ItemArray = RowValues
DatiDataSet2.Tables("tiku").Rows.Add(AddRow)
4、在在Dategirdview中删除选中行
DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
2015-04-21 13:23
