Загрузка изображения из ADO источника - История изменений

SYSDBA в 10:21, 29 декабря 2015

2015-12-29T10:21:37Z

SYSDBA в 10:18, 29 декабря 2015

2015-12-29T10:18:55Z

SYSDBA: Новая страница: « Изображение (или другой BLOB объект) из внешней базы выгружается во временный файл и затем…»

2015-12-29T10:17:13Z

Новая страница: « Изображение (или другой BLOB объект) из внешней базы выгружается во временный файл и затем…»

Новая страница

Изображение (или другой BLOB объект) из внешней базы выгружается во временный файл и затем загружается в БД Гедымина.

<syntaxhighlight lang="VBNET">
Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = "DSN=MySQL;UID=" & AUser & ";PWD=" & APassword & ";"
objConnection.Open

Set AdoComm = CreateObject("ADODB.Command")
AdoComm.ActiveConnection = objConnection
AdoComm.CommandText = _
"select " & _
" TableNumber," & _
" Photo " & _
"from dbo.employee_view "

Dim AdoStream
Set AdoStream = CreateObject("ADODB.Stream")
AdoStream.Type = 1

Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")

Dim Creator, LoadTransaction, IBSQL
Set Creator = New TCreator

Dim MStream
Set MStream = Creator.GetObject(Null, "TMemoryStream", "")

Set LoadTransaction = Creator.GetObject(Null, "TIBTransaction", "LoadTransaction")
LoadTransaction.DefaultDataBase = gdcBaseManager.Database
LoadTransaction.StartTransaction

Set IBSQL = Creator.GetObject(Null, "TIBSQL", "IBSQL")
IBSQL.Transaction = LoadTransaction
IBSQL.SQL.Text = _
"UPDATE OR INSERT INTO USR$EMPLOYEE_LOAD " & _
" (USR$TABLENUMBER, USR$PHOTO) " & _
"VALUES " & _
" (:TABLENUMBER, :SURNAME, :FIRSTNAME, :MIDDLENAME, :NUMBER, :CARD_ID, :EMPLOYEE_ID, :END_WORK, :PHOTO) " & _
"MATCHING (USR$TABLENUMBER) "

Dim CardID, DateTime, SFM, SurName, FirstName, MiddleName, X, XPOS

Set qTable = AdoComm.Execute
While not qTable.EOF
IBSQL.Close
IBSQL.ParamByName("TABLENUMBER").AsInteger = qTable.Fields(0).Value
AdoStream.Open
AdoStream.Write(qTable.Fields(1).Value)
If FSO.FileExists("c:/golden/temp.bmp") Then
Call FSO.DeleteFile("c:/golden/temp.bmp", False)
End If
AdoStream.SaveToFile("c:/golden/temp.bmp")
Call MStream.LoadFromFile("c:/golden/temp.bmp")
IBSQL.ParamByName("PHOTO").LoadFromStream(MStream)
IBSQL.ExecQuery
AdoStream.Close
Wend
</syntaxhighlight>

[[Category:Документация]]

← Предыдущая		Версия 10:18, 29 декабря 2015
Строка 60:		Строка 60:
	</syntaxhighlight>		</syntaxhighlight>

−	[[Category:~~Документация~~]]	+	[[Category:Импорт/экспорт данных‏‎]]
		+	[[Category:Руководство разработчика]]

@@ Строка 38: / Строка 38: @@
      "  (USR$TABLENUMBER, USR$PHOTO) " & _
      "VALUES " & _
-     "  (:TABLENUMBER, :SURNAME, :FIRSTNAME, :MIDDLENAME, :NUMBER, :CARD_ID, :EMPLOYEE_ID, :END_WORK, :PHOTO) " & _
+     "  (:TABLENUMBER, :PHOTO) " & _
      "MATCHING (USR$TABLENUMBER) "
    Set qTable = AdoComm.Execute
    While not qTable.EOF
@@ Строка 59: / Строка 57: @@
    Wend
 </syntaxhighlight>
 [[Category:Импорт/экспорт данных‏‎]]
 [[Category:Руководство разработчика]]