prague12

複製來源TABLE 並新增 流水號 欄位


Public Shared Sub sqlAction_addflow_column()


'可以先用sqldatasource元件自動產生連線字串 會放在web.config內

'Dim conn_str = "Data Source=JKSERVER-PC;Initial Catalog=SQLALARMLOG;Integrated Security=True"
' Dim conn_str = "Data Source=JKSERVER-PC;Initial Catalog=alarm;Integrated Security=True"
Dim conn_str = "Data Source=JKSERVER-PC;Initial Catalog=SQLALARMLOG;Integrated Security=True"
Dim conn1 As New SqlConnection(conn_str)


'Dim cmdstr = "ALTER Table ALARM Add idd int "
'Dim cmdstr = "CREATE Table ALARM2 from ALARM , ALTER Table ALARM2 Add idd int "

Dim cmdstr = "Select IDENTITY(INT,1,1) AS flow, * INTO NEW_ALARM FROM ALARM "
Dim sqlcmd = New SqlCommand(cmdstr, conn1)
'sqlcmd.Parameters.AddWithValue("@ID", ID_str)
'Dim sqlcmd = "ALTER TABLE ALARM ADD PRIMARY KEY (flow)"

Dim Adapter1 As SqlDataAdapter = New SqlDataAdapter(sqlcmd)
Dim cb As New SqlCommandBuilder
Dim alarmTable As New DataTable '建立本地記憶體資料表 內部容器裝載
'cb.DataAdapter = Adapter1
Adapter1.Fill(alarmTable)



End Sub