Problem With Datadapter.update
The Following Code is used but the data Doesn't get Updated in Database.
The Same Table is used in datatable & Select Statement table Name is Passed to a Function. The Code Function is Posted Here.
Function CreateCmdAndUpdate(ByVal StrServerName As String, ByVal StrUserName As String, ByVal StrPwd As String, ByVal StrTableName As String, ByVal FillDataTable As DataTable)
Dim SqlCon As SqlConnection
Dim SqlCmd As New SqlCommand
Try
Dim SqlConStr As String = "server=" & StrServerName & "; database=temp; uid=" & StrUserName & "; pwd=" & StrPwd & "; integrated security=sspi"
SqlCon = New SqlConnection(SqlConStr)
SqlCon.Open()
Dim Myds As DataSet = New DataSet
SqlCmd.CommandText = sqlstr
Dim sqlda As New SqlDataAdapter("SELECT * FROM " & StrTableName, SqlCon)
Dim sqlCb As New SqlCommandBuilder(sqlda)
sqlda.Fill(Myds)
Myds.Tables.Add(FillDataTable)
sqlda.update(myds)
Catch ex As SqlException
MessageBox.Show(ex.Message, "Candeo-SMT V2.0", MessageBoxButtons.OK, MessageBoxIcon.Information)
Return False
Finally
SqlCon.Close()
End Try
|