ورود

View Full Version : اصلاح کد



ma.andishe
شنبه 02 مرداد 1389, 14:19 عصر
اگه کسی میدونه لطفا راهنمایی کنه این کد روی داده های جدول اعمال نمیشه
پارامتر هایی که از تو vb6 به اون پاس میشن :


Dim Bestar As String
Dim Radif As Integer
Dim PlatNo As Long
Dim Vaziyat As Integer








******************************************
USE [mfsksc]
GO
/****** Object: StoredProcedure [dbo].[ChangeBestarAddress] Script Date: 07/24/2010 13:08:53 ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
ALTER PROCEDURE [dbo].[ChangeBestarAddress]
@bestar nvarchar,
@bestar_radif int,
@plat_simi_no bigint,
@vaziyat int


as

if @vaziyat=3
begin
update varaghtolidi set bestar=@bestar,bestar_radif=@bestar_radif where plat_no=@plat_simi_no
end

if @vaziyat=4
begin
update NimehMahsool set bestar=@bestar,bestar_radif=@bestar_radif where simi_pr=@plat_simi_no
end

AminSobati
شنبه 02 مرداد 1389, 21:49 عصر
سلام دوست عزیز،
منظورتون این هست که خطا دریافت میکنید یا اینکه اساسا تغییری در داده ها بوجود نمیاد؟

ma.andishe
یک شنبه 03 مرداد 1389, 07:04 صبح
سلام دوست عزیز،
منظورتون این هست که خطا دریافت میکنید یا اینکه اساسا تغییری در داده ها بوجود نمیاد؟



سلام
نه هیچ تغییری نمیده بدون خطا

ma.andishe
یک شنبه 03 مرداد 1389, 08:22 صبح
اقا امین
قابل ذکر وقتی این کوری رو به صورت دشتی مقدار میدم درست عمل میکنه وبا 1 سری تغیرات جزی تو نوع داده خطا زیر رو میده
************************************************** **********

Aplication uses a value of th wrong type for the current operation

ma.andishe
یک شنبه 03 مرداد 1389, 11:03 صبح
لطفا اگه میتونید اینو کمک کنید اصلاح بشه
بدون هیچ خطا وهیچ تغیری عمل میکنه



RunNoneQueryCommand "update table set fild1=" & fild_string & " , fild2=" & fild_nteger & "where fild3=" & fild_long, adCmdText

ma.andishe
یک شنبه 03 مرداد 1389, 11:58 صبح
لطفا اگه میتونید اینو کمک کنید اصلاح بشه
بدون هیچ خطا وهیچ تغیری عمل میکنه



RunNoneQueryCommand "update table set fild1=" & fild_string & " , fild2=" & fild_nteger & "where fild3=" & fild_long, adCmdText

goolestan
یک شنبه 03 مرداد 1389, 12:53 عصر
دوست من منظورتون را متوجه نشدم ولی برای مطمئن شدن از اینکه چه دستوری به sql میفرستی Profile که برای sql است را اجراکن وبعد برنامه ات را اجراکن ببین چی برای دیتابیست میفرستی

ASKaffash
یک شنبه 03 مرداد 1389, 13:26 عصر
لطفا اگه میتونید اینو کمک کنید اصلاح بشه



بدون هیچ خطا وهیچ تغیری عمل میکنه





RunNoneQueryCommand "update table set fild1=" & fild_string & " , fild2=" & fild_nteger & "where fild3=" & fild_long, adCmdText

سلام
بخش قرمز رنگ ' می خواهد

ma.andishe
یک شنبه 03 مرداد 1389, 14:34 عصر
دوست من منظورتون را متوجه نشدم ولی برای مطمئن شدن از اینکه چه دستوری به sql میفرستی Profile که برای sql است را اجراکن وبعد برنامه ات را اجراکن ببین چی برای دیتابیست میفرستی


میشه مسیرو بگی

ma.andishe
یک شنبه 03 مرداد 1389, 14:51 عصر
سلام
بخش قرمز رنگ ' می خواهد
ممنو حل شد