Please start any new threads on our new
site at https://forums.sqlteam.com. We've got lots of great SQL Server
experts to answer whatever question you can come up with.
| Author |
Topic |
|
AskSQLTeam
Ask SQLTeam Question
0 Posts |
 Posted - 2005-04-28 : 08:16:34
|
| jit writes "Hi I am getting an error "Dynamic SQL generation is not supported against a SelectCommand that does not return any base table information" while updating a data set. Please help me .Here is the code Dim connATI As New Odbc.OdbcConnection With connATI .ConnectionString = "DSN=" & Session("AS400_DSN") & ";UID=" & Session("USER_ID") & ";PWD=" & Session("PASSWORD") & ";" End With Dim strSql = Session("SelectQuery") ' The select query is generated dynamically '****** ' The dynamic query is "Select IAFLOC, IANAM, IAATI#, IASKU#, IADESC, IAMFG#, IAEMP1, IAEMP2, SubStr(digits(IADATE), 5,2) || '/' || SubStr(digits(IADATE), 7,2) || '/' || SubStr(digits(IADATE), 1,4) As FormattedIADate,'' as PurgedDate, 'MST' As TransDesc, '' As IAEQTY, '' As IARQTY, IARET As RETPRICE,'' as SentPart#,'' as ReceivedPart#, case IARBSM when 'Y' then 'True' when 'N' then 'False' else 'False' end as IARBSM From IITFATI Where IAFLOC = 1002 and IATRTY = 'MR' Order By IAATI#" '******** Dim da As Odbc.OdbcDataAdapter = New Odbc.OdbcDataAdapter(strSql, connATI) Dim CmdBld As Odbc.OdbcCommandBuilder = New Odbc.OdbcCommandBuilder(da) connATI.Open() Dim ds As New DataSet da.Fill(ds) ds.Tables(0).Rows(0)("IARBSM") = "N" da.Update(ds)Thanks in advanceJit " |
|
|
|
|
|
|
|
dataadapter.update