|
|
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#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:20:54 |
|
||
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#18+
можно даже не читать ничё... тем более побайтно... :-P лучше сразу записать файл в базу - не знаю как в бейсике, но на дельфях это выглядело бы так: TBlobField(ADOTable1.FieldByName('value')).LoadFromFile('file.name'); ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2005, 12:24:43 |
|
||
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#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; ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.07.2005, 12:32:55 |
|
||
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#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, 11:42:17 |
|
||
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#18+
Progrommater : авторDim cat As New ADOX.Catalog cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb" End Sub автор а вот здесь ты по моему абсолютно прав, должно работать, но не абсолют. С ADOX тоже есть проблемы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.07.2005, 23:36:43 |
|
||
|
Как записать массив в БД?
|
|||
|---|---|---|---|
|
#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м проверял проблемм небыло. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.07.2005, 05:54:06 |
|
||
|
|
start [/forum/topic.php?fid=60&fpage=321&tid=2167490]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
70ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
54ms |
get tp. blocked users: |
2ms |
| others: | 233ms |
| total: | 413ms |
| 0 / 0 |
