16,554
社区成员
发帖
与我相关
我的任务
分享
DG.AllowUserToAddRows = False
'DB CONNECTION
Dim conn As SqlConnection
conn = New SqlConnection("server=localhost; uid=sa; pwd=sasa; database=BUTURYU")
conn.Open()
'每次调用是先刪除临时表数据
Dim SQLString As String = "TRUNCATE TABLE tmp"
Dim SqlCommand As SqlCommand
SqlCommand = New Data.SqlClient.SqlCommand(SQLString, conn)
SqlCommand.ExecuteNonQuery()
'从原始表读入
SQLString = "insert into [dbo].[tmp] select [发送者code],'0' from [dbo].[发送担当者master表]"
SqlCommand = New Data.SqlClient.SqlCommand
SqlCommand.CommandText = SQLString
SqlCommand.Connection = conn
SqlCommand.ExecuteNonQuery()
'获取数据
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from tmp", conn)
Dim ds As New DataSet
da.Fill(ds)
'装入数据
Dim dt As DataTable
dt = ds.Tables(0)
conn.Close()
'设置datagrid数据源
DataGrid1.DataSource = dt