|
Действия ...
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
11.07.2005, 12:20:54
|
|||
|---|---|---|---|
|
|||
Как записать массив в БД? |
|||
|
#18+
Побайтно прочитал файл в Data(): Dim intFH As Integer Dim Data() As Byte intFH = FreeFile Open "d:\Programma.exe" For Binary As intFH ReDim Data(0 To LOF(intFH) - 1) Get #intFH, , Data() Close #intFH Как сейчас этот массив затолкнуть в поле таблицы "Code" Типа Image ? Смотрел http://www.sql.ru/forum/actualthread.aspx?tid=198423, идею записи и чтения взял от туда. Читаю файл в массив Data(), затем записываю на диск, после чего программа запускается. Это работает нормально, спасибо Antonariy . Но вот как записать этот массив в БД не понял. Помогите пожалуста. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2005, 12:24:43
|
|||
|---|---|---|---|
Как записать массив в БД? |
|||
|
#18+
можно даже не читать ничё... тем более побайтно... :-P лучше сразу записать файл в базу - не знаю как в бейсике, но на дельфях это выглядело бы так: TBlobField(ADOTable1.FieldByName('value')).LoadFromFile('file.name'); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
11.07.2005, 12:32:55
|
|||
|---|---|---|---|
Как записать массив в БД? |
|||
|
#18+
VirusXPможно даже не читать ничё... тем более побайтно... :-P лучше сразу записать файл в базу - не знаю как в бейсике, но на дельфях это выглядело бы так: TBlobField(ADOTable1.FieldByName('value')).LoadFromFile('file.name'); вернее ADOTable1.Open; ADOTable1.Append; // ADOTable1.Edit; TBlobField(ADOTable1.FieldByName('value')).LoadFromFile('file.name'); ----- ADOTable1.Post; ADOTable1.Close; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.07.2005, 11:42:17
|
|||
|---|---|---|---|
|
|||
Как записать массив в БД? |
|||
|
#18+
пишем из файла через поток в базу Private Sub Command1_Click() Dim rsd As New ADODB.Recordset Dim myStream As New ADODB.Stream myStream.Type = adTypeBinary myStream.Open myStream.LoadFromFile "c:\2.ole" rsd.Open "select id,f from zayvka", cn, adOpenDynamic, adLockOptimistic rsd.AddNew rsd("f") = myStream.Read rsd.Update rsd.Close myStream.Close Set myStream = Nothing End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
13.07.2005, 23:36:43
|
|||
|---|---|---|---|
Как записать массив в БД? |
|||
|
#18+
Progrommater : авторDim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb" End Sub автор а вот здесь ты по моему абсолютно прав, должно работать, но не абсолют. С ADOX тоже есть проблемы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
14.07.2005, 05:54:06
|
|||
|---|---|---|---|
|
|||
Как записать массив в БД? |
|||
|
#18+
AndreyMp у меня конект к ms sql Public cn As New ADODB.Connection strDataLinkName = App.Path & "\STATION.UDL" cn.ConnectionString = "File Name=" & strDataLinkName & ";" cn.CommandTimeout = 200 cn.Open CommandTimeout -можно и больше если писать 2гига, я на 50м проверял проблемм небыло. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=60&tablet=1&tid=2167490]: |
0ms |
get settings: |
8ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
64ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 211ms |
| total: | 359ms |
| 0 / 0 |
