temp1

declare @result int select @result='576' from 標案 where 標案_id='576' if @result is null insert into [Tainan_ENGOri].[dbo].[標案] ([標案_Id],[編號],[執行機關代碼]) vaLues('576','A960116','37651B100g')

sql.InsertCommand += "if not exists (select * from dbo.sysobjects where id = object_id(N'[Tainan_ENGOri].[dbo].[監造費用]') and objectproperty(ID,N'isusertable')=1) begin create table[Tainan_ENGOri].[dbo].[監造費用]("

For j = 0 To 3

If j = 2 Then

j = j

Else

If Right(dataSet.Tables(i).Columns(j).ColumnName, 5) = "_Text" Then

If j = 0 Then

sql.InsertCommand += " [" & Left(dataSet.Tables(i).Columns(j).ColumnName, dataSet.Tables(i).Columns(j).ColumnName.Length - 5) & "] varchar(20) "

Else

sql.InsertCommand += " ,[" & Left(dataSet.Tables(i).Columns(j).ColumnName, dataSet.Tables(i).Columns(j).ColumnName.Length - 5) & "] varchar(20) "

End If

ElseIf dataSet.Tables(i).Columns(j).ColumnName = "實際執行摘要" Then

If j = 0 Then

sql.InsertCommand += " [" & dataSet.Tables(i).Columns(j).ColumnName & "] nvarchar(1000) "

Else

sql.InsertCommand += " , [" & dataSet.Tables(i).Columns(j).ColumnName & "] nvarchar(1000) "

End If

ElseIf Right(dataSet.Tables(i).Columns(j).ColumnName, 3) = "_Id" Then

If j = 0 Then

sql.InsertCommand += " [" & dataSet.Tables(i).Columns(j).ColumnName & "] varchar(5) "

Else

sql.InsertCommand += " , [" & dataSet.Tables(i).Columns(j).ColumnName & "] varchar(5) "

End If

Else

If j = 0 Then

sql.InsertCommand += " [" & dataSet.Tables(i).Columns(j).ColumnName & "] nvarchar(500) "

Else

sql.InsertCommand += " , [" & dataSet.Tables(i).Columns(j).ColumnName & "] nvarchar(500) "

End If

End If

End If

Next

sql.InsertCommand += ") END ;"

sql.InsertCommand += "" & vbCrLf