Imports System.Web.UI
Imports System.Web.UI.Control
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim conn As New SqlConnection("data source=localhost;initial catalog=zls;uid=sa;pwd=;")
Dim sqlAdp As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("select identity(int,1,1)as id,idi into #id from userinfo order by idi select (id+" + DropDownList6.SelectedValue + ")as id into #idi from #id select top 100 id from #idi where id not in (select idi from #id) order by id drop table #id,#idi", conn)
Dim myDataSet = New DataSet()
Dim dt = New DataTable
sqlAdp.Fill(myDataSet, "dt")
conn.Close()
ListBox1.DataSource = myDataSet.Tables("dt") '绑定
ListBox1.DataBind() '显示
End Sub
End Class
'通过查询语句填充form上的datatgridview和textbox
Friend Sub displayfortab2(ByVal input As String)
'oledb对access数据库进行操作:
Dim objConn As New OleDb.OleDbConnection
Dim objComm As New OleDb.OleDbCommand
Dim objComm2 As New OleDb.OleDbCommand '
Dim objda As New OleDb.OleDbDataAdapter
Dim objda2 As New OleDb.OleDbDataAdapter
Dim objds As New DataSet
Dim objds2 As New DataSet
//设置DATAGRIDVIEW的外观
With Me.DataGridView4
Dim currencySymbol = System.Globalization.CultureInfo.CurrentCulture.NumberFormat.CurrencySymbol
'DataGridView4.Columns(7).DefaultCellStyle.Format = currencySymbol + "0.##"
Dim index_row2 As Integer
Dim sum As Double = 0
'填充DataGridView
For index_row2 = 0 To Me.DataGridView4.RowCount - 1
sum = sum + Me.DataGridView4.Rows(index_row2).Cells(7).Value
Next
'填充网格内容
Public Sub gFill_DataGrid_Value(ByVal dgView As DataGridView, ByVal p_DataReader As OracleDataReader)
Dim strError As String = ""
Dim strSQL As String = ""
Dim strFieldType As String = ""
Dim iColumns As Integer
Dim i As Integer
dgView.Rows.Clear()
If p_DataReader Is Nothing Then
Return
End If
iColumns = dgView.ColumnCount
Dim strList(iColumns) As String
Try
While p_DataReader.Read
For i = 0 To iColumns - 1
strFieldType = p_DataReader.GetFieldType(i).Name
If strFieldType = "Decimal" Then
strList(i) = gGet_Num(p_DataReader, i)
Else
strList(i) = gGet_Str(p_DataReader, i)
End If
Next i
dgView.Rows.Add(strList)
End While
Catch ex As Exception
gShowErrMsg()
Finally
p_DataReader.Close()
p_DataReader = Nothing
End Try