vs中我设置了查询,点击查询,在下方会出现数据库的数据,数据后有一个编辑按钮,点击编辑时调用新增页面

vs中我设置了查询,点击查询,在下方会出现数据库的数据,数据后有一个编辑按钮,点击编辑时调用新增页面,第1张

你是要在新增页面的.CS页面获取这个值 还是在这个数据显示页面获取这个guid的值?

如果是 新增页面 那就是Request.QueryString["name"].ToString()如果是数据显示页面 那就是你绑定的数据源里面去找对应的

在左边工具箱中选择数据>>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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/sjk/9555654.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-29
下一篇 2023-04-29

发表评论

登录后才能评论

评论列表(0条)

保存