نحوه اجرای این دستورات sql در vb.net

[ehsanvb]

سلام

من میخواستم دستورات زیر را که برای فارسی سازی کاراکترهای عربی در یک بانک در sql است رو مستقیما در vb.net اجرا کنم

ممنون میشم اگه راهنماییم کنید:

USE HBank;

DECLARE @Table NVARCHAR(500),

@Col NVARCHAR(500),

@S nvarchar(500)

DECLARE Table_Cursor CURSOR

FOR

--پيدا كردن تمام فيلدهاي متني تمام جداول ديتابيس جاري

SELECT a.name, --table

b.name --col

FROM sysobjects a,

syscolumns b

WHERE a.id = b.id

AND (

b.xtype = 99 --ntext

OR b.xtype = 35 -- text

OR b.xtype = 231 --nvarchar

OR b.xtype = 167 --varchar

OR b.xtype = 175 --char

OR b.xtype = 239 --nchar

)

and a.xtype='U' and substring(a.name,1,9) <> 'conflict_' and a.name

<>'dtproperties'

OPEN Table_Cursor FETCH NEXT FROM Table_Cursor INTO @Table,@Col

WHILE (@@FETCH_STATUS = 0)

BEGIN

set @S='update [' + @Table + '] set [' + @Col +

']= REPLACE(REPLACE(CAST([' + @Col +

'] as nvarchar(1000)) , NCHAR(1610),

NCHAR(1740)),NCHAR(1603),NCHAR(1705)) '

--print @S

EXEC ( @S )

FETCH NEXT FROM Table_Cursor INTO @Table,@Col

END

CLOSE Table_Cursor DEALLOCATE Table_Cursor

[shadi khanum]

منظورتون از اینکه مستقیما در vb.net اجرا کنم چیه؟ اگر یعنی همین دستورات از طریق برنامتون اجرا بشه که میتونی اینو یه StoreProc کنی و از توی برنامه صداش بزنی
اگه اصلا نمیخای از این کدا استفاده کنی و میخوای از دستورات vb استفاده کنی باید اطلاعات رو اول بخونی تو یه جدولی بریزی بعد با Replace همه کاراکترای ی و ک عربی رو با فارسیش جایگزین کنی

[ehsanvb]

منظورتون از اینکه مستقیما در vb.net اجرا کنم چیه؟ اگر یعنی همین دستورات از طریق برنامتون اجرا بشه که میتونی اینو یه StoreProc کنی و از توی برنامه صداش بزنی
اگه اصلا نمیخای از این کدا استفاده کنی و میخوای از دستورات vb استفاده کنی باید اطلاعات رو اول بخونی تو یه جدولی بریزی بعد با Replace همه کاراکترای ی و ک عربی رو با فارسیش جایگزین کنی

ببین دوست عزیز من هدفم اینه که با زدن یک دکمه در برنامه ، تمام کاراکترهای یک بانک خاص رو به فارسی تبدیل کنه

کدهایی که در بالا گذاشتم رو اگر در بصورت یک کوئری در اس کیو ال منیجر اجرا کنم این کار رو برام انجام میده ولی من میخوام کاربر بتونه از داخل برنامه ای که با زبان وی بی نوشته شده این کار را با زدن یک دکمه انجام بده و نیازی نباشه وارد اس کیو ال منیجر بشه

روش

Replace که شما فرمودید هم جواب میده ولی یکم زمان بر هست

امیدوارم که تونسته باشم منظورم رو برسونم

[ehsanvb]

جواب رو یافتم ....

مینویسم اینجا باشد که درس عبرتی باشد برای آیندگان ....

        Dim cnn2 As New SqlConnection()

        Dim cmd2 As New SqlCommand()

        Dim sda2 As New SqlDataAdapter()

 cmd2.CommandText = "عبارتی اس کیو الی را که میخواهیم اجرا شود پشت سر هم در این محل مینویسیم; "

    cnn2.ConnectionString = "Server=.;Database=BankName;uid=user;pwd=123;" 

        cmd2.Connection = cnn2

        cnn2.Open()

        cmd2.ExecuteNonQuery()

        cnn2.Close()

[hamidrezax1]

سلام دوست عزیز من همزمان دو تا کوئری دارم که میخوام وقتی اولی اجرا شد یهپیغام بده و بهد دومی رو بلافاصله اجرا کنه اما ارور میده آیا راه حلی سراغ دارین؟

Dim cnn2 As New SqlConnection()

Dim cmd2 As New SqlCommand()

Dim sda2 As New SqlDataAdapter()

cmd2.CommandText = "عبارتی اس کیو الی را که میخواهیم اجرا شود پشت سر هم در این محل مینویسیم; "

cnn2.ConnectionString = "Server=.;Database=BankName;uid=user;pwd=123;"

cmd2.Connection = cnn2

cnn2.Open()

cmd2.ExecuteNonQuery()

cnn2.Close()

Dim cnn2 As New SqlConnection()

Dim cmd2 As New SqlCommand()

Dim sda2 As New SqlDataAdapter()

cmd2.CommandText = "عبارتی اس کیو الی را که میخواهیم اجرا شود پشت سر هم در این محل مینویسیم; "

cnn2.ConnectionString = "Server=.;Database=BankName;uid=user;pwd=123;"

cmd2.Connection = cnn2

cnn2.Open()

cmd2.ExecuteNonQuery()

cnn2.Close()