vs中连接数据库,查询数据库中的一项,将与其有关的数据显示出来

在左边工具箱中选择数据>>DataGridView控件。

然后DataGridView控件右上角有一个黑色的小箭头，单击，编辑列。

添加，页眉名称（显示在控件上的列的名称，就是你要显示在窗体上的列的名称），添加一个以后关闭（我只是示列一下，需要继续添加不用关闭），然后右边的属性>>数据>>DataPropertyName(绑定数据库列名，意思就是绑定你要显示在这一列的数据库的列名)

控件添加完成。

代码部分：

控件名 . AutoGenerateColumns = false 中间一个点。。。注意看。 （取消自动创建列）

string sql = "查询语句"

SqlDataAdapter a = new SqlDataAdapter(Sql,"这里放链接通道")

DataSet b = new DataSet() a.Fill(b,"指定名称随意") 控件名..DataSource = b.Tables["指定的随意名称"] 如有问题可以再问我。

你有数据库吗？

连接你的数据库的位置，加他的 连接条件就可以拉下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：

代码如下：

Public rsNew As ADODB.Recordset

Public CnNew As ADODB.Connection

Public addFlag As Boolean

'连接数据库

Public Function OpenCn() As Boolean

Dim Mag As String

On Error GoTo strErrMag

Set CnNew = New ADODB.Connection

CnNew.ConnectionTimeout = 25

CnNew.Provider = "sqloledb"

CnNew.Properties("data source").value = "" 'SQL服务器的名

CnNew.Properties("initial catalog").value = "pubs"'库名

CnNew.Properties("integrated security").value = "SSPI"'登陆类型

'con.Properties("user id").value = "sa"

'con.Properties("password").value = "wwww"

CnNew.Open

OpenCn = True

addFlag = True

Exit Function

strErrMag:

Mag = "数据库末连接"

Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")

addFlag = False

End

End Function

Public Sub Clocn()

'闭关数据库

On Error Resume Next

If CnNew.State <>adStateClosed Then CnNew.Close

Set CnNew = Nothing

End Sub

Public Function OpenRs(ByVal strSql As String) As Boolean

'连接数据库记录集

Dim Mag As String

Dim rpy As Boolean

On Error GoTo strErrMag

Set rsNew = New ADODB.Recordset

If addFlag = False Then rpy = OpenCn

With rsNew

.ActiveConnection = CnNew

.CursorLocation = adUseClient

.CursorType = adOpenKeyset

.LockType = adLockOptimistic

.Open strSql

End With

addFlag = True

OpenRs = True

Exit Function

strErrMag:

Mag = "数据库数据集末连接"

Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")

OpenRs = False

End

End Function

Public Sub cloRs()

'闭关数据集

On Error Resume Next

If rsNew.State <>adStateClosed Then rsNew.Close

Set rsNew = Nothing

End Sub

access中3种数据类型的查询方式

文本[文本]='aa' 常见的拼接 "select * from [表] where [文本]='" &me!TextBox1 &"'" 需要拼接单引号进去

数字[件数]=10 "select * from [表] where [件数]=" &me!TextBox1 &""

日期[交货日期]>#2013-10-01# "select * from [表] where [交货日期]>#" &me!TextBox1 &"#"

如使用like需增加通配符 * 星号代表位数不限, ? 问号代表意为[文本] like '*aa*' 则包含aa的结果都会出来

---