مرتضی حمزه ئی
یک شنبه 28 تیر 1388, 14:42 عصر
یک فیلد دردیتابیس ازنوع image دارم مقداری که میتونه توی این فیلد قراربگیره هرنوع فایلی از نوع bmp یا doc یا excel میتونه باشه سوالم اینه که وقتی میخوام این فایل را به یک sp بفرستم که توی اون sp بعد ازچک کردن شرطهایی بخواهد insert بشه اولا نوع فیلد توی sp برای گرفتن این فایل باید ازنوع چی باشه و توی دستور insert برای این فیلد خاص باید به چه فرمی باشه منظورم اینه واسه عددی از " & مقدار & " استفاده میکنیم حالا میخوام ببینم چکارکنم تکه برنامه vb و sp را واسه اظهار نظر شما عزیزان میفرستم
با تشکر
CREATE PROCEDURE Insert_standard
@StandardName nvarchar(50) ,
@StandardYear char(10) ,
@StandardRev char(3) ,
@StandardFileName nvarchar(50) ,
@StandardFileExten char(3) ,
@image1 image
as
Declare @StandardSerial as int
Declare @ser1 as int
begin
BEGIN TRANSACTION
set @StandardSerial= (Select IsNull(Max(StandardSerial),0)+1 From TblStandard)
Insert into TblStandard values (@StandardSerial,@StandardName,@StandardYear,@Stan dardRev,@StandardFileName,@StandardFileExten,null)
declare standard_cursor cursor for
select StandardFile from TblStandard where StandardSerial=@StandardSerial and StandardFile is null
OPEN standard_cursor
FETCH NEXT FROM standard_cursor INTO @ser1
WHILE @@FETCH_STATUS = 0
BEGIN
update TblStandard set StandardFile=@image1 where StandardSerial=@ser1
FETCH NEXT FROM standard_cursor INTO @ser1
end
CLOSE standard_cursor
deallocate standard_cursor
IF @@ERROR<>0 ROLLBACK TRANSACTION
COMMIT TRANSACTION
END
'Private PhotoStream As New ADODB.Stream
'Private rs5 As New ADODB.Recordset
'PhotoStream.Type = adTypeBinary
'PhotoStream.Open
'StrPathDrive = File1.Path
'PhotoStream.LoadFromFile StrPathDrive & "\" & File1.FileName
'rs5.Open "execute Insert_standard '" & Trim(TxtStandard.Text) & "','" & Trim(TxtYear.Text) & "','" & Trim(TxtRev.Text) & "','" & Trim(SfileName) & "','" & Trim(Exeten) & "', photostream.read ", cn1, 3, 3
-------------------------------------------------------------------------------
با تشکر
CREATE PROCEDURE Insert_standard
@StandardName nvarchar(50) ,
@StandardYear char(10) ,
@StandardRev char(3) ,
@StandardFileName nvarchar(50) ,
@StandardFileExten char(3) ,
@image1 image
as
Declare @StandardSerial as int
Declare @ser1 as int
begin
BEGIN TRANSACTION
set @StandardSerial= (Select IsNull(Max(StandardSerial),0)+1 From TblStandard)
Insert into TblStandard values (@StandardSerial,@StandardName,@StandardYear,@Stan dardRev,@StandardFileName,@StandardFileExten,null)
declare standard_cursor cursor for
select StandardFile from TblStandard where StandardSerial=@StandardSerial and StandardFile is null
OPEN standard_cursor
FETCH NEXT FROM standard_cursor INTO @ser1
WHILE @@FETCH_STATUS = 0
BEGIN
update TblStandard set StandardFile=@image1 where StandardSerial=@ser1
FETCH NEXT FROM standard_cursor INTO @ser1
end
CLOSE standard_cursor
deallocate standard_cursor
IF @@ERROR<>0 ROLLBACK TRANSACTION
COMMIT TRANSACTION
END
'Private PhotoStream As New ADODB.Stream
'Private rs5 As New ADODB.Recordset
'PhotoStream.Type = adTypeBinary
'PhotoStream.Open
'StrPathDrive = File1.Path
'PhotoStream.LoadFromFile StrPathDrive & "\" & File1.FileName
'rs5.Open "execute Insert_standard '" & Trim(TxtStandard.Text) & "','" & Trim(TxtYear.Text) & "','" & Trim(TxtRev.Text) & "','" & Trim(SfileName) & "','" & Trim(Exeten) & "', photostream.read ", cn1, 3, 3
-------------------------------------------------------------------------------