آپدیت دستورات View از طریق برنامه

[mehr83]

میشه از طریق برنامه دستورات View رو آپدیت کرد؟
مثلا

SELECT * FROM TB1
رو تبدیل به

SELECT name FRIM TB1کرد؟

----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)

[rooshan2008]

سلام

بری ایجاد View :



create view Roshan
as
select * from Tb1


برای ویرایش:



alter view Roshan
as
select Name from Tb1

[mehr83]

کار نمی کنه برا اسم Table
Invalid Object میده

----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)

[rooshan2008]

اسم View شما چی هست همون رو Alter کنید , اسم تیبل خودتون رو جایگزین اسمی که من نوشتم کنید واسه من جواب می ده و همیشه هم استفاده می کنم یکم دقت کنید میشه

[mehr83]

منم همین کار رو کردم
میشه کد کاملشو بذارین

----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)

[rooshan2008]

سلام
این هم کد و یک مثال :


25148





Dim Cmd As New SqlClient.SqlCommand
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try

Cmd.CommandText = TextBox2.Text
Cmd.ExecuteNonQuery()
MsgBox("Compeleted..")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Cmd.Connection = New SqlClient.SqlConnection("Data Source=(local);Initial Catalog=northwind;Integrated Security=True")
Cmd.Connection.Open()
Try



Cmd.CommandText = "sp_helptext Roshan"

Dim obj = Cmd.ExecuteScalar()
TextBox2.Text = obj
Catch ex As Exception
'ںگ© ي¤ي§ ë§ں¬¢

TextBox2.Text = "Create View Roshan as (select ContactTitle from Customers)"

End Try

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Try

Cmd.CommandText = Replace(UCase(TextBox2.Text), "CREATE", "alter", 1, 1, CompareMethod.Text)
Cmd.ExecuteNonQuery()
MsgBox("Compeleted..")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try

Cmd.CommandText = "drop view Roshan"

Cmd.ExecuteNonQuery()
MsgBox("Drop Compeleted..")
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub
End Class

فریم ورک من 3.5 هست بخاطر اینکه نمی دونم از کدوم نسخه استفاده می کنی با 2 ذخیره کردم