Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("server=(local)\NetSDK;database=pubs;Trusted_Connection=yes")
MyCommand = New SqlDataAdapter("select * from Authors", MyConnection)
DS = new DataSet()
MyCommand.Fill(ds, "作者")
MyDataGrid.DataSource=ds.Tables("作者").DefaultView
MyDataGrid.DataBind()
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' 在此处放置初始化页的用户代码()
If Not Page.IsPostBack Then
Data_Fill()
Return
End If
End Sub
Private Sub Data_Fill()
Dim SqlSelectCommand1 As New System.Data.SqlClient.SqlCommand()
Dim myDataSet As New DataSet()
If IsNothing(Session("fakuanSort")) Then
Session("fakuanSort") = "编号"
End If
If Session("fakuan_wherecause") = "" Then
SqlSelectCommand1.CommandText = "SELECT zaajsary.DJBBH AS 编号, zaajsary.XM AS 姓名, zaajsary.xb AS 性别,zaajsary.nl AS 年龄, " + _
"zaajsary.zzdw AS 住址单位, zaajsary.cfje AS 罚款金额, convert(varchar,zaajdjb.clrq,102) AS 处理日期 " + _
" FROM zaajsary ,zaajdjb where zaajdjb.djbbh = zaajsary.djbbh ORDER BY zaajsary.DJBBH DESC "
Else
SqlSelectCommand1.CommandText = "SELECT zaajsary.xh AS 编号, zaajsary.XM AS 姓名, zaajsary.xb AS 性别,zaajsary.nl AS 年龄, " + _
"zaajsary.zzdw AS 住址单位, zaajsary.cfje AS 罚款金额, convert(varchar,zaajdjb.clrq,102) AS 处理日期 " + _
"FROM zaajsary ,zaajdjb " + Session("fakuan_wherecause") + " and zaajdjb.djbbh = zaajsary.djbbh ORDER BY zaajsary.DJBBH DESC "
End If
SqlSelectCommand1.Connection = SqlConnection1
Dim myDataAdpate As New SqlClient.SqlDataAdapter(SqlSelectCommand1)