|
10.07.2001, 06:53
#32009211
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
|
извините, конечно, примеры на Дельфи, Си с использованием файлового обмена (которые есть кстати в MSDN) и recordset мне не совсем подходят.
поставлю вопрос прямо - что здесь неправильно:
CREATE TABLE [CrossPlot] (
[iID] [smallint] IDENTITY (1, 1) NOT NULL ,
[iID_Project] [smallint] NOT NULL ,
[tName] [varchar] (255) COLLATE NOT NULL ,
[iVersion] [smallint] NOT NULL ,
[gOtherVariables] [image] NOT NULL ,
CONSTRAINT [PK_CrossPlot] PRIMARY KEY CLUSTERED
(
[iID]
) ON [PRIMARY] ,
CONSTRAINT [IX_CrossPlot] UNIQUE NONCLUSTERED
(
[iID_Project],
[tName]
) ON [PRIMARY]
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
go
CREATE proc sp_SaveCrossPlot
(@tName varchar(255), @iID_Project smallint, @iVersion smallint, @gOtherVariables image)
as
insert CrossPlot (iID_Project, tName, iVersion, gOtherVariables)
values (@iID_Project, @tName, @iVersion, @gOtherVariables)
go
------------------------------------------------------------------------------------
Public Sub Save_CrossPlot(ByVal xsName As String, ByVal xiVersion As Integer, xbArr() As Byte)
Dim lcmd As ADODB.Command
On Error GoTo p_err
Set lcmd = New ADODB.Command
With lcmd
.CommandType = adCmdStoredProc
.CommandText = "sp_SaveCrossPlot"
Set .ActiveConnection = pcnDomainConn
.Parameters.Append .CreateParameter("@tName", adVarChar, adParamInput, 255, xsName)
.Parameters.Append .CreateParameter("@iID_Project", adSmallInt, adParamInput, , piIDProject)
.Parameters.Append .CreateParameter("@iVersion", adSmallInt, adParamInput, , xiVersion)
.Parameters.Append .CreateParameter("@gOtherVariables", adVarBinary, adParamInput, UBound(xbArr))
.Parameters("@gOtherVariables").Attributes = .Parameters("@gOtherVariables").Attributes Or adParamLong
.Parameters("@gOtherVariables").AppendChunk xbArr
.Execute , , adExecuteNoRecords
End With ' lcmd
p_exit:
Exit Sub
p_err:
MsgBox Err.Description, vbExclamation
Resume p_exit
End Sub
|
|
|
